窗口AfterLoad事件
If Forms("产品进销存").Opened Then If Tables("产品进销存_Table1").Current IsNot Nothing Then Vars("查询代码") = Tables("产品进销存_Table1").Current("商品代码") End IfEnd If
也就是根据Tables("产品进销存_Table1").Current("商品代码")生成这个条件表达式
商品代码 = '" & Vars("查询代码") & "'
在窗口Select 语句输入栏可能对 Vars("查询代码") 这个变量不认识,改为全局变量试试,或将此Select 语句直接在
窗口AfterLoad事件中执行。