如何实“表B”从表"表A"以字段"产品编号",取"产品编号","单价" 的值，从 "表C" 以字段 "产品编号",取"产品编号","品名","数量" 的值？
"表A" ：" 产品编号","单价"
PJ-01 , 10.5
"表C" : "产品编号","品名", "数量"
PJ-01 , 花生 ， 200
最终结果：“表B”"产品编号","品名","数量" ,"单价"
PJ-01 , 花生 ， 200， 10.5
以下代码是单个表取值，如何组合成一个表从多个表取值？
Dim t As Table = e.Form.Controls("表A").Table
For k As Integer = t.TopRow To t.BottomRow
Dim r As Row = t.Rows(k)
If r("选中") = True Then
Dim nma() As String = {"产品编号","单价"}
Dim nmb() As String = {"产品编号","单价"}
Dim dr As Row = Tables("表B").AddNew
For i As Integer = 0 To nma.Length - 1
dr(nmb(i)) = r(nma(i))
Next
End If
Next
Dim t As Table = e.Form.Controls("表C").Table
For k As Integer = t.TopRow To t.BottomRow
Dim r As Row = t.Rows(k)
If r("选中") = True Then
Dim nma() As String = {"产品编号","品名","数量"}
Dim nmb() As String = {"产品编号","品名","数量"}
Dim dr As Row = Tables("表B").AddNew
For i As Integer = 0 To nma.Length - 1
dr(nmb(i)) = r(nma(i))
Next
End If
Next
加好友 
发短信
Post By：2020/10/26 15:09:00 [只看该作者]
