- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]从后台筛选符合项并在表中展示出来 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=185897)
-- 发布时间：2023/3/24 9:32:00
-- [求助]从后台筛选符合项并在表中展示出来
此主题相关图片如下：1.png
求助1：想把“选择”按钮放到表的doubleclick事件中，并跟之前的事件不起冲突。
求助2：点击“查询”按钮，从数据库中筛选符合项并在表中展示。查看了帮助的一个案例，觉得那个代码简单，但是不会写从数据库查找的代码。
以上传实例，望老师指点
-- 发布时间：2023/3/24 9:33:00
--
补充附件
-- 发布时间：2023/3/24 9:34:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:练习实例.zip |
-- 发布时间：2023/3/24 9:34:00
--
此主题相关图片如下：2.png
-- 发布时间：2023/3/24 10:16:00
--
把筛选的代码改为加载即可：http://www.foxtable.com/webhelp/topics/1928.htm
-- 发布时间：2023/3/24 10:41:00
--
此主题相关图片如下：123.png
如果把之前的doubleclick事件取消后，我这里就用不了。怎样把两者都放到doubleclick里？
-- 发布时间：2023/3/24 10:46:00
--
判断一下窗口是否有打开再使用里面的控件：http://www.foxtable.com/webhelp/topics/0705.htm
-- 发布时间：2023/3/24 14:07:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:练习实例1.zip |
试了几次，总是两者只得其一，烦请老师给出代码
-- 发布时间：2023/3/24 14:31:00
--
怎么测试，什么地方有问题？
-- 发布时间：2023/3/24 14:40:00
--
代码1：
Dim tbl As Table = Tables("窗口1_Table1")
If tbl.Current IsNot Nothing Then
Tables("订单").Current("客户ID") = tbl.Current("客户ID")
End If
Forms("窗口1").Close()
代码2：
e.Cancel = True
Dim dst As Table = Tables("窗口1_Table1")
Dim dr As Row = e.Row \'获得选定行
Dim str As String = e.Table.name
If dst.Count > 0 Then
e.Cancel = True
If Vars("str101") = "查找" Then
Forms(Vars("str101")).Controls("TextBox1").value = dr("客户ID")
End If
Forms("窗口1").Close()
End If
End If
把这两个代码都放到表的doubleclick事件执行，如何做到两者都能顺利执行。