Dim i As Integer
            For Each v As String() In DataTables("统计表").GetUniqueValues("","部门","项目","统计类型","报表名称")
                Dim sx As DataRow =  Tables("我的报表_Table2").DataTable.Find("日期 >= \'" & s_date & "\' And 日期 <= \'" & e_date & "\' And 部门=\'" & Vars("部门") & "\' And 报表名称=\'砂场日报表\' And 报表角色 =\'砂场监区月报表\'")
                If sx Is Nothing Then
                    Dim dr1 As DataRow = Tables("我的报表_Table2").DataTable.AddNew()
                    Tables("我的报表_Table2").StopRedraw
                    Dim s() As String ={"总产量(KG)","总废品(KG)","废品率(%)"}
                    For i = 0 To s.Length -1
                        dr1("部门") = v(0)
                        dr1("项目") = v(1)
                        dr1("统计类型") = v(2)
                        dr1("报表名称") = v(3)
                        dr1("数据统计项目") = s(i)
                    Next
                    Tables("我的报表_Table2").ResumeRedraw()
                End If
            Next

 怎么修改这个代码,我的意思是新增三行: 例如

  部门  项目  报表名称  数据统计项目

  A       B          C            总产量(KG)

 A        B          C            总废品(KG)

A         B          C            废品率(%)

奇怪你的代码和我一样 但是居然出来几个空行