[求助] 查询按钮公式 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助] 查询按钮公式

共有4106人关注过本帖树形打印复制链接主题：[求助] 查询按钮公式

有点甜

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/6/27 10:48:00 [显示全部帖子]

如果有多行呢？

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/6/27 10:53:00 [显示全部帖子]

你可以参考这个方法。

http://www.foxtable.com/help/topics/0553.htm

有点甜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/6/27 10:55:00 [显示全部帖子]

以下是引用wumingrong1在2014-6-27 10:53:00的发言：
如果只有一行那么将光标移动到该行、如果有多行就进行筛选

Dim 输入查询日期 As Date = e.form.controls("输入查询日期").Value
Dim Filter As String = "[日期] = #"& 输入查询日期 & "#"
If Tables("网维中心值班表").Compute("count(_Identify)", filter) = 1 Then
Tables("网维中心值班表").Position = Tables("网维中心值班表").FindRow(filter, 0, False)
Else
Tables("网维中心值班表").filter = filter
End If

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/6/27 16:30:00 [显示全部帖子]

Dim 输入查询日期 As Date = e.form.controls("输入查询日期").Value
Dim Filter As String = "[日期] = #"& 输入查询日期 & "#"
Dim count As Integer = Tables("网维中心值班表").Compute("count(_Identify)", filter)
If count = 1 Then
    Tables("网维中心值班表").Position = Tables("网维中心值班表").FindRow(filter, 0, False)
Else If count = 0 Then
    msgbox("没查到")
Else
    Tables("网维中心值班表").filter = filter
End If

有点甜

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/6/27 16:47:00 [显示全部帖子]

去设置表的beforeFilter

Dim count As Integer = e.Table.Compute("count(_Identify)", e.Filter)
If count = 0 Then
msgbox("没有查找到")
e.cancel = True
End If

下一主题 >> << 上一主题

主题：[求助] 查询按钮公式