主题：如何将窗口中table2中的所有明细调入到table3中

Dim t As Table = e.Form.Controls("Table2").Table

Dim t2 As Table = e.Form.Controls("Table3").Table

If  t.Rows.Count > 0 Then

    Dim nma() As String = {"货品编码","品名","规格","单位","数量","单价"} 'A表数据来源列

    Dim nmb() As String = {"货品编码","品名","规格","单位","数量","单价"} 'B表数据接收列

    Dim dr1 As Row = t2.AddNew()

    For i As Integer = 0 To nma.Length - 1

        dr1(nmb(i)) = t.Rows(0)(nma(i))

    Next

End If