每个引用的地方都写这段代码,然后换一下表名,比如
引用1
......
t.DataTable.LoadFilter = "物料编号 = '" & Tables("资产负债表").current("原材料") & "'"
引用2
t.DataTable.LoadFilter = "物料编号 = '" & Tables("其它表").current("原材料") & "'"