| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]模糊查询 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=80663) |
| -- 作者：zchlln -- 发布时间：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 -- 发布时间：2016/1/28 13:50: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
|
| -- 作者：大红袍 -- 发布时间：2016/1/28 14:46:00 -- 以下是引用zchlln在2016/1/28 13:50:00的发言：
双击窗口中的表中的单元格 在同窗口中的文本框里直接显示该车牌号 要怎么写呢
doubleClick事件
Forms("回款录入窗").Controls("TextBox1").Text = e.Row(e.col.Name) |
| -- 作者：zchlln -- 发布时间：2016/1/28 14:48:00 -- 谢谢大神帮助 |
| -- 作者：zchlln -- 发布时间：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 这个代码 我在我的电脑上可以使用 换个电脑就不能用了 其他代码都正常 也不报错为什么呢？ |
| -- 作者：大红袍 -- 发布时间：2016/2/2 9:41:00 -- 做个例子上来测试一下。
你在代码那里弹出一下 msgbox(date.Now) 看看日期有什么不同。 |
| -- 作者：大红袍 -- 发布时间：2016/2/2 9:41:00 -- 或者你把日期同一设置成一样的格式。
http://jingyan.baidu.com/article/647f0115925aee7f2148a8b5.html
|
| -- 作者：zchlln -- 发布时间：2016/2/2 9:46:00 -- 好的 我试试 |