以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  代码计算问题?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=82412)

--  作者:zsslly
--  发布时间:2016/3/17 14:24:00
--  代码计算问题?
如下代码:
e.Form.Controls("Table1").Table.Filter = "当月预签 = \'" & e.Form.Controls("ComboBox1").Text & "\'"
e.Form.Controls("ComboBox5").Text = e.Form.Controls("Table1").Table.Compute("sum(金额)")

如上代码中,表1中有“当月预签”的例,其中的内容是1月、2月、3月......,“金额”中对应的是单值,这个代码是把所有1月(或其它月)中的金额统计出来的

现在是表中还有一个“收款”列,其中内容有“已到账”,“转账中”,“未转账”,“......”我想把1月(或其它月)中所有“已到账”的单值统计出来应该怎么改代码?求教?

--  作者:大红袍
--  发布时间:2016/3/17 14:38:00
--  
Dim filter As String = "当月预签 = \'" & e.Form.Controls("ComboBox1").Text & "\' and 收款 = \'已到账\'"
e.Form.Controls("ComboBox5").Text = e.Form.Controls("Table1").Table.Compute("sum(金额)", filter)

--  作者:zsslly
--  发布时间:2016/3/17 21:15:00
--  
谢谢老师!