专家坐堂-命令顺序执行，禁止同时执行Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  命令顺序执行，禁止同时执行  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=191463)

--  作者：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))
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

--  作者：有点蓝
--  发布时间：2024/4/18 16:17: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))
Next
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
Next
DataTables("订单明细表").deletefor("[核销] =\'√\'")
DataTables("订单主表").deletefor("[核销] =\'√\'")