主题：小组求和

如题，要实现类别小组求和，如何实现第三列？

 

 

类别	数量	类别求和
pd01	1	6
pd01	2	6
pd01	3	6
pd02	4	9
pd02	5	9

 

 

Select Case e.DataCol.name
    Case "类别"
        If e.OldValue <> Nothing Then
            Dim sum As Double = e.DataTable.Compute("sum(数量)", "类别 = '" & e.oldvalue & "'")
            e.DataTable.replacefor("类别求和", sum, "类别 = '" & e.oldvalue & "'")
        End If
        If e.newValue <> Nothing Then
            Dim sum As Double = e.DataTable.Compute("sum(数量)", "类别 = '" & e.NewValue & "'")
            e.DataTable.replacefor("类别求和", sum, "类别 = '" & e.NewValue & "'")
        End If
    Case "数量"
        Dim sum As Double = e.DataTable.Compute("sum(数量)", "类别 = '" & e.datarow("类别") & "'")
        e.DataTable.replacefor("类别求和", sum, "类别 = '" & e.datarow("类别") & "'")
End Select

语句有点复杂

能否用sqlcommand的update实现

用sql语句也无法简单做到update。尽量用代码处理。

在sqlserver中，sql语句处理类似的汇总还是比较简单的，

 

把截图的语句放到cmd.commandtext里面能否实现？

我现在不知道是我的语法有问题，还是foxtable不支持这样的功能

 

 

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

 如果你在数据库执行sql语句通过，那你就直接拷贝代码过来运行即可。

 

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