主题：向各位高手请教！！！

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

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？