每个引用的地方都写这段代码，然后换一下表名，比如
引用1
......
t.DataTable.LoadFilter = "物料编号 = '" & Tables("资产负债表").current("原材料") & "'"
引用2
t.DataTable.LoadFilter = "物料编号 = '" & Tables("其它表").current("原材料") & "'"
加好友 
发短信
Post By：2015/10/23 15:54:00 [只看该作者]
