我不知道什么是错的,这是给出代码的错误。 "索引超出数组范围" 它是一种解码器,它从一个mysql服务器获取一个字符串,并将数据解码为一个相当长的字符串,+ -120个字符
Dim table As DataTable
Dim row As DataRow
Dim column As DataColumn
For Each table In ds1.Tables
For Each row In table.Rows
For Each column In table.Columns
Dim DATAFRM As String = (row(column)).ToString
Dim values = DATAFRM.Replace("(", "").Replace(")", "").Split(","c)
Dim a As String = values(0)
Dim b As String = values(1)
Dim c As String = values(2)
Dim d As String = values(3)
Dim e1 As String = values(4)
Dim f As String = values(5)
Dim g As String = values(6)
Dim h As String = values(7)
Dim i1 As String = values(8)
Dim j As String = values(9)
Dim k As String = values(10)
Dim l As String = values(11)
Dim m As String = values(12)
Dim n As String = values(13)
Dim o As String = values(14)
Dim p1 As String = values(15)
Dim q As String = values(16)
Dim r As String = values(17)
Dim s1 As String = values(18)
Next column
Next row
Next table