以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  CurrentChanged  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=127643)
--  作者：yetle
--  发布时间：2018/11/19 9:34:00
--  CurrentChanged

table2新增行，为什么不能即刻显示对应table1到货单据号的行，要点一下窗口table表1，table2的行才显示

CurrentChanged:

If Forms("到货物检").Opened()
    Dim t As Table = Tables("到货物检_table2")

    Dim d As Table = Tables("到货物检_table1")    

        If d.Current Is Nothing Then
            t.Filter = "False"

        Else
            t.Filter = "到货单据号 = \'" & d.Current("到货单据号") & "\' "
                        
        End If

End If


新增行：
Dim tbl As Table = Tables("选择采购订单_Table1")
Dim tbl2 As Table = Tables("到货物检_Table2")
Dim tbl1 As Table = Tables("到货物检_Table1")
For  i As Integer=tbl.BottomPosition To tbl.TopPosition Step -1
    Dim dr As Row =  tbl2.AddNew
    dr("到货单据号")=tbl1.current("到货单据号")
Next
--  作者：有点甜
--  发布时间：2018/11/19 9:37:00
--  

加上触发currentChanged的代码，如

 

http://www.foxtable.com/webhelp/scr/2367.htm