主题：为啥例如这样的新增代码,新增时比较慢

Dim dr As DataRow

dr = DataTables("字典").Find("[部门]='" & e.Form.Controls("部门").Value & "' And 组别='" & e.Form.Controls("组别").Value & "' And 报表名称='" & e.Form.Controls("报表名称").Value & "'")

If dr IsNot Nothing Then

    Dim Values() As String = dr("统计项目名称").Split(",")

    For i As Integer = 0 To Values.Length -1

        Dim r As Row = Tables("生产数据录入_Table1").AddNew

        r("日期")=Functions.Execute("ABB001_服务器时间")

        r("部门")=e.Form.Controls("部门").Value

        r("组别")=e.Form.Controls("组别").Value

        r("报表名称")=e.Form.Controls("报表名称").Value

        r("项目")=dr("项目名称")

        r("统计部门")=dr("统计部门")

     '   r("统计类型")=dr("统计类型")

        r("数据统计项目")=Values(i)

    Next

End If