主题：加载的问题

表A的第一列和表B的第一列关联，我想打开项目后，只加载表A的数据，表B的数年据不加载，如果我想在选择了父表的记录后，自动加载子表的关联记录，要怎么做啊？

我也想知道啊！

例如，加载产品为PD01的订单：

With DataTables("订单")
    .LoadFilter = "[产品] = 'PD01'"
    .Load()
End With

GetChildRows返回一个集合，这个集合包括子表中全部对应的关联行。
假定产品表和订单表之间通过产品编号建立了关联，下面的代码获得第一个产品的全部订单：

Dim drs As List(Of Datarow)
drs = DataTables("产品").DataRows(0).GetChildRows("订单")

With DataTables("订单")
    .LoadFilter = "[产品] = 'PD01'"
    .Load()
End With
是用于内部表的吗？外部表也可用吗？

一样,只是事件不一样
对于内部表，请参考事件：BeforeLoadInnerTable
对于外部表，请参考事件：BeforeLoadOuterTable

我在表属性的CurrentChanged处加以下代码
dim dr as datarow = DataTables("表A").DataRows(0)
With DataTables("表B")
    .LoadFilter = "[第一列] = '" & dr("第一列") & "'"
    .Load()
End With
为什么会出错？

PositionChanged事件:

Dim dr As Row = CurrentTable.Current
With DataTables("表B")
    .LoadFilter = "[第一列] = '" & dr("第一列") & "'"
    .Load()
End With