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

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

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

wumingrong1

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

加好友

发短信

等级：五尾狐帖子：1029 积分：6497 威望：0 精华：0 注册：2014/1/3 12:49:00

[求助] 查询按钮公式 发帖心情

Post By：2015/5/13 17:25:00 [只看该作者]

我的查询按钮公式如下：

vars("查询") = True

Dim flt As String

For Each c As Col In Tables("抢修整治迁改表").Cols

For Each ctl As WinForm.Control In e.Form.Controls

If c.Name = ctl.Name Then

If e.Form.Controls(ctl.Name).Text > "" Then

If c.IsDate Then

flt + = " And " & c.Name & " = #" & e.Form.Controls(ctl.Name).Text & "#"

ElseIf c.IsString Then

flt + = " And " & c.Name & " Like '%" & e.Form.Controls(ctl.Name).Text & "%'"

End If

If flt > "" Then

flt = flt.SubString(5)

Else

MessageBox.Show("请输入查询条件")

End If

Tables("抢修整治迁改表").Filter = flt

vars("查询") = False

我的查询窗口如下：为什么我选择【查看是否超时】和【处理是否超时】两个控件为False时；查询按钮公式没有生效

此主题相关图片如下：360截图20150513172156772.jpg

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/5/13 17:33:00 [只看该作者]

1、名称要和列一致

2、

For Each c As Col In Tables("抢修整治迁改表").Cols
    For Each ctl As WinForm.Control In e.Form.Controls
        If c.Name = ctl.Name Then
            If e.Form.Controls(ctl.Name).Text > "" Then
                If c.IsDate Then
                    flt + = " And " & c.Name & " = #" & e.Form.Controls(ctl.Name).Text & "#"
                ElseIf c.IsString Then
                    flt + = " And " & c.Name & " Like '%" & e.Form.Controls(ctl.Name).Text & "%'"
                ElseIf c.IsBoolean AndAlso e.Form.Controls(ctl.Name).Check Then
                    msgbox(c.Name)
                    flt + = " And " & c.Name & " = " & e.Form.Controls(ctl.Name).Checked
                End If
            End If
        End If
    Next
Next

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

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