主题：如何利用列名进行自定义表达式计算

DataColChanged事件

'If e.DataRow.IsNull("应发工资公式") Then
'e.DataRow("应发工资") = Nothing
'Else
'e.DataRow("应发工资") = Eval2(e.DataRow("应发工资公式"),e.DataRow)
'End If
'

If e.DataRow.IsNull("应发工资公式") Then
    e.DataRow("应发工资") = Nothing
Else
    Dim str As String = e.DataRow("应发工资公式")
    For Each dc As DataCol In e.DataTable.DataCols
        str = str.replace("[" & dc.name & "]", dc.name).Replace(dc.name, "[" & dc.name & "]")
    Next
    If TryEval(str, e.DataRow) Then
        e.DataRow("应发工资") = Eval2(str,e.DataRow)
    Else
        msgbox("公式错误")
    End If
End If

 控件不能直接绑定列【费用汇总.费用计算式】

 如果要赋值，请在窗口关闭的时候给表列赋值。

If e.DataRow.IsNull("费用计算式") = False Then
    Dim str As String = e.DataRow("费用计算式")
    Dim dr As DataRow
    Dim pattern As String = "{.+?}"
    Dim rgx = new System.Text.RegularExpressions.Regex(pattern, System.Text.RegularExpressions.RegexOptions.IgnoreCase)
    For Each  match As System.Text.RegularExpressions.Match In rgx.Matches(str)
        dr = e.DataTable.Find("序号='" & match.Value.trim("{","}") & "'")
        If dr IsNot Nothing Then
            str = str.replace(match.Value, dr("金额"))
        End If
    Next
    pattern = "\[.+?\]"
    rgx = new System.Text.RegularExpressions.Regex(pattern, System.Text.RegularExpressions.RegexOptions.IgnoreCase)
    For Each  match As System.Text.RegularExpressions.Match In rgx.Matches(str)
        str = str.replace(match.Value, e.DataRow(match.Value.trim("[","]")))
    Next
    If TryEval(str, e.DataRow) Then
        e.DataRow("金额") = Eval2(str,e.DataRow)
    Else
        msgbox("公式错误")
    End If
End If

项目发上来测试。

1、修改列以后才会重新统计；

2、贴出你修改后的代码。