主题：[求助]

改成

For Each dr As DataRow In DataTables("统计").DataRows
    Dim V As String = dr("原始数据")
    Dim vals() As String = V.split(",")
    If vals.length >= 10 Then
        dr("一") = vals(0)
        dr("二") = vals(1)
        dr("三") = vals(2)
        dr("四") = vals(3)
        dr("五") = vals(4)
        dr("六") = vals(5)
        dr("七") = vals(6)
        dr("八") = vals(7)
        dr("九") = vals(8)
        dr("十") = vals(9)
    Else
        msgbox("数据没有10个")
    End If
Next