Dim ss As StringWith RibbonTabs("客户专区")("供应商查询") ss = .Items("ddd").TextEnd WithDataTables("产品库").LoadFilter = "供应商 = '" & ss & "' "DataTables("产品库").Load
http://www.foxtable.com/help/topics/1111.htm