主题：关于实时统计问题

参考

 

http://www.foxtable.com/webhelp/scr/1454.htm

 

参考

 

http://www.foxtable.com/webhelp/scr/1472.htm

 

参考

 

http://www.foxtable.com/webhelp/scr/1472.htm

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目40.foxdb

 

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

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

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

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

你可以在加入msgbox，弹出一些信息，来测试是否触发了datacolchanged事件的代码。