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

写表的Datacolchanged事件。

写入统计代码，如 Forms("窗口1").Controls("TextBox1").text = 100

If Forms("窗口1").OPened Then  
    Forms("窗口1").Controls("TextBox1").text = e.DataTable.Compute("Sum(数量)")
End If

每次打开窗口的时候自动计算了啊。

已完成和未完成，你请参考我写的代码来做，学一下，别人帮你做完全部么？

再者，你的数据没有体现已完成和未完成。

  改成 count(_Identify)

 或 count(客户)

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

 1、你要改窗口的afterload事件；

 2、你要把compute全部改成SqlCompute

改一下

订单表的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