主题：[求助]同列单元格相加的代码或表达式

各位老师请教一个单元格B1=B5+B8的计算代码或表达式，我知道狐表是数据库表，不是电子表格，看到狐表能做到很复杂的计算和统计，很是惊喜，只是帮助文件还没有看透所以先请老师做个范例代码学习一下，最好能附上注释便于理解。先谢谢各位导师.附图：

	A	B	C	d
1	李四		请教如何获取B1=B5+B8的值
2	张三		B2的值=B6
3	王二		B3的值=B7+B9
4
5	李四	9
6	张三	6
7	王二	4
8	李四媳妇	3
9	小王	8

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

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

谢谢大师.我打不开.我用的是商业版的.请大红袍版主贴代码或改一下版本.再次感谢！

DataColChanged事件

 

Select Case e.DataCol.Name
    Case "第二列"
        Dim sum As Double = e.DataTable.Compute("sum(第二列)", "第一列 like '%" & e.DataRow("第一列") & "%'")
        e.DataTable.ReplaceFor("第三列", sum, "第一列 like '%" & e.DataRow("第一列") & "%'")
    Case "第一列"
        Dim sum As Double = e.DataTable.Compute("sum(第二列)", "第一列 like '%" & e.DataRow("第一列") & "%'")
        e.DataTable.ReplaceFor("第三列", sum, "第一列 like '%" & e.DataRow("第一列") & "%'")
        e.DataTable.DataCols("第二列").RaiseDataColChanged("第一列 like '%" & e.OldValue & "%'")
End Select

你的Sum列不是数值列

对不起，版主，是我没有将第二列设为数值型.所有报错了.谢谢您的帮助.

我发现了一个问题，就是我在向第二列输入数据的时候，比如填写李四对应列的单元格时回车立即就汇总了，但是填写李四媳妇对应列的单元格时回车汇总行数据不会变化，需要先填写李四媳妇的数据再填写李四的数据时才能正确汇总.我把代码放在ChangeEdit里面报错：

datacolchanged事件

 

Select Case e.DataCol.Name
    Case "第二列"
        Dim sum As Double = e.DataTable.Compute("sum(第二列)", "第一列 like '" & e.DataRow("第一列") & "%' or 第一列 like '" & e.DataRow("第一列").replace("媳妇", "") & "%'")
        e.DataTable.ReplaceFor("第三列", sum, "第一列 like '" & e.DataRow("第一列") & "%' or 第一列 like '" & e.DataRow("第一列").replace("媳妇", "") & "%'")
    Case "第一列"
        Dim sum As Double = e.DataTable.Compute("sum(第二列)", "第一列 like '" & e.DataRow("第一列") & "%' or 第一列 like '" & e.DataRow("第一列").replace("媳妇", "") & "%'")
        e.DataTable.ReplaceFor("第三列", sum, "第一列 like '" & e.DataRow("第一列") & "%' or 第一列 like '" & e.DataRow("第一列").replace("媳妇", "") & "%'")
        e.DataTable.DataCols("第二列").RaiseDataColChanged("第一列 like '" & e.oldvalue & "%' or 第一列 like '" & e.oldvalue.replace("媳妇", "") & "%'")
End Select

非常感谢大红袍大师的悉心帮助,只是基础太差代码好多没看明白,好像是动态引用求和,我慢慢消化,再次表示感谢.