以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]怎样用table控件模拟关联表实现动态加载子表  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=193345)
--  作者：wldhj
--  发布时间：2024/9/6 23:50:00
--  [求助]怎样用table控件模拟关联表实现动态加载子表
怎么实现用table控件模拟关联表，但是子表是从数据库动态加载的，子表数据本地有的话就从本地筛选（证明以前加载过），没有的话就到数据库找
--  作者：有点蓝
--  发布时间：2024/9/8 11:30:00
--  
参考：http://www.foxtable.com/webhelp/topics/2222.htm

先做筛选，筛选后没有数据再做加载

比如

Dim t As Table = Tables("窗口1_Table1")
With Tables("产品")
    If .Current Is Nothing Then
        t.Filter = "False"
    Else
        t.Filter = "产品编号 = " & .Current("产品编号")

if t.rows.count = 0 then \'筛选后没有数据

\'做加载

t.datatable.loadfilter = t.Filter

t.datatable.load

end if
    End IF
End With