ПОНЯТНО О Visual Basic NET (том 3)


Программный доступ к каждой ячейке таблицы через DataSet - часть 2


DataSet11.Tables("Книги").Rows(4)(2)

получим короткое

DataSet11.

Книги (4)(2)

К полям записи можно обращаться и по имени поля. Выражение

DataSet11.Книги (4) ("Nazvanie")

тождественно предыдущему.

Еще больше экономим чернила. Чтобы избежать необходимости при обращении к ячейкам таблицы все время записывать фрагмент DataSet11.Книги, объявите коротенькую переменную типом коллекции строк таблицы:

Dim D As DataRowCollection

Затем выполните оператор

        D = DataSet11.Книги.Rows

присваивающий этой переменной значение коллекции строк из конкретной таблицы Книги.

Теперь к этой коллекции вы можете обращаться и при помощи переменной D, например, так:

        D (2)(4) = 500

Вот фрагмент, распечатывающий всю нашу таблицу:

        Dim i, j As Integer

        For i = 0 To 5

            For j = 0 To 4

                Debug.WriteLine (D(i)(j))

            Next

        Next

Вот фрагмент, делающий то же по-другому:

        Dim j As Integer

        Dim Запись As DataRow

        For Each Запись In D

            For j = 0 To 4

                Debug.WriteLine(Запись(j))

            Next

        Next    

Задание 20.        

Увеличьте на 2 число страниц в каждой книге из таблицы.




Начало  Назад  Вперед