按键命令：目的是备份主表和明细表，并在备份完成后删除主表和明细表主表和明细表通过“订单编号”关联，在执行命令时，提示所在行已删除无法复制，
或者备份的主表内容与原表不一致，如面积列，通过公式汇总明细表
应该是复制命令执行完全后，再执行删除命令，怎么做，拜托！！！
Dim Cols1() As String = {"订单编号", "接单日期", "产品名称", "面积".......}
Dim Cols2() As String = {"订单编号", "接单日期", "产品名称", "面积".......}
For Each dr1 As DataRow In DataTables("订单主表").Select("[核销] ='√'")
Dim dr2 As DataRow = DataTables("主表归档").AddNew()
For i As Integer = 0 To Cols1.Length - 1
dr2(Cols2(i)) = dr1(Cols1(i))
Next
dr1.Delete
Next
Dim Cols3() As String = {"订单编号", "接单日期", "产品名称", "产品颜色".......}
Dim Cols4() As String = {"订单编号", "接单日期", "产品名称", "产品颜色".......}
For Each dr3 As DataRow In DataTables("订单明细表").Select("[核销] ='√'")
Dim dr4 As DataRow = DataTables("明细表归档").AddNew()
For k As Integer = 0 To Cols3.Length - 1
dr4(Cols4(k)) = dr3(Cols3(k))
Next
dr3.Delete
Next
加好友 
发短信
Post By：2024/4/18 16:15:00 [只看该作者]
