If e.Table.Current IsNot Nothing Then
DataTables("订单明细").LoadFilter = "订单编号 = " & e.Table.Current("订单编号")
Else
DataTables("订单明细").LoadFilter = "[_Identify] is null"
End If
DataTables("订单明细").Load()

这样我们选择某行订单，就会自动加载对应的订单明细。

上面的代码也有不足，例如处理A订单的时候，会自动加载A订单的明细，当处理完B订单后再回到A订单，又得重新加载一次A订单的订单明细，显然这种重复加载是一种"浪费"。

我们可以再完善一下代码，避免数据重复加载：

If e.Table.Current IsNot Nothing Then
Dim Filter As String = "订单编号 = " & e.Table.Current("订单编号")
If DataTables("订单明细").Find(Filter) Is Nothing Then \'如果对应的订单明细没有加载过
DataTables("订单明细").AppendLoad(Filter) \'则追载此订单的订单明细
End If
End If

这里采用AppendLoad来追载没有加载过的订单明细，避免了重复加载，效率远远好过第一个方案。

这个在SQL数据源下貌似不行   还有其他的更好的SQL加载方案吗  最后的这种加载方式

任何数据源都可以，试试改成

If e.Table.Current IsNot Nothing Then
    Dim Filter As String = "订单编号 = \'" & e.Table.Current("订单编号") & "\'"
    DataTables("订单明细").RemoveFor(Filter)
    DataTables("订单明细").AppendLoad(Filter) \'则追载此订单的订单明细
End If