标题：命令顺序执行，禁止同时执行

1楼

liuandwang 发表于：2024/4/18 16:15:00

按键命令：目的是备份主表和明细表，并在备份完成后删除主表和明细表

主表和明细表通过“订单编号”关联，在执行命令时，提示所在行已删除无法复制，

或者备份的主表内容与原表不一致，如面积列，通过公式汇总明细表

应该是复制命令执行完全后，再执行删除命令，怎么做，拜托！！！

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))

dr1.Delete

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))

dr3.Delete

2楼

有点蓝 发表于：2024/4/18 16:17:00