Dim Filter As String
Filter = " 制单人='" & _UserName & "' And 审核='未审核'"
DataTables("请购主表").LoadFilter = Filter
DataTables("请购主表").Load()
'e.DataTable.LoadChildren("请购明细")'
此主题相关图片如下:加载问题.jpg
问题一:红字的代码报错
问题二:模拟关联的加载,如何加载更优、更高效?
问题三:父表与子表同步
避免数据重复加载:
代码一
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
代码二
If Forms("窗口1").Opened() '
Dim t As Table = Tables("窗口1_Table1")
With Tables("产品")
If .Current Is Nothing Then
t.Filter = "False"
Else
t.Filter = "产品编号 = " & .Current("产品编号")
End IF
End With
End If
代码一和代码二是单独使用好,还是可以合并使用?