标题：[求助]合并表

11楼

江南小镇 发表于：2024/5/9 7:49:00

以下是引用江南小镇在2024/5/6 22:03:00的发言：
老师，每次打开接收表多会重新复制相同的数据。

老师好，谢谢老师帮我写一下吧。

12楼

有点蓝 发表于：2024/5/9 8:43:00

For Each dr1 As DataRow In DataTables("表A").Select("")

Dim dr2 As DataRow = DataTables("接收表").find("编号=‘“ & dr1（“编号”） & ”’")

if dr2 is nothing then

dr2 =DataTables("接收表").AddNew()

For i As Integer = 0 To Cols1.Length -1

dr2(Cols2(i)) = dr1(Cols1(i))

end if

13楼

江南小镇 发表于：2024/5/11 22:19:00

谢谢老师

共13 条记录, 每页显示 10 条, 页签: [1] [2]