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

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

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

DataTables("订单明细表").deletefor("[核销] ='√'")

DataTables("订单主表").deletefor("[核销] ='√'")

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