[求助] - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

有点甜老师：

你好！

For Each dr As DataRow In DataTables("统计").DataRows

Dim V As String = dr("原始数据")

Dim vals() As String = V.split(",")

For Each val As String In vals

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)

原始数据

7,6,5,8,9,10,1,2,3,4

这代码有什么问题吗？总是会出现下面的提示

索引超出了数组界限。

竟然没有人回复？？

老师：

你好！

数组组数都达到10了

都可以放入各自的列，执行完后就有索引超出了数组界限。

老师：

请看附件

改成下面这样,没有问题了，谢谢甜老师！！

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
        Exit for
    End If
Next

主题：[求助]