Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何设计查询快捷菜单？


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

主题：如何设计查询快捷菜单？
帅哥哟，离线，有人找我吗？
yacity
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：532 积分：4020 威望：0 精华：0 注册：2011/6/18 12:41:00 		如何设计查询快捷菜单？  发帖心情 Post By：2020/2/29 11:02:00 [只看该作者]

我们用的右键快捷菜单 90%以上都是查询功能。而查询的时候90都包含*号。比如12*13 等等。但是foxtable 不支持直接查询带*号。就想到自己做一个右键快捷查询的模块。
有个问题没搞明白，这个查询窗口要归到哪一个表呢？做出了查询窗口，代码该怎么写？如何保证它能够适用所有的表呢？


此主题相关图片如下：4.jpg
按此在新窗口浏览图片
[此贴子已经被作者于2020/2/29 11:03:54编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107304 积分：545781 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/2/29 11:08:00 [只看该作者]

窗口使用独立，模式窗口或者共有窗口，不需要归到哪个表，所有者表清空即可

当前表使用currenttable即可适用所有的表

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


加好友 发短信
等级：二尾狐 帖子：532 积分：4020 威望：0 精华：0 注册：2011/6/18 12:41:00 		  发帖心情 Post By：2020/3/1 9:04:00 [只看该作者]

能够查询包含*号的 字符串，适用所有当前表，当前列，代码怎么写呢？

图片点击可在新窗口打开查看此主题相关图片如下：5.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
yacity
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：532 积分：4020 威望：0 精华：0 注册：2011/6/18 12:41:00 		  发帖心情 Post By：2020/3/1 10:17:00 [只看该作者]

Dim Filter As String
With e.Form.Controls("textbox1")
    If .Value IsNot Nothing Then
 Filter =  "guige like '%" & .Value.Replace("*", "[*]") & "%' or chanpinname like '%" & .Value.Replace("*", "[*]") & "%' "
   
    End If
End With

If Filter > "" Then
  CurrentTable.Filter = Filter
End If

如果要适用当前表，当前列 怎么写？
 回到顶部
帅哥哟，离线，有人找我吗？
y2287958
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：4643 积分：33865 威望：0 精华：0 注册：2008/8/31 22:44:00 		  发帖心情 Post By：2020/3/1 10:20:00 [只看该作者]

CurrentTable.Cols(CurrentTable.ColSel)

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


加好友 发短信
等级：二尾狐 帖子：532 积分：4020 威望：0 精华：0 注册：2011/6/18 12:41:00 		  发帖心情 Post By：2020/3/1 16:12:00 [只看该作者]

？？？还是不会弄，能明示一下吗？

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


加好友 发短信
等级：超级版主 帖子：107304 积分：545781 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/3/1 23:01:00 [只看该作者]

If Filter > "" Then
  CurrentTable.Filter = Filter
End If

这个用法就已经是适用当前表了
 回到顶部
帅哥哟，离线，有人找我吗？
yacity
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：532 积分：4020 威望：0 精华：0 注册：2011/6/18 12:41:00 		  发帖心情 Post By：2020/3/2 8:47:00 [只看该作者]

适用当前列呢？

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


加好友 发短信
等级：超级版主 帖子：107304 积分：545781 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/3/2 8:50:00 [只看该作者]

比如

Filter =  CurrentTable.Cols(CurrentTable.ColSel).name & " like '%" & .Value.Replace("*", "[*]") & "%' "

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


加好友 发短信
等级：二尾狐 帖子：532 积分：4020 威望：0 精华：0 注册：2011/6/18 12:41:00 		  发帖心情 Post By：2020/3/2 9:15:00 [只看该作者]

图片点击可在新窗口打开查看
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04102 秒, 4 次数据查询