以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]统计  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=189425)

--  作者:风声
--  发布时间:2023/11/30 20:32:00
--  [求助]统计
老师,下面代码进行计算总是要去打开数据汇总表后才能统计。


If e.DataCol.Name = "项目ID" OrElse e.DataCol.Name = "项目" Then
    For i As Integer = 1 To 12
        Dim Filter As String = e.DataRow("项目") & "_ID = \'" & e.DataRow("项目ID") & "\' and 月=" & i
Dim d As Double = DataTables("数据汇总").Compute("Sum(" & e.DataRow("项目") & "_应付)", Filter)
\'msgbox("条件=" & Filter & ", 查询结果=" & d)
        e.DataRow("M" & i) = d
    Next
End If

--  作者:有点蓝
--  发布时间:2023/11/30 20:36:00
--  
表格创建了不是一直就有的么,为什么还要打开
--  作者:风声
--  发布时间:2023/11/30 21:36:00
--  
数据汇总是三个表的数据汇总

If MainTable.Name = "数据汇总" Then
    MainTable.StopRedraw
    MainTable.DataTable.DeleteFor("")
    For Each dr As DataRow In DataTables("抄表记录").Select("抄表日期 Is not null")
        Dim nr As Row = MainTable.AddNew
        nr("日期") = dr("抄表日期")


--  作者:有点蓝
--  发布时间:2023/11/30 21:40:00
--  
三个表的数据汇总具体怎么做的。为什么不使用查询表呢
--  作者:风声
--  发布时间:2023/12/1 12:09:00
--  
老师好,没有设置过查询表不知怎样搞。
--  作者:有点蓝
--  发布时间:2023/12/1 13:39:00
--  
学呗:http://www.foxtable.com/webhelp/topics/2322.htm