以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助] 点选进行复制  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=130744)
--  作者：leoli
--  发布时间：2019/1/30 21:15:00
--  [求助] 点选进行复制
版主，窗口表A中的记录用光标选择后，再点按钮后能够自动加到表D的相应列中。感谢。
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.table
--  作者：有点甜
--  发布时间：2019/1/30 22:32:00
--  

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

 

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

 
--  作者：leoli
--  发布时间：2019/1/30 23:09:00
--  

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

 

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
--  作者：y2287958
--  发布时间：2019/1/31 9:05:00
--  
Dim f As New Filler
f.SourceTable = DataTables("表A")
f.DataTable = DataTables("表D")
f.Filter = "_Identify=" & Tables("表A").Current("_Identify")
f.Fill()
--  作者：有点甜
--  发布时间：2019/1/31 9:27:00
--  

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
--  作者：leoli
--  发布时间：2019/1/31 9:39:00
--  
谢谢，不过这个不能进行多选，只能一条一条的操作。能再修一下吗？
--  作者：有点甜
--  发布时间：2019/1/31 9:42:00
--  
以下是引用leoli在2019/1/31 9:39:00的发言：
谢谢，不过这个不能进行多选，只能一条一条的操作。能再修一下吗？

 

多选？你如何多选？5楼代码，是你用鼠标框选多行，多行添加的。
--  作者：leoli
--  发布时间：2019/1/31 9:59:00
--  
谢谢。对了。