以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  代码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=74590)
--  作者：kaituozhe
--  发布时间：2015/9/14 22:25:00
--  代码

If e.DataCol.Name = "客户编号" Then
    e.DataTable.replacefor("客户笔数",Nothing ,"[客户编号]= \' " & e.DataRow("客户编号") & " \' ")
       Dim Prs As List(Of String)
    Prs = DataTables("合同明细").GetValues("户名","客户编号= \'"& e.newvalue &"\'")
    For Each Pr As String In Prs
        e.DataRow("客户笔数")+=DataTables("合同明细").Compute("count(户名)","户名=\'"& Pr &"\'")
           Next
    End If

 

我想通过上述代码统计来统计客户笔数，但是每重置一次就是增加一倍，设计了红色代码也不起作用，怎么处理。
--  作者：Hyphen
--  发布时间：2015/9/15 8:55:00
--  
If e.DataCol.Name = "客户编号" Then
    e.DataRow("客户笔数")=DataTables("合同明细").Compute("count(户名)","客户编号= \'"& e.newvalue &"\'")
End If