主题：想实现前列中内容能自动计算，汇总到后一列中

假定希望根据第一列 名称为（计算式）输入的计算公式，在第二列 名称为（结果) 得出计算结果，可以将DataColChanged事件代码设为：

If e.DataCol.Name = "计算式" Then
    If e.DataRow.IsNull("计算式") Then
        e.DataRow("结果") = Nothing
    Else
        e.DataRow("结果") = Eval(e.DataRow("计算式"),e.DataRow)
    End If
End If

Eval采用VBScript语法，没有方法和属性的概念，所有的计算都是通过函数完成的。

通过测试，完美解决。

非常感谢！！！

但我还想进一步实现以下功能;   就是在计算式列中可以加入标注，标注内容不计算。

如： ‘计算式’列内容为：  1+2+3+4+5【连续相加】    ‘结果’列中为15，而不是出现出错提示

参考代码

Dim str As String = "1+2+3+4+5【连续相加】+2+4+6+8【偶数相加】"
str = System.Text.RegularExpressions.Regex.Replace(str, "[^0-9+\-*/\.]", "")
msgbox(str)