以文本方式查看主题 - 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(",")
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 |