主题：统计数据代码出错问题

dr("第二季度已返金额") = dt3.SqlCompute("sum(收缴金额)", "财务编号 = '" & dr("财务编号") & "' and 返利季度 = '第2季度'" )

谢谢有点蓝老师的帮忙。

请有点蓝老师帮忙呀。

请各位老师帮忙呀，急用呀。

请各位老师帮忙呀，急用呀。

回复33楼。

 

1、不要在循环里写 sqlCompute 要改成 Compute，不然很耗时的；

 

2、代码要写在一个按钮里，同时，要加上

 

SystemReady = False

 

'本来代码

 

SystemReady = True

 

3、你的表要加入 单据月份 列，用来记录月份，这样compute的时候，直接根据月份列写条件。

有点甜老师，这个是一个按钮的代码。并是外部数据表，可以用Compute吗。再有，第3条没看懂。能不能帮忙把代码给改一下，今天是月末，着急用。谢谢老师。

建议先生成分组/交叉统计表，再从统计表取值

systemready = false
Dim dt1 As DataTable=DataTables("批发表")
Dim dt2 As DataTable=DataTables("入库表")
Dim dt3 As DataTable=DataTables("收缴表")
dt1.LoadFilter = "month(单据日期) in (4,5,6)"
dt2.LoadFilter = "month(单据日期) in (4,5,6)"
dt1.load
dt2.load
If dt1.datacols.contains("月份") = False Then dt1.DataCols.add("月份", Gettype(Integer))
If dt2.datacols.contains("月份") = False Then dt2.DataCols.add("月份", Gettype(Integer))
For Each dr As DataRow In dt1.Select("")
    Dim d As Date = dr("单据日期")
    If d = Nothing Then
        dr("月份") = Nothing
    Else
        dr("月份") = d.Month
    End If
Next
For Each dr As DataRow In dt1.Select("")
    Dim d As Date = dr("单据日期")
    If d = Nothing Then
        dr("月份") = nothing
    Else
        dr("月份") = d.Month
    end if
Next
For Each dr As DataRow In DataTables("合同表").Select("")
   
   
    '第二季度应返数量
    Dim YFSL1 As Double = dt1.Compute("sum(数量)", "高开编号 = '" & dr("财务编号") & "' and 月份 in (4,5,6)" )
    Dim YFSL2 As Double = dt1.Compute("sum(数量)", "返利编号 = '" & dr("财务编号") & "' and 月份 in (4,5,6)" )
    Dim YFSL3 As Double = dt2.Compute("sum(数量)", "高开编号 = '" & dr("财务编号") & "' and 月份 in (4,5,6)" )
    Dim YFSL4 As Double = dt2.Compute("sum(数量)", "返利编号 = '" & dr("财务编号") & "' and 月份 in (4,5,6)" )
    dr("第二季度应返数量") = YFSL1 + YFSL2+ YFSL3+ YFSL4
   
    '第二季度应返金额
    Dim YFJE1 As Double = dt1.Compute("sum(返利应返金额)", "返利编号 = '" & dr("财务编号") &"' And 月份 In (4,5,6)" )
    Dim YFJE2 As Double = dt1.Compute("sum(高开应返金额)", "高开编号 = '" & dr("财务编号") & "' and 月份 in (4,5,6)" )
    Dim YFJE3 As Double = dt2.Compute("sum(返利应返金额)", "返利编号 = '" & dr("财务编号") & "' and 月份 in (4,5,6)" )
    Dim YFJE4 As Double = dt2.Compute("sum(高开应返金额)", "高开编号 = '" & dr("财务编号") & "' and 月份 in (4,5,6)" )
    dr("第二季度应返金额") = YFJE1 + YFJE2+ YFJE3+ YFJE4
   
    '第二季度已返数量
    dr("第二季度已返数量") = dt3.Compute("sum(收缴数量)", "财务编号 = '" & dr("财务编号") & "' and 返利季度='第2季度'" )
   
    '第二季度已返金额
    dr("第二季度已返金额") = dt3.Compute("sum(收缴金额)", "财务编号 = '" & dr("财务编号") & "' and 返利季度='第2季度'" )
   
    '以下代码是计算第二季度计提数量
    dr("第二季度计提数量") = dr("第二季度应返数量") +dr("第一季度计提数量") -dr("第二季度已返数量")
   
    '以下代码是计算第二季度计提金额
    dr("第二季度计提金额") = dr("第二季度应返金额") +dr("第一季度计提金额") -dr("第二季度已返金额")
   
Next
systemready = true