以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]请教查询明细  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=133789)

--  作者:冷泉
--  发布时间:2019/4/20 13:49:00
--  [求助]请教查询明细
老师下午好,我简单做了一个表学习,不知道这个查询按钮的代码该如何写,希望通过这个资金账户,或者资金账户+科目名称或者录入日期,来查询这个收入明细,能否指点一下,文件已经传上去了
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目6.table


--  作者:有点蓝
--  发布时间:2019/4/20 14:09:00
--  
首先查询用的文本框,组合框不要绑定列。

然后查询按钮
Dim Filter As String
With e.Form.Controls("资金账户")
    If .Value IsNot Nothing Then
        Filter = "资金账户 = \'" & .Value & "\'"
    End If
End With
With e.Form.Controls("科目名称")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "科目名称 = \'" & .Value & "\'"
    End If
End With
Tables("收入记账").Filter = Filter

--  作者:冷泉
--  发布时间:2019/4/20 14:20:00
--  
好的,谢谢老师