表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
DataTables("表B").LoadFilter = "第一列 In (" & ids & ")"
End If
DataTables("表B").Load()
现在的问题是,如果在表B上设置了分页加载树。后面几页的信息,就不能加载到父表的关联表中。应该如何处理呢。
如果吧表B的 afterload 和afterfilter 里面都加上上面的代码的话,好像也不行。