狐爸 各位狐友 好!帮助 “父表和子表同步加载之三”中代码
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
借用后出错,
将 Dim Filter As String = "订单编号 = " & e.Table.Current("订单编号")
改为
Dim Filter As String = "订单编号 ='" & e.Table.Current("订单编号")"'"
ok