只对窗口副表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

ZJZK2015	小大 1楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：五尾狐帖子：810 积分：7727 威望：0 精华：0 注册：2014/7/4 20:32:00	只对窗口副表table中数据进行重置，而不是对datatable进行重置 Post By：2017/10/11 2:41:00 [只看该作者] 用户已被锁定

ZJZK2015	小大 3楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：五尾狐帖子：810 积分：7727 威望：0 精华：0 注册：2014/7/4 20:32:00	Post By：2017/10/11 11:14:00 [只看该作者] 用户已被锁定

ZJZK2015	小大 5楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：五尾狐帖子：810 积分：7727 威望：0 精华：0 注册：2014/7/4 20:32:00	Post By：2017/10/11 14:35:00 [只看该作者] 用户已被锁定

ZJZK2015	小大 7楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：五尾狐帖子：810 积分：7727 威望：0 精华：0 注册：2014/7/4 20:32:00	Post By：2017/11/24 0:14:00 [只看该作者] 用户已被锁定

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