以下是引用hnaysx在2009-8-2 11:53:00的发言:
For Each cl As DataCol In DataTables("表A").DataCols
Dim dr As DataRow = DataTables("表B").AddNew()
dr("第三列") = cl.DataType.ToString
Next
谢谢!呵呵
[此贴子已经被作者于2009-8-2 12:17:08编辑过]
以下是引用czy在2009-8-2 12:26:00的发言:
For Each cl As DataCol In DataTables("表A").DataCols
Dim dr As DataRow = DataTables("表B").AddNew()
dr("第三列") = cl.DataType.name
Next
谢谢!