你的意思是是打开 出入库窗口的时候,根据产品表筛选数据?
直接写筛选条件就行啊,AfterLoad事件
Tables("出库明细") = "产品 = '" & Forms("产品库存").Controls("table1").Table.Current("产品") & "'"