由于系统的的数据很多，想学习按条件加载
在BeforeLoadOuterTable有以下代码
If e.DataTableName = "入库单" Then
e.SelectString = "Select * F rom {入库单} Where [_Identify] Is Null"
End If
If e.DataTableName = "入库明细" Then
e.SelectString = "Select * F rom {入库明细} Where [_Identify] Is Null"
End If
AfterOpenProject
Dim Filter As String
Filter = "[审核] = 0"
DataTables("入库单").LoadFilter = Filter
DataTables("入库单").Load()
入库单的表事件afterload
Dim ids As String
For Each dr As DataRow In e.DataTable.DataRows
ids = ids & ",'" & dr("入库单号") & "'"
Next
ids= ids.Trim(",")
DataTables("入库明细").LoadFilter = "入库单号 In (" & ids & ")"
DataTables("入库明细").Load()
入库单和入库明细都设置好关联
现在打开系统后只有入库单按条件加载了数据，而入库明细表显示空白，没能加载
为什么呢？
加好友 
发短信
Post By：2019/4/10 22:43:00 [显示全部帖子]
