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


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

主题:[求助] 条件查询

美女呀,离线,留言给我吧!
susanhe
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:312 积分:2477 威望:0 精华:0 注册:2018/11/22 20:30:00
[求助] 条件查询  发帖心情 Post By:2018/11/22 20:44:00 [只看该作者]

这几天刚接触这个foxtable,请大侠们来帮忙,

 

我要做个条件查询,如表。

 

当只输入第一列内容时,就可查询表中的相关记录,先模糊查,直到输入精确,输完结查就出来,不用按键

 

当输入第二列时,在第一列的基础上找,也是先模糊查,直到输入精确,输完结查就出来,不用按键

 

当输入第十列时,在第一,二列的基础上找,也是先模糊查,直到输入精确,输完结查就出来,不用按键

 

当某列中的内容为空时,默认全部记录。

 

请各位提供一下,看看有没有好的可用。附上表。感谢。

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目001.table


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/11/22 21:14:00 [只看该作者]


 回到顶部
美女呀,离线,留言给我吧!
susanhe
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:312 积分:2477 威望:0 精华:0 注册:2018/11/22 20:30:00
  发帖心情 Post By:2018/11/22 23:09:00 [只看该作者]

初识这个,大侠可不可以帮忙加到实例中,对我来说还是第一次用这个。


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/11/23 9:07:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目001 (1).table


 回到顶部
美女呀,离线,留言给我吧!
susanhe
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:312 积分:2477 威望:0 精华:0 注册:2018/11/22 20:30:00
  发帖心情 Post By:2018/11/23 18:16:00 [只看该作者]

非常棒,谢谢。再咨询一下,如果我要将第十列改成日期型,输入下拉日期框型的。能帮忙调整一下吗 ?

 

 

Dim t1 As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim t2 As WinForm.TextBox = e.Form.Controls("TextBox2")
Dim t3 As WinForm.TextBox = e.Form.Controls("TextBox3")
Dim filter As String = "1=1"
If t1.text > "" Then
    filter &= " and 第一列 like '%" & t1.text & "%'"
End If
If t2.text > "" Then
    filter &= " and 第四列 like '%" & t2.text & "%'"
End If
If t3.text > "" Then
    filter &= " and 第十列 like '%" & t3.text & "%'"
End If
e.Form.controls("table1").Table.filter = filter


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110333 积分:561507 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/11/23 20:05:00 [只看该作者]

Dim t3 As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker1")
-------------
filter &= " and 第十列 like '%" & t3.text & "%'"

改为

filter &= " and 第十列 = #" & t3.Value & "#"

 回到顶部
美女呀,离线,留言给我吧!
susanhe
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:312 积分:2477 威望:0 精华:0 注册:2018/11/22 20:30:00
  发帖心情 Post By:2018/11/23 20:24:00 [只看该作者]

谢谢。

 回到顶部
美女呀,离线,留言给我吧!
susanhe
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:312 积分:2477 威望:0 精华:0 注册:2018/11/22 20:30:00
  发帖心情 Post By:2018/11/23 21:01:00 [只看该作者]

大侠, 我把texbox1改成combobox1,出现类型不对,能帮忙修改一下吗? 谢谢。

 

Dim t1 As WinForm.TextBox = e.Form.Controls("Combobox1")
Dim t2 As WinForm.TextBox = e.Form.Controls("TextBox2")

Dim t3 As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker2")

Dim filter As String = "1=1"
If t1.text > "" Then
    filter &= " and Endcustomer like '%" & t1.text & "%'"
End If
If t2.text > "" Then
    filter &= " and GSSpart like '%" & t2.text & "%'"
End If

If t3.text > "" Then

     filter &= " and ETD = #" & t3.Value & "#"
'    filter &= " and ETD like '%" & t3.text & "%'"
End If
e.Form.controls("table1").Table.filter = filter


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110333 积分:561507 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/11/23 21:09:00 [只看该作者]

Dim t1 As WinForm.Combobox= e.Form.Controls("Combobox1")


 回到顶部
美女呀,离线,留言给我吧!
susanhe
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:312 积分:2477 威望:0 精华:0 注册:2018/11/22 20:30:00
  发帖心情 Post By:2018/11/29 7:51:00 [只看该作者]

版主,再请问一下,记录查询出来了,可以查询表是不是进行编辑的,如何是查询结果中双点某个人员后出现带出该人员的基本资料进行修改。谢谢。

 回到顶部
总数 18 1 2 下一页