以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]如何把按日期查询的数量和金额加一个总的汇总数据  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=137966)

--  作者:冷泉
--  发布时间:2019/7/19 11:19:00
--  [求助]如何把按日期查询的数量和金额加一个总的汇总数据
我想点击查询按钮,
图片点击可在新窗口打开查看此主题相关图片如下:000000000000000.jpg
图片点击可在新窗口打开查看
在表上面显示,应该如何操作了,麻烦老师指点下,谢谢
附件有上传操作界面


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
With e.Form.Controls("StartDate")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "日期 >= #" & .Value & "#"
    End If
End With
With e.Form.Controls("EndDate")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "日期 <= #" & .Value & "#"
    End If
End With

Tables("进货单").Filter = Filter
[此贴子已经被作者于2019/7/19 11:20:04编辑过]

--  作者:有点蓝
--  发布时间:2019/7/19 11:25:00
--  
参考:http://www.foxtable.com/webhelp/topics/2750.htm
--  作者:冷泉
--  发布时间:2019/7/19 11:36:00
--  
好的,谢谢老师