主题：记录显示问题

有二个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

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是加这个代码吗？加完了，表二啥也不显示了，大师帮助写一个代码呗，现在就卡在这里了