主题：[求助]单元格

老师，把列统计结果自动写入指定单元格里。如：行"企业名称"对应的行"付款累计"。把"付款"列统计的结果自动录入"付款累计"列中。即时更新。

 呃，编写Datacolchanged事件，对付款列数据修改的时候，统计全列的数据到付款累计。

列是有条件统计，该列是有N个单位的付款金额，相对要写入不同的单元格。谢谢老师给个例子。

 有统计条件，就加一个统计条件即可

 

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

 

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

 

'下面代码是统计入库明细表用的
Dim tj As DataRow = e.DataRow
Dim dt As DataTable = DataTables("出库明细")
If e.DataCol.Name = "企业编号"Then
      tj("销售总额") = dt.Compute("Sum(价税合计)","[企业编号] = '" & tj("企业编号") & "'")
End If

Dim fk As DataRow = e.DataRow
Dim je As DataTable = DataTables("应收款")
If e.DataCol.Name = "客户" Then
       fk("累计付款") = je.Compute("Sum(付款金额)","[客户] = '" & fk("客户") & "'")
End If

 

 

 

 

老师，用了下面的公式后上面一组的公式就不给我统计了

  回复5楼，代码没有问题，你修改客户列的时候，就统计累计付款；修改企业编码的时候，就统计销售总额

此主题相关图片如下：不更新列表项目内容.png

老师，我的列表项目不更新项目内只有一个客户内容

 那你试试这样写代码

 

Select Case e.DataCol.name
    Case "企业编号","客户"
        Dim tj As DataRow = e.DataRow
        Dim dt As DataTable = DataTables("出库明细")      
        tj("销售总额") = dt.Compute("Sum(价税合计)","[企业编号] = '" & tj("企业编号") & "'")
               
        Dim fk As DataRow = e.DataRow
        Dim je As DataTable = DataTables("应收款")      
        fk("累计付款") = je.Compute("Sum(付款金额)","[客户] = '" & fk("客户") & "'")      
End Select

上面代码可以了。列表项目有问题。

 

什么问题？目录树列表项目，是不会实时更新的，只生成一次。

 

如果你要实时生成，参考代码 http://www.foxtable.com/help/topics/2031.htm