VB 老旧版本维护系列---迷之集合- dataTable

迷之集合- dataTable

‘定义一个datatable，并声明一个空对象

Dim data As DataTable = New DataTable()

‘获取行数

Dim rows As Integer = data.Rows.Count

‘获取每行列名以及值

For Each row As DataRow In data.Rows

     For Each col As DataColumn In data.Columns

         ‘获取列名

         Print(col.ColumnName)

         ‘获取列值

         Print(row.Item(col.ColumnName))

     Next

Next