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