Foxtable(狐表)用户栏目专家坐堂 → [求助]从后台筛选符合项并在表中展示出来


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

主题:[求助]从后台筛选符合项并在表中展示出来

帅哥哟,离线,有人找我吗?
mengxxaa
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:98 积分:837 威望:0 精华:0 注册:2022/10/10 15:34:00
[求助]从后台筛选符合项并在表中展示出来  发帖心情 Post By:2023/3/24 9:32:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下:1.png
图片点击可在新窗口打开查看
求助1:想把“选择”按钮放到表的doubleclick事件中,并跟之前的事件不起冲突。
求助2:点击“查询”按钮,从数据库中筛选符合项并在表中展示。查看了帮助的一个案例,觉得那个代码简单,但是不会写从数据库查找的代码。
以上传实例,望老师指点

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


加好友 发短信
等级:幼狐 帖子:98 积分:837 威望:0 精华:0 注册:2022/10/10 15:34:00
  发帖心情 Post By:2023/3/24 9:33:00 [显示全部帖子]

补充附件

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


加好友 发短信
等级:幼狐 帖子:98 积分:837 威望:0 精华:0 注册:2022/10/10 15:34:00
  发帖心情 Post By:2023/3/24 9:34:00 [显示全部帖子]

      
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:练习实例.zip


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


加好友 发短信
等级:幼狐 帖子:98 积分:837 威望:0 精华:0 注册:2022/10/10 15:34:00
  发帖心情 Post By:2023/3/24 9:34:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下:2.png
图片点击可在新窗口打开查看

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


加好友 发短信
等级:幼狐 帖子:98 积分:837 威望:0 精华:0 注册:2022/10/10 15:34:00
  发帖心情 Post By:2023/3/24 10:41:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下:123.png
图片点击可在新窗口打开查看
如果把之前的doubleclick事件取消后,我这里就用不了。怎样把两者都放到doubleclick里?

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


加好友 发短信
等级:幼狐 帖子:98 积分:837 威望:0 精华:0 注册:2022/10/10 15:34:00
  发帖心情 Post By:2023/3/24 14:07:00 [显示全部帖子]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:练习实例1.zip
试了几次,总是两者只得其一,烦请老师给出代码

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


加好友 发短信
等级:幼狐 帖子:98 积分:837 威望:0 精华:0 注册:2022/10/10 15:34:00
  发帖心情 Post By: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事件执行,如何做到两者都能顺利执行。

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


加好友 发短信
等级:幼狐 帖子:98 积分:837 威望:0 精华:0 注册:2022/10/10 15:34:00
  发帖心情 Post By:2023/3/24 15:27:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下:2.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:1.png
图片点击可在新窗口打开查看
在什么条件下运行什么代码。如图

 回到顶部