If e.Table.Current IsNot Nothing Then Dim Filter As String = "生产单号 = '"& e.Table.Current("编号") &"'" If DataTables("生产工序表").Find(Filter) Is Nothing Then '如果对应的订单明细没有加载过msgbox(1) ‘能不能弹出？
DataTables("生产工序表").AppendLoad(Filter) '则追载此订单的订单明细
End If
If DataTables("生产_产品表").Find(Filter) Is Nothing Then '如果对应的订单明细没有加载过
msgbox(2) ‘能不能弹出？
DataTables("生产_产品表").AppendLoad(Filter) '则追载此订单的订单明细
End If
Dim Filter2 As String = "编号 = '"& e.Table.Current("编号") &"'"
If DataTables("生产标准用量表").Find(Filter2) Is Nothing Then '如果对应的订单明细没有加载过
msgbox(3) ‘能不能弹出？
DataTables("生产标准用量表").AppendLoad(Filter2) '则追载此订单的订单明细
End If
End If
加好友 
发短信
Post By：2021/6/1 9:20:00 [显示全部帖子]
