专家坐堂-后台统计年度到款，放到label控件Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  后台统计年度到款，放到label控件  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=73560)

--  作者：hawkgo
--  发布时间：2015/8/21 14:39:00
--  后台统计年度到款，放到label控件

If user.isrole("销售工程师") Then
Dim Val As Integer
Val = DataTables("合同管理_发票到款列表").SQLCompute("Sum("到款金额")","[销售工程师] = \'" & user.name & "\'" And "[到款日期] = \'" & Date.Today.Year & "\'")
e.Form.controls("Label2").Name = "本年度到款: \'" & val &"\'"

End If

没有可访问的sqlcompute 接受此数目的参数？

--  作者：大红袍
--  发布时间：2015/8/21 14:41:00
--

Val = DataTables("合同管理_发票到款列表").SQLCompute("Sum(到款金额)","[销售工程师] = \'" & user.name & "\' And [到款日期] = \'" & Date.Today.Year & "\'")

--  作者：hawkgo
--  发布时间：2015/8/21 15:18:00
--

If user.isrole("销售工程师") Then
Dim Val As Integer
Val = DataTables("合同管理_发票到款列表").SQLCompute("Sum(到款金额)","[销售工程师] = \'" & user.name & "\' And [到款日期] = \'" & Date.Today.Year & "\'")
e.Form.controls("Label2").text = "本年度到款:" & val & "."
\'
End If

这样可以了，但是怎么算出来结果val，是0呢？

--  作者：大红袍
--  发布时间：2015/8/21 15:19:00
--
0说明条件不对。到款日期是年，如2015？

--  作者：大红袍
--  发布时间：2015/8/21 15:20:00
--
Val = DataTables("合同管理_发票到款列表").SQLCompute("Sum(到款金额)","[销售工程师] = \'" & user.name & "\' And year([到款日期]) = \'" & Date.Today.Year & "\'")

--  作者：hawkgo
--  发布时间：2015/8/21 15:21:00
--
是的，就是今年的到款。
然后在统计这个月的到款
今天的到款。

我的合成表达式实在是渣，时灵时不灵。

--  作者：大红袍
--  发布时间：2015/8/21 15:41:00
--

日期的表达式，参考

http://www.foxtable.com/help/topics/2706.htm

--  作者：hawkgo
--  发布时间：2015/8/21 16:47:00
--

Val1 = DataTables("合同管理_发票到款列表").SQLCompute("Sum(到款金额)","[销售工程师] = \'" & user.name & "\' And Month([到款日期]) = \'" & Date.Today.Month & "\'")
Val2 = DataTables("合同管理_发票到款列表").SQLCompute("Sum(到款金额)","[销售工程师] = \'" & user.name & "\' And Day([到款日期]) = \'" & Date.Today.Day & "\'")


这两个统计出来的是，数据库所有年份当月的到款，8月21号的到款。
囧。

--  作者：大红袍
--  发布时间：2015/8/21 16:49:00
--
Val1 = DataTables("合同管理_发票到款列表").SQLCompute("Sum(到款金额)","[销售工程师] = \'" & user.name & "\' And Year([到款日期]) = \'" & Date.Today.Year & "\' and Month([到款日期]) = \'" & Date.Today.Month & "\'")

--  作者：大红袍
--  发布时间：2015/8/21 16:50:00
--
Val1 = DataTables("合同管理_发票到款列表").SQLCompute("Sum(到款金额)","[销售工程师] = \'" & user.name & "\' And Year([到款日期]) = \'" & Date.Today.Year & "\' and Month([到款日期]) = \'" & Date.Today.Month & "\' And day([到款日期]) = \'" & Date.Today.day & "\' ")