代码这样写,判断逻辑列,写入 True 或 False
Dim zd As RibbonMenu.ComboBox = RibbonTabs("外销管理").Groups("筛选").Items("字段")Dim cxz As RibbonMenu.TextBox = RibbonTabs("外销管理").Groups("筛选").Items("查询值")Tables("外销订单").Filter = "Convert(" & zd.Text & ",'System.String') Like '*" & cxz.Text & "*'"