主题：想做个综合显示数据的功能

此主题相关图片如下：qq图片20140805092047.jpg

甜老师，统计出来的订单总价不准确，我8月份的订单总价应该是42万多，这里才显示2万，怎么找原因呢！

 

我刚才把系统关闭又从新打开系统后，8月份的订单金额又显示236568.400

 贴出你的代码

订单表的Datacolchanged：

If e.DataCol.Name = "客户名称" OrElse e.DataCol.Name = "入库数量" Then
    If Forms("系统桌面").Opened Then
        Dim d1 As Date = new Date(Date.Today.Year, Date.Today.Month, 1)
        Dim d2 As Date = d1.AddMonths(1)
        Dim d3 As Date = d1.AddMonths(-1)
        Dim filter1 As String = "日期 >= '" & d3 & "' and 日期 < '" & d1 & "'"
        Dim filter2 As String = "日期 >= '" & d1 & "' and 日期 < '" & d2 & "'"
        Forms("系统桌面").Controls("TextBox1").text = e.DataTable.SQLCompute("Count(客户名称)", filter1)
        Forms("系统桌面").Controls("TextBox2").text = e.DataTable.SQLCompute("Sum(总价)", filter1)
        Forms("系统桌面").Controls("TextBox5").text = e.DataTable.SQLCompute("Count(客户名称)", filter2)
        Forms("系统桌面").Controls("TextBox6").text = e.DataTable.SQLCompute("Sum(总价)", filter2)
        Dim dt As DataTable = e.DataTable
        Dim sum1 As Double = dt.SQLCompute("Count(客户名称)", filter1)
        Dim sum2 As Double = dt.SQLCompute("Count(入库数量)", filter1)
        Forms("系统桌面").Controls("TextBox3").text = sum2
        Forms("系统桌面").Controls("TextBox4").text = sum1 - sum2
        sum1 = dt.SQLCompute("Count(客户名称)", filter2)
        sum2 = dt.SQLCompute("count(入库数量)", filter2)
        Forms("系统桌面").Controls("TextBox7").text = sum2
        Forms("系统桌面").Controls("TextBox8").text = sum1 - sum2
    End If
End If

 

窗口Afterload事件：

Dim dt As DataTable = DataTables("订单")
Dim d1 As Date = new Date(Date.Today.Year, Date.Today.Month, 1)
Dim d2 As Date = d1.AddMonths(1)
Dim d3 As Date = d1.AddMonths(-1)
Dim filter1 As String = "日期 >= '" & d3 & "' and 日期 < '" & d1 & "'"
Dim filter2 As String = "日期 >= '" & d1 & "' and 日期 < '" & d2 & "'"
Forms("系统桌面").Controls("TextBox1").text = dt.SQLCompute("Count(客户名称)", filter1)
Forms("系统桌面").Controls("TextBox2").text = dt.SQLCompute("Sum(总价)", filter1)
Forms("系统桌面").Controls("TextBox5").text = dt.SQLCompute("Count(客户名称)", filter2)
Forms("系统桌面").Controls("TextBox6").text = dt.SQLCompute("Sum(总价)", filter2)
Dim sum1 As Double = dt.SQLCompute("Count(客户名称)", filter1)
Dim sum2 As Double = dt.SQLCompute("Count(入库数量)", filter1)
Forms("系统桌面").Controls("TextBox3").text = sum2
Forms("系统桌面").Controls("TextBox4").text = sum1 - sum2
sum1 = dt.SQLCompute("Count(客户名称)", filter2)
sum2 = dt.SQLCompute("Count(入库数量)", filter2)
Forms("系统桌面").Controls("TextBox7").text = sum2
Forms("系统桌面").Controls("TextBox8").text = sum1 - sum2

改一下

 

订单表的Datacolchanged：

If e.DataCol.Name = "客户名称" OrElse e.DataCol.Name = "入库数量" Then
    If Forms("系统桌面").Opened Then

        e.DataTable.Save
        Dim d1 As Date = new Date(Date.Today.Year, Date.Today.Month, 1)
        Dim d2 As Date = d1.AddMonths(1)
        Dim d3 As Date = d1.AddMonths(-1)
        Dim filter1 As String = "日期 >= '" & d3 & "' and 日期 < '" & d1 & "'"
        Dim filter2 As String = "日期 >= '" & d1 & "' and 日期 < '" & d2 & "'"
        Forms("系统桌面").Controls("TextBox1").text = e.DataTable.SQLCompute("Count(客户名称)", filter1)
        Forms("系统桌面").Controls("TextBox2").text = e.DataTable.SQLCompute("Sum(总价)", filter1)
        Forms("系统桌面").Controls("TextBox5").text = e.DataTable.SQLCompute("Count(客户名称)", filter2)
        Forms("系统桌面").Controls("TextBox6").text = e.DataTable.SQLCompute("Sum(总价)", filter2)
        Dim dt As DataTable = e.DataTable
        Dim sum1 As Double = dt.SQLCompute("Count(客户名称)", filter1)
        Dim sum2 As Double = dt.SQLCompute("Count(入库数量)", filter1)
        Forms("系统桌面").Controls("TextBox3").text = sum2
        Forms("系统桌面").Controls("TextBox4").text = sum1 - sum2
        sum1 = dt.SQLCompute("Count(客户名称)", filter2)
        sum2 = dt.SQLCompute("count(入库数量)", filter2)
        Forms("系统桌面").Controls("TextBox7").text = sum2
        Forms("系统桌面").Controls("TextBox8").text = sum1 - sum2
    End If
End If

 回复35楼，不可能不准确，你自己的原因

我7月份的订单金额是370万，8月份的订单金额是42万，但是现在我把代码改完后，

统计的结果如下：

 

此主题相关图片如下：1111111111111111.jpg

订单数量是准确的，就是订单总金额不准确！

 

你自己去检测你数据库的数据。

统计肯定没有问题，你自己的数据问题。