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

版主，窗口表A中的记录用光标选择后，再点按钮后能够自动加到表D的相应列中。感谢。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.table

版主，帮忙看一下错在哪儿？谢谢。

 

Dim t1 As Table = Tables("Orderlist")

Dim str As String = ""

For r As Integer = t1.TopPosition To t1.BottomPosition

 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"}
           
            Dim dr As Row = Tables("PrintHistory").AddNew
           
                        For i As Integer = 0 To nma.Length - 1
                dr(nma(i)) = r(nmb(i))
            Next

Next

谢谢，不过这个不能进行多选，只能一条一条的操作。能再修一下吗？

谢谢。对了。