Программирование мобильных устройств на платформе .NET Compact Framework

 'Добавить столбец строк в таблицу DataTable набора данных DataSet

 myTestTable.Columns.Add(COLUMN_NAME_PASSENGER_NAME, _

  GetType(String))

 'Добавить столбец строк в таблицу DataTable набора данных DataSet

 myTestTable.Columns.Add(COLUMN_NAME_PASSENGER_CREDIT_CARD, _

  GetType(String))

 'Данные для размещения в строках данных

 Dim objArray As Object ReDim objArray(2)

 '--------------------------------

 'Добавить строки данных в таблицу

 '--------------------------------

 Dim buildTestString As System.Text.StringBuilder

 buildTestString = New System.Text.StringBuilder

 Dim addItemsCount As Integer

 For addItemsCount = 1 To DUMMY_ROWS_OF_DATA

  'Выбрать день отъезда пассажира

  objArray(0) = System.DateTime.Today.AddDays(addItemsCount)

  'Выбрать имя пассажира

  buildTestString.Length = 0

  buildTestString.Append("TestPersonName")

  buildTestString.Append(addItemsCount)

  objArray(1) = buildTestString.ToString

  'Связать с пассажиром текстовый номер кредитной карточки

  buildTestString.Length = 0

  buildTestString.Append("IvoCard-000-000-0000-")

  buildTestString.Append(addItemsCount)

  objArray(2) = buildTestString.ToString

  'Добавить элементы массива в строку набора данных

  myTestTable.Rows.Add(objArray)

 Next

 'Добавить элемент, поиск которого мы хотим проводить при выполнении теста

 objArray(0) = System.DateTime.Today

 objArray(1) = "Ms. TestPerson"

 objArray(2) = ТЕST_CREDIT_CARD

 'Добавить элементы массива в строку набора данных

 myTestTable.Rows.Add(objArray)

End Sub

'---------------------------------------------------------------

'Найти и кэшировать все индексы набора данных, которые нам нужны

'---------------------------------------------------------------

Private Sub cacheDataSetInfo

 'Выйти из функции, если индексы уже загружены

 If (m_indexesLookedUp = True) Then Return

 'Кэшировать индекс таблицы

 m_IndexOfTestTable = _

  m_myDataSet.Tables.IndexOf(TABLE_NAME_PASSENGERINFO)

 '------------------------------------------

 'Итерировать по всем столбцам нашей таблицы

 'и кэшировать индексы нужных столбцов

 '------------------------------------------

 mTableCustomerInfo = m_myDataSet.Tables(m_IndexOfTestTable)

 Dim dataColumnCount As Integer

 dataColumnCount = m_TableCustomerInfo.Columns.Count

 Dim myColumn As System.Data.DataColumn

 Dim colIdx As Integer

 While (colIdx < dataColumnCount)

  myColumn = m_TableCustomerInfo.Columns(colIdx)

  'Предпринимать поиск, только если это еще не сделано

  If (m_IndexOfTestColumn_CreditCard = INVALID_INDEX) Then

   'Проверить, совпадает ли имя

   If (myColumn.ColumnName = _

    COLUMN_NAME_PASSENGER_CREDIT_CARD) Then

    'Кэшировать индекс