主题：菜单设计

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

点击浏览该文件:管理项目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事件，不知道哪里有问题，请指点，谢谢

 代码变成这样

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

OK ,非常感谢，这样就不用每个窗口留筛选窗口了。

在用这串代码的时候出现一个问题，就是名称或规格型号单元格里的内容不能为空，否则就会筛漏。但是在窗口的筛选里是允许其中的单元格没有内容的，如何改善呢，请老师指点，谢谢

 去掉为空的判断，如下代码：

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