以文本方式查看主题

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

--  作者:工匠
--  发布时间:2020/11/18 11:10:00
--  [讨论]关于月度统计
老师好:

请教2段代码:
1.窗口控件显示采购明细的当月1号到最后一天的采购金额
Forms("汇总").Controls("采购金额").Text = "采购金额:  " &  dataTables("采购明细").Compute("sum(采购金额)").....当月第一天   到当月最后一天

2.窗口控件显示采购明细的窗口日期控件开始日期到截止日期范围的采购金额
Forms("汇总").Controls("采购金额").Text = "采购金额:  " &  dataTables("采购明细").Compute("sum(采购金额)").....窗口控件开始日期   到窗口控件截止日期 (任意范围之间)


谢谢!

--  作者:有点蓝
--  发布时间:2020/11/18 11:41:00
--  
参考:http://www.foxtable.com/webhelp/topics/2720.htm
--  作者:工匠
--  发布时间:2020/11/18 13:59:00
--  
谢谢老师,可以按日期条件范围计算了

另外请教一下:
窗口日期时间控件以及表日期时间列
1.日期类型下拉选择无法选择小时/分/秒,有没有办法直接对日期进行赋值到日期(年-月-日)后面加上实时的小时/分/秒:比如选择日期是:(2020-11-18),直接赋值为:(2020-11-18 加上现在实时的小时-分-秒  结果为:2020-11-18 13:54:15
1.日期类型下拉选择无法选择小时/分/秒,有没有办法直接对日期进行赋值到日期(年-月-日)后面加上固定的小时/分/秒:比如选择日期是:(2020-11-18),直接赋值为:(2020-11-18 加上现在实时的小时-分-秒  结果为:2020-11-18 08:00:00


谢谢!

--  作者:有点蓝
--  发布时间:2020/11/18 14:26:00
--  
目前只能手工录入时分秒,或者使用代码赋值
--  作者:工匠
--  发布时间:2020/11/18 15:25:00
--  
谢谢老师,手工录入效率太低了,请帮写个代码赋值例子,谢谢!
--  作者:有点蓝
--  发布时间:2020/11/18 15:26:00
--  
Forms("xx").Controls("日期控件").value = date.now
--  作者:工匠
--  发布时间:2020/11/18 15:39:00
--  
谢谢老师,如果赋值当前实际实时的日期+时间(年月日小时分秒)是可以的,实际需求是:1.年月日是选择的日期,2.小时/分/秒是现在实时的。

比如选择2020-12-12  ,要求结果:2020-12-12 15:35:15   而不应该是:2020-11-18 15:35:15

请老师再帮看看,谢谢!



--  作者:有点蓝
--  发布时间:2020/11/18 15:42:00
--  
Forms("xx").Controls("日期控件").value = cdate(format(Forms("xx").Controls("日期控件").value,"yyyy-MM-dd ") & format(date.now,"HH:mm:ss"))
--  作者:工匠
--  发布时间:2020/11/18 15:47:00
--  
谢谢蓝老师,就是这种效果。这样的话各种余下时间的计算就精确了!!!

谢谢!!!