主题：菜单设计

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目9-29.table

请教老师，想在菜单设计中添加一个，具有模糊筛选功能的菜单组件，写好后不起作用，

Dim cmbmc As String
Dim cmbgg As String
Dim Filter As String
With RibbonTabs("sx").Groups("sx").Items("cmbmc")
    If cmbmc IsNot Nothing Then
        Filter = "名称 Like '*" & .Value & "*'"
    End If
End With
With RibbonTabs("sx").Groups("sx").Items("cmbgg")
    If cmbgg IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "规格型号 Like '*" & .Value & "*'"
    End If
End With
If Filter > "" Then
    CurrentTable.Filter = Filter
End If

这是我写的筛选CLick事件，不知道哪里有问题，请指点，谢谢