专家坐堂-[原创]提供一个System.Data.DataTable转Foxtable.DataTable的函数Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

其实除了常规的直接绑定到窗口中的Table显示的方法外（Tables("窗口1_Table1").DataSource = dt），其中dt既可以是DataTable也可以是System.Data.DataTable

我自己简单写了个直接遍历完成转换的方法，有需要的请参考

新增一个内部函数，名字假设就叫数据表转换

\'System.Data.DataTable 转 Foxtable.DataTable

Dim dt1 As System.Data.DataTable = Args(0)

Dim dtb As New DataTableBuilder("temp")

For Each c As System.Data.DataColumn In dt1.Columns

dtb.AddDef(c.ColumnName, c.DataType, c.MaxLength)

Dim dt2 As DataTable = dtb.Build(True)

Dim cnt As Integer = dt1.Rows.Count

If cnt > 0 Then

dt2.AddNew(cnt)

For i As Integer = 0 To cnt - 1

For Each c As System.Data.DataColumn In dt1.Columns

dt2.DataRows(i)(c.ColumnName) = dt1.Rows(i)(c.ColumnName)

i += 1

End If

Return dt2

使用方法

之前代码假设已生成了一个dt1变量，类型为System.Data.DataTable

Dim dt2 As DataTable = Functions.Execute("数据表转换", dt1)

dt2就是你要的结果