If Forms("产品库存").Opened AndAlso Forms("产品库存").Controls("产品列表").Table.Current IsNot Nothing Then
Tables("入库明细单").Filter = "产品ID = '" & Forms("产品库存").Controls("产品列表").Table.Current("产品ID") & "'"
Else
Tables("入库明细单").Filter = ""
End If
加好友 
发短信
Post By：2015/7/22 16:59:00 [只看该作者]
