关于实时统计问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

If e.DataCol.Name = "支出金额" Then

Dim pr As DataRow

pr = DataTables("资金账户").sqlFind("账户名称 = '" & e.DataRow("结算账户") & "'")

e.DataRow.Save

If pr IsNot Nothing Then

pr("支出金额汇总") = DataTables("支出表").SqlCompute("Sum(支出金额)", "[结算账户] = '" & e.DataRow("结算账户") & "'")

Else

pr = DataTables("资金账户").AddNew

pr("账户名称") = e.DataRow("结算账户")

pr("支出金额汇总") = DataTables("支出表").SqlCompute("Sum(支出金额)", "[结算账户] = '" & e.DataRow("结算账户") & "'")

End If

pr.Save

End If

试了没反应啊，我也重置列了啊。

If e.DataCol.Name = "支出金额" Then
    Dim pr As DataRow
    pr = DataTables("资金账户").Find("账户名称 = '" & e.DataRow("结算账户") & "'")
    If pr Is Nothing Then
        pr = DataTables("资金账户").sqlFind("账户名称 = '" & e.DataRow("结算账户") & "'")
    End If
    e.DataRow.Save
    If pr IsNot Nothing Then
        pr("支出金额汇总") = DataTables("支出表").SqlCompute("Sum(支出金额)", "[结算账户] = '" & e.DataRow("结算账户") & "'")
    Else
        pr = DataTables("资金账户").AddNew
        pr("账户名称") = e.DataRow("结算账户")
        pr("支出金额汇总") = DataTables("支出表").SqlCompute("Sum(支出金额)", "[结算账户] = '" & e.DataRow("结算账户") & "'")
    End If
    pr.Save
End If

以上问题解决，但有个困惑，如下图：

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

上图中的表准备把他放到窗口中的某个位置，用来动态显示并统计其他表中的数据。（此表的目的就是为了展示其他表的汇总数据）请问老师是用以上的方式效率高，还是用SQLGroupTableBuilder用代码建立

虚拟统计表然后把虚拟统计表展示在窗口中效率高？

用13楼的方式效率高......

明白了，另外如果数据是通过窗口中按钮写代码添加的（没有用户窗口表），上面的代码放在datacolchanged就失效了，如何把代码写到窗口的保存按钮中。

只要你修改了支出表的列值，都会触发datacolchanged事件的，也肯定有效。

嗯，的确，我重置一次以后就好了。但目前只是改“金额”列会自动计算，如果我要加一列“结算账户”呢，如何改？

我在判断前加 If e.DataCol.Name = "支出金额" orelse e.datacol.name="结算账户“ Then只有一行数据会有变化，其实改了收入表的结算账户名称会影响资金账户两行数据的。（一个增加，一个减少）

此主题相关图片如下：444.png

此主题相关图片如下：123.png

这是修改数据的代码，有问题吗？

If Forms("支出管理").Opened Then

Dim cr As Row = Forms("窗口1").Controls("Table1").Table.current

cr("支出金额")=num.Value

cr("结算账户")=cmb.Value

cr.Save()

End If

Messagebox.show("修改成功","提示")

e.Form.Close

If e.DataCol.Name = "支出金额" OrElse e.DataCol.name = "结算账户" Then
    Dim pr As DataRow
    pr = DataTables("资金账户").Find("账户名称 = '" & e.DataRow("结算账户") & "'")
    If pr Is Nothing Then
        pr = DataTables("资金账户").sqlFind("账户名称 = '" & e.DataRow("结算账户") & "'")
    End If
    e.DataRow.Save
    If pr IsNot Nothing Then
        pr("支出金额汇总") = DataTables("支出表").SqlCompute("Sum(支出金额)", "[结算账户] = '" & e.DataRow("结算账户") & "'")
    Else
        pr = DataTables("资金账户").AddNew
        pr("账户名称") = e.DataRow("结算账户")
        pr("支出金额汇总") = DataTables("支出表").SqlCompute("Sum(支出金额)", "[结算账户] = '" & e.DataRow("结算账户") & "'")
    End If
    pr.Save
End If

If e.DataCol.name = "结算账户" Then
    Dim pr As DataRow
    pr = DataTables("资金账户").Find("账户名称 = '" & e.oldvalue & "'")
    If pr Is Nothing Then
        pr = DataTables("资金账户").sqlFind("账户名称 = '" & e.oldvalue & "'")
    End If
    e.DataRow.Save
    If pr IsNot Nothing Then
        pr("支出金额汇总") = DataTables("支出表").SqlCompute("Sum(支出金额)", "[结算账户] = '" & e.oldValue & "'")
    Else
        pr = DataTables("资金账户").AddNew
        pr("账户名称") = e.DataRow("结算账户")
        pr("支出金额汇总") = DataTables("支出表").SqlCompute("Sum(支出金额)", "[结算账户] = '" & e.oldvalue & "'")
    End If
    pr.Save
End If

主题：关于实时统计问题