Dim Cols1() As String = {"序号", "名称", "图号", "单套数量"}
Dim Cols2() As String = {"序号", "名称", "图号", "单套数量"}
Dim chk As WinForm.CheckBox
chk = Forms("产品拆分").Controls("chk")
If chk.Checked = True Then
For Each dr1 As DataRow In DataTables("产品拆分表").Select("[序号]is not null")
Dim dr2 As DataRow = DataTables("产品清单").AddNew()
For i As Integer = 0 To Cols1.Length - 1
dr2(Cols2(i)) = dr1(Cols1(i))
Next
Next
Else
chk.Checked = False
这里添加清空产品订单表的内容
End If
加好友 
发短信
Post By：2022/8/20 10:58:00 [显示全部帖子]
