谢谢有点甜老师，早上问题根据帮助已经实现一半需求了，请麻烦再帮在现基础上做个优化：过滤条件后才复制新增：1.日期：从2018-01-01 00:00 开始的数据 2.状态为“未完成” 的数据，3.单号不重复的数据，万分感谢！
Dim cmd As New SQLCommand
Dim dt As DataTable
Dim sCols() As String = {"单号", "名称", "数量", "日期",“状态”}
Dim dCols() As String = {"单号", "名称", "订单数量", "日期", “状态”}
cmd.C
cmd.CommandText = "SELECT * Fr om {表B}"
dt = cmd.ExecuteReader()
For Each dr As DataRow In dt.DataRows
Dim nr As DataRow = DataTables("表A").AddNew()
For i As Integer =0 To sCols.Length -1
nr(dCols(i)) = dr(sCols(i))
Next
Next
[此贴子已经被作者于2018/11/22 15:11:52编辑过]
加好友 
发短信
Post By：2018/11/22 10:17:00 [只看该作者]
