简单的，用关联。代码的，用十几行代码，并需要相应列辅助。
参考思路，在表2后台中，查询存在表1的数据，并在表2中其中一列标明在表1中存在，然后将需要的结果重新加载。
如果没代码基础，只能去好好学习（。号去掉，论坛安全问题）。
With Tables("BOM单级反查")
If .Position = -1 Then
MessageBox.Show("BOM表无数据!")
Else
Dim cmd As New SQLCommand
cmd.C。onnection。Name = "prork"cmd.CommandText = "U。pdate {产品入库序时簿} SET 涉及产品 = ''"
cmd.ExecuteNonQuery()
cmd.CommandText = "U。pdate {产品入库序时簿},{BOM单级反查} SET {产品入库序时簿}.涉及产品 = 'YES' WHERE {产品入库序时簿}.[物料长代码] = {BOM单级反查}.[父项物料代码]"
cmd.ExecuteNonQuery()
DataTables("产品入库序时簿").LoadFilter = "涉及产品 = 'YES'"
DataTables ("产品入库序时簿").Load()
MessageBox.Show("执行完成!")
End If
End With
[此贴子已经被作者于2018/10/29 12:08:43编辑过]
加好友 
发短信
Post By：2018/10/29 12:06:00 [显示全部帖子]
