- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 代码 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=74640)
-- 发布时间：2015/9/15 23:01:00
-- 代码
附件中有三张表，分别是合同明细、未完合同、销售地区，这个例子中我编写的代码每重置一次都签订次数统计结果会增加一倍，代码需要怎么改才能实现目的呢
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:创业练习.table |
-- 发布时间：2015/9/15 23:12:00
--
If e.DataCol.Name = "地区" Then
e.DataTable.replacefor("签订份数",Nothing ,"[地区]= \'" & e.DataRow("地区") & "\' ")
Dim Filter As String = "[地区] = \'" & e.NewValue & "\'"
e.DataRow("合同金额") = DataTables("未完合同").Compute("Sum(合同金额)", Filter)
Dim Prs As List(Of String)
Prs = DataTables("未完合同").GetValues("客户户名","地区= \'"& e.newvalue &"\'")
For Each Pr As String In Prs
e.DataRow("签订份数")+=DataTables("合同明细").Compute("count(客户户名)","客户户名=\'"& Pr &"\'")
e.DataRow("未完份数")+=DataTables("合同明细").Compute("count(客户户名)","客户户名=\'"& Pr &"\' and 未完金额 <> 0 ")
Next
End If
e.DataRow("执行份数") = e.DataRow("签订份数")-e.DataRow("未完份数")