Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]模糊查询


  共有2074人关注过本帖树形打印复制链接

主题：[求助]模糊查询
帅哥哟，离线，有人找我吗？
zchlln
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：118 积分：1161 威望：0 精华：0 注册：2013/9/9 14:34:00 		[求助]模糊查询  发帖心情 Post By：2016/1/28 12:33:00 [只看该作者]

字符模糊查询用like 那日期的用什么呢？或者不用模糊 完全匹配也可以 应该用什么呢
这个问题已经解决了 但为什么查不到匹配的呢
Dim txt As String = e.Form.Controls("DateTimePicker3").Text
Dim tbl As Table = Tables("回款录入窗_Table1")
If txt = "" Then
    tbl.Filter = ""
Else
    txt = "'%" & txt & "%'"
    tbl.Filter = "安装日期" = txt
End If

现在我改成这样了 也不行呢？
Dim txt As String = e.Form.Controls("DateTimePicker3").Text
Dim tbl As Table = Tables("回款录入窗_Table1")
If txt = "" Then
    tbl.Filter = ""
Else
    txt = "'%" & txt & "%'"
    tbl.Filter = "Convert(安装日期, 'System.String') Like " & txt
End If
好像是因为dataTimePicker3输入的格式是日期格式 所以不行 但我搞不清转换应该怎么加
[此贴子已经被作者于2016/1/28 13:19:07编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
zchlln
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：118 积分：1161 威望：0 精华：0 注册：2013/9/9 14:34:00 		  发帖心情 Post By：2016/1/28 13:50:00 [只看该作者]

双击窗口中的表中的单元格 在同窗口中的文本框里直接显示该车牌号 要怎么写呢

 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/1/28 14:44:00 [只看该作者]

试试

 

Dim txt As String = e.Form.Controls("DateTimePicker3").Text
Dim tbl As Table = Tables("回款录入窗_Table1")
If txt = "" Then
    tbl.Filter = ""
Else
    txt = "'%" & txt.Replace("-0", "/").replace("-", "/") & "%'"
    tbl.Filter = "Convert(安装日期, 'System.String') Like " & txt
End If
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/1/28 14:46:00 [只看该作者]

以下是引用zchlln在2016/1/28 13:50:00的发言：
双击窗口中的表中的单元格 在同窗口中的文本框里直接显示该车牌号 要怎么写呢

 

doubleClick事件

 

Forms("回款录入窗").Controls("TextBox1").Text = e.Row(e.col.Name)
 回到顶部
帅哥哟，离线，有人找我吗？
zchlln
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：118 积分：1161 威望：0 精华：0 注册：2013/9/9 14:34:00 		  发帖心情 Post By：2016/1/28 14:48:00 [只看该作者]

谢谢大神帮助

 回到顶部
帅哥哟，离线，有人找我吗？
zchlln
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：118 积分：1161 威望：0 精华：0 注册：2013/9/9 14:34:00 		  发帖心情 Post By：2016/2/2 9:38:00 [只看该作者]

以下是引用大红袍在2016/1/28 14:44:00的发言：

试试

 

Dim txt As String = e.Form.Controls("DateTimePicker3").Text
Dim tbl As Table = Tables("回款录入窗_Table1")
If txt = "" Then
    tbl.Filter = ""
Else
    txt = "'%" & txt.Replace("-0", "/").replace("-", "/") & "%'"
    tbl.Filter = "Convert(安装日期, 'System.String') Like " & txt
End If

这个代码 我在我的电脑上可以使用 换个电脑就不能用了 其他代码都正常 也不报错为什么呢？
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/2/2 9:41:00 [只看该作者]

 做个例子上来测试一下。

 

 你在代码那里弹出一下 msgbox(date.Now) 看看日期有什么不同。
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/2/2 9:41:00 [只看该作者]

或者你把日期同一设置成一样的格式。

 

http://jingyan.baidu.com/article/647f0115925aee7f2148a8b5.html

 
 回到顶部
帅哥哟，离线，有人找我吗？
zchlln
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：118 积分：1161 威望：0 精华：0 注册：2013/9/9 14:34:00 		  发帖心情 Post By：2016/2/2 9:46:00 [只看该作者]

好的 我试试

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04883 秒, 4 次数据查询