代码变成这样
Dim Filter As String With RibbonTabs("sx").Groups("sx").Items("cmbmc") If .Text IsNot Nothing Then Filter = "名称 Like '*" & .Text & "*'" End If End With With RibbonTabs("sx").Groups("sx").Items("cmbgg") If .Text IsNot Nothing Then If Filter > "" Then Filter = Filter & " And " End If Filter = Filter & "规格型号 Like '*" & .Text & "*'" End If End With If Filter > "" Then CurrentTable.Filter = Filter End If
|