以下代码虽能正常运行，但只能复制一行明细数据，如何将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
附之前出错图片：
此主题相关图片如下：调入处方.png
[此贴子已经被作者于2022/10/12 22:19:16编辑过]
加好友 
发短信
Post By：2022/10/12 19:22:00 [显示全部帖子]
