只对窗口副表table中数据进行重置，而不是对datatable进行重置 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim dr As DataRow = e.DataRow
Select Case e.DataCol.Name
    Case "费用计算式","费率"
        If e.DataRow.IsNull("费用计算式") = False Then
            Dim str As String = e.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("{","}") & "' and 专业编号 = '" & dr("专业编号") & "'")
                If dr IsNot Nothing Then
                    If dr.IsNull("费用计算式") = False Then
                        e.DataTable.DataCols("费用计算式").RaiseDataColChanged(dr)
                    End If
                    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
End Select

主题：只对窗口副表table中数据进行重置，而不是对datatable进行重置