以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  记录显示问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=116404)
--  作者：xxfoxtable
--  发布时间：2018/3/23 22:46:00
--  记录显示问题

有二个table控件，想实现点表一中一个记录，在表二中显示和这个记录相关的记录，目前实现不了，只能看其中一个记录，表一中另一个怎么点在表二中都不显示，在afterload应该怎么写代码，能实现这个功能？

afterload代码，我是这样写的，好象不行

Dim t  As  Table =  Tables("商品信息表修改_table1")
With  Tables("商品信息表")
    If .Current Is Nothing  Then
        t.Filter = "False"
    Else
        t.Filter = "id = " & .Current("_identify")
    End  If
End With
Dim t1  As  Table =  Tables("配件工艺表")
With  Tables("商品信息表修改_table1")
    If .Current Is Nothing  Then
        t1.Filter = "False"
    Else
        t1.Filter = "id = " & .Current("gxid")
    End  If
End With

[此贴子已经被作者于2018/3/23 22:46:36编辑过]
--  作者：有点蓝
--  发布时间：2018/3/23 22:56:00
--  
还有CurrentChanged事件代码：http://www.foxtable.com/webhelp/scr/2222.htm
--  作者：xxfoxtable
--  发布时间：2018/3/23 23:03:00
--  
是这个

Dim t  As  Table =  Tables("商品信息表修改_table1")
With  Tables("商品信息表")
    If .Current Is Nothing  Then
        t.Filter = "False"
    Else
        t.Filter = "id = " & .Current("_identify")
    End  If
End With
Dim t1  As  Table =  Tables("配件工艺表")
With  Tables("商品信息表修改_table1")
    If .Current Is Nothing  Then
        t1.Filter = "False"
    Else
        t1.Filter = "id = " & .Current("gxid")
    End  If
End With

CurrentChanged是加这个代码吗？加完了，表二啥也不显示了，大师帮助写一个代码呗，现在就卡在这里了

[此贴子已经被作者于2018/3/23 23:05:35编辑过]
--  作者：有点蓝
--  发布时间：2018/3/23 23:20:00
--  
请上传项目实例说明
--  作者：xxfoxtable
--  发布时间：2018/3/23 23:41:00
--  

 

[此贴子已经被作者于2018/3/24 0:00:21编辑过]