以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助] 关联表加载问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=120355)

--  作者:81538475
--  发布时间:2018/6/13 13:41:00
--  [求助] 关联表加载问题
表A 是父表 表B是子表 
表A 的afterload 里面代码:

If DataTables("表A").DataRows.Count = 0 Then \'如果表A表没有数据
    DataTables("表B").LoadFilter = "第一列 Is Null" \'不加载表B
Else
    Dim ids As String
    For Each dr As DataRow In DataTables("表A").DataRows
        ids = ids & ",\'" & dr("第一列") & "\'"
    Next
    ids= ids.Trim(",")
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目2.foxdb

    DataTables("表B").LoadFilter = "第一列 In (" & ids & ")"
End If
DataTables("表B").Load()

现在的问题是,如果在表B上设置了分页加载树。后面几页的信息,就不能加载到父表的关联表中。应该如何处理呢。
如果吧表B的 afterload 和afterfilter 里面都加上上面的代码的话,好像也不行。

--  作者:有点甜
--  发布时间:2018/6/13 14:29:00
--  

DataTables("表B").Load()

 

改成

 

DataTables("表B").Loadtop = ""

DataTables("表B").LoadPage = 0

DataTables("表B").Load