Select Case e.DataTableName
    Case "订单","订单明细"
        e.Filter = "[_Identify] Is Null"
End Select

确保订单表和订单明细表在初始状态不会加载任何数据。

2、然后在AfterOpenProject事件中加入代码：

Tables("订单").OpenLoadTree("订购日期 YM",120,10)

这样项目打开后，将自动显示订单表的加载树。

3、将订单表的AfterLoad事件设置为：

Dim ids As String
For Each dr As DataRow In DataTables("订单").DataRows
    ids = ids & "," & dr("订单ID")
Next
ids= ids.Trim(",")
DataTables("订单明细").LoadFilter = "订单id In (" & ids & ")"
DataTables("订单明细").Load()

至此，我们这个关联加载系统已经完工，前后不过12行代码。

提示：

1、上面的例子是针对内部数据表的，如果使用的是外部数据源，那么第一步可以省略，只需在设置外部数据表的时候，将加载条件设置为“[_Identify] Is Null”。

示例文件：

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目43.rar