Dim pr As Row = Tables("销售订单").Current
Dim nma() As String = {"客户姓名","客户地址","客户电话"} 'A表数据来源列
Dim nmb() As String = {"客户姓名","客户地址","客户电话"} 'B表数据接收列
Dim dr As DataRow = DataTables("销售单").AddNew
For i As Integer = 0 To nma.Length - 1
dr(nmb(i)) = pr(nma(i))
Next
For Each cdr As DataRow In DataTables("订单明细").Select("订单编号 = '" & pr("订单编号") & "'")
Dim xnma() As String = {"客户姓名","客户地址","客户电话","商品名称","单价"} 'A表数据来源列
Dim xnmb() As String = {"客户姓名","客户地址","客户电话","商品名称","单价"} 'B表数据接收列
Dim xdr As DataRow = DataTables("销售明细").AddNew
For i As Integer = 0 To nma.Length - 1
xdr(xnmb(i)) = cdr(xnma(i))
Next
xdr("销售编号") = dr("销售编号")
xdr("销售日期") = dr("销售日期")
Next