主题：这个代码怎么修改?

If sx Is Nothing Then

    Tables("我的报表_Table2").StopRedraw

    Dim s() As String ={"总产量(KG)","总废品(KG)","废品率(%)"}

    For i = 0 To s.Length -1

        Dim dr1 As DataRow = Tables("我的报表_Table2").DataTable.AddNew()

        dr1("部门") = v(0)

        dr1("项目") = v(1)

        dr1("统计类型") = v(2)

        dr1("报表名称") = v(3)

        dr1("数据统计项目") = s(i)

    Next

    Tables("我的报表_Table2").ResumeRedraw()

End If