1.用下面代 码，关联表，主表可执行，但明细表执行不了：
Dim Cols1() As String = {"客户名称"}
Dim Cols2() As String = {"客户名称"}
For Each dr1 As DataRow In DataTables("销售主表").Select("[审核] = 1")
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("[审核状态] = 1")
Dim dr4 As DataRow = DataTables("退货单").AddNew()
For i As Integer = 0 To Cols1.Length -1
dr4(Cols4(i)) = dr3(Cols3(i))
Next
Next
加好友 
发短信
Post By：2019/7/17 0:13:00 [显示全部帖子]
