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

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

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

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

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 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

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楼代码，是你用鼠标框选多行，多行添加的。

谢谢。对了。