以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  统计下拉列表里客户的当月的营业总额  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=177911)

--  作者:禾成
--  发布时间:2022/6/9 17:13:00
--  统计下拉列表里客户的当月的营业总额

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

老师好
如上图,当客户项下拉列表的值改变后,统计下拉列表当前客户当月的营业总额,显示在控件label25
这个代码应该怎么写?

--  作者:有点蓝
--  发布时间:2022/6/9 17:30:00
--  
e.form.controls("label25").text = datatables("报价主表").compute("sum(营业总额)","客户=\'" & e.form.controls("下拉控件").text & "\'")
--  作者:禾成
--  发布时间:2022/6/9 17:37:00
--  
当月这个时间条件在哪插入?
--  作者:有点蓝
--  发布时间:2022/6/9 17:39:00
--  
http://www.foxtable.com/webhelp/topics/2720.htm

Dim y As Integer = date.today.year \'指定年份
Dim 
m As Integer = date.today.month \'指定月份
Dim 
dt1 As New Date(ym1)
Dim 
dt2 As New Date(ymDate.DaysInMonth(y,m)) \'获取该月的最后一天
e.form.controls("label25").text = datatables("报价主表").compute("sum(营业总额)","客户=\'" & e.form.controls("下拉控件").text & "\' and 日期 >= #" & dt1 & "# And 日期 <= #" & dt2 & "#")