你搞得这么复杂干什么? 从谁这里学的? 依葫芦画瓢,也不至于画成这样啊?
明明这样就行了:
Dim ddb As String = Tables("订单").Current("订单号")DataTables("订单明细").LoadFilter = "订单号 = '" & ddb & "'"DataTables("订单明细表").Load()
建议看看关联表同步加载:
http://www.foxtable.com/help/topics/2228.htm