以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  向各位高手请教！！！  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=96993)
--  作者：xhydxs
--  发布时间：2017/3/3 17:03:00
--  向各位高手请教！！！

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

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？
--  作者：有点色
--  发布时间：2017/3/3 18:28:00
--  

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

 

改成

 

Tables("退休信息").Filter = "制文时间 like \'%" &  cxz.Text & "%\'"
--  作者：xhydxs
--  发布时间：2017/3/3 21:25:00
--  

还是不行，不能查到相关数据！
--  作者：wyz20130512
--  发布时间：2017/3/3 21:27:00
--  
把你想要的效果描述一下，并发一个截图。
--  作者：xhydxs
--  发布时间：2017/3/3 21:40:00
--  


图片点击可在新窗口打开查看此主题相关图片如下：无标题.jpg
图片点击可在新窗口打开查看

当我输入查询内容201704时，只显示制文时间为201704的相关数据。
--  作者：有点蓝
--  发布时间：2017/3/3 22:07:00
--  
制文时间原始数据是怎么样的？日期型还是字符型？

第一段代码在什么事件中的？
--  作者：xhydxs
--  发布时间：2017/3/3 22:25:00
--  
字符型！
--  作者：xhydxs
--  发布时间：2017/3/3 22:29:00
--  
在DataRowAdded中
--  作者：xhydxs
--  发布时间：2017/3/3 22:31:00
--  
以下是引用有点蓝在2017/3/3 22:07:00的发言：
制文时间原始数据是怎么样的？日期型还是字符型？

第一段代码在什么事件中的？

是字符型，第一段代码在DrawCell事件中
--  作者：有点蓝
--  发布时间：2017/3/3 22:34:00
--  
制文时间原始数据是怎么样的？截图看看

不是drawcell后的数据