DataTables("统计询查表").DataRows.Clear
Dim tnames() As String = {"表A","表B","表C"}
For Each tname As String In tnames
Dim drs As List(Of DataRow) = DataTables(tname).Select("", "_Identify")
For i As Integer = 0 To drs.count - 1
Dim dr As DataRow = drs(i)
Dim nr As DataRow = DataTables("统计询查表").AddNew
nr("ID") = dr("客户ID")
nr("客户供应商") = dr("客户名称")
nr("销售数量") = dr("销售数量")
Next
Next
'老师,在合并表时能不能让表A表B表C的ID列和名称列的字段内容同时复制在统计询查表的ID列和客户供应商列中.