主题：[求助] 点选进行复制

1、http://www.foxtable.com/webhelp/scr/1597.htm

2、http://www.foxtable.com/webhelp/scr/1533.htm

Dim t1 As Table = Tables("Orderlist")
Dim nmb() As String = {"GSSAG_PO","Endcustomer","CustomerPO","Pos","GSSPart","PartNo","OpenQty","ETD"}
Dim nma() As String = {"GSSAG_PO","Customer","Customer_POno","PO_Pos","GSSPartNo","Customer_PartNo","Qty_PerBox","ETD"}

For r As Integer = t1.TopPosition To t1.BottomPosition   
    Dim dr As Row = Tables("PrintHistory").AddNew   
    For i As Integer = 0 To nma.Length - 1
        dr(nma(i)) = t1.rows(r)(nmb(i))
    Next   
Next

多选？你如何多选？5楼代码，是你用鼠标框选多行，多行添加的。