以文本方式查看主题

-  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=91783)

--  作者:hsg1200
--  发布时间:2016/10/18 22:52:00
--  合计按钮
我想在实战五里面再加一个合计按钮,让筛选结果能合计总数。能不能设,如果能请问怎么设?谢谢
--  作者:有点蓝
--  发布时间:2016/10/19 8:39:00
--  
http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=91658

Dim StartDate As Date
Dim
 EndDate As Date
With
 RibbonTabs("实战演练")("任务五")
    StartDate = .Items(
"StartDate").Value
    EndDate = .Items(
"EndDate").Value
End
 With
Tables("订单")
.Filter = "[日期] >= #" & StartDate & "# And [日期] <= #" & EndDate & "#"
Tables("订单").Cols("数量").GrandTotal = True \'指定要合计的列
Tables(
"订单").Cols("金额").GrandTotal = True
Tables(
"订单").GrandTotal = True \'显示合计模式

--  作者:hsg1200
--  发布时间:2016/10/19 21:41:00
--  
谢谢!已经用上了
--  作者:hsg1200
--  发布时间:2016/11/7 20:43:00
--  
我想在购水明细表中的日期列设个连续三个月没购水为红色,如果购买了就还原的代码该怎么写?
--  作者:有点蓝
--  发布时间:2016/11/7 21:05:00
--  
请不用重复发帖

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=92590