这是我制文时间格式的转换：

Select Case e.Col.Name
  Case "制文时间"
        If e.Row.IsNull(e.Col.Name) Then Return
        Dim d As Date = e.Row(e.Col.Name)
        e.Text = Format(d, "yyyyMM")
End Select

这是我查询的代码：

Dim zd As RibbonMenu.ComboBox = RibbonTabs("退休管理").Groups("筛选").Items("字段")
Dim cxz As RibbonMenu.TextBox = RibbonTabs("退休管理").Groups("筛选").Items("查询值")

If zd.Text = "姓名" Then
Tables("退休信息").Filter = "姓名 like \'*" & cxz.Text & "*\'"
Else
Tables("退休信息").Filter = "退休单位 like \'*" & cxz.Text & "*\'"
End If
If zd.Text = "退休单位" Then
Tables("退休信息").Filter = "退休单位 like \'*" & cxz.Text & "*\'"
Else
Tables("退休信息").Filter = "制文时间 like " & "\'%" &  cxz.Text & "*\'"
End If

为什么不能查询201703，只能分开查询2017或3？

Tables("退休信息").Filter = "制文时间 like " & "\'%" &  cxz.Text & "*\'"

改成

Tables("退休信息").Filter = "制文时间 like \'%" &  cxz.Text & "%\'"

还是不行，不能查到相关数据！

此主题相关图片如下：无标题.jpg

当我输入查询内容201704时，只显示制文时间为201704的相关数据。

是字符型，第一段代码在DrawCell事件中