本来我不留意appendload的bug,只是这次更新有提到,于是我特意留意一下。我把系统备份了一个,才安装最新的7月8号版本。同样的代码,新版本的appendload就出问题,追载不出数据,
'------追载表达式的父表ASItemInfo
If DataTables("ASItemPrintBarcode").DataRows.Count >0 Then
For Each dr As DataRow In DataTables("ASItemPrintBarcode").DataRows
Dim Filter As String ="ASItemID = '" & dr("ASItemID") & "'"
If DataTables("ASItemInfo").find(Filter) Is Nothing Then '如果对 应的订单明细没有加载过
DataTables("ASItemInfo").AppendLoad(Filter,False) '则追载此订单 的订单明细
MessageBox.show(1)
End If
Next
End If
MessageBox.show(2)
'------追载表达式的父表ASItemInfo
旧版本的,就能追载出数据,没有任何问题。
我还特意放了messagebox在里面看看,每次循环messbox.show(1)都有出来,也就是代码都有执行,然而没有追载出任何数据