如下
Dim zd As RibbonMenu.ComboBox = RibbonTabs("外销管理").Groups("筛选").Items("字段")Dim cxz As RibbonMenu.TextBox = RibbonTabs("外销管理").Groups("筛选").Items("查询值")Tables("外销订单").Filter = zd.Text & " Like '*" & cxz.Text & "*'"