二个相同结构的表合并，就是A表向B表追加记录，同时要验证是否有重复（只能追加一次） 结构为C1列、C2列 年 月 编号 共5列
A表中的行的 年、月 编号 三列数值、完全同B表中的行年、月 编号三列完全相同视为重复行，终止追加并提示
最好是在添加前先验证并有提示，求代码，想做个窗口按钮 执行此动作
Dim nma() As String
Dim nmb() As String
Systemready = False
For Each r As Row In Tables("表A").Rows
Dim dr As DataRow = DataTables("表B").AddNew
For i As Integer = 0 To nma.Length - 1
dr(nmb(i)) = r(nma(i))
Next
Next
Systemready = True
追加完成后 ，把A表中C1列数据更换为C2列数据 ，同时清除C2列数据为空 保存表
以上求代码
[此贴子已经被作者于2020/5/21 19:56:31编辑过]
加好友 
发短信
Post By：2020/5/21 19:18:00 [只看该作者]
