获取错误为"输入数组长于此表中的列数"

Question

码.

Public Function comb1(ByVal SName As String) As DataTable

        Dim dt As New DataTable
        cmd = New SqlCommand("Select Distinct RName from tb_RS_New", con)
        dr2 = cmd.ExecuteReader
        While (dr2.Read())
            dt.Rows.Add(dr2("RName"))
        End While
        Return dt

End Function

在加载页面时,错误被抛出为"输入数组长于此表中的列数"

我的代码有什么问题.

需要帮忙

Answer 1

您需要首先向此数据表添加列:

Dim dt As New DataTable
dt.Columns.Add("RName", GetType(String))

此外,我不很了解con,cmd和dr2变量在你的代码,但我会强烈建议您妥善处置他们:

Dim dt As New DataTable
dt.Columns.Add("RName", GetType(String))

Using con As New SqlConnection("connection string to the database")
    Using cmd = con.CreateCommand()
        con.Open()
        cmd.CommandText = "Select Distinct RName from tb_RS_New"
        Using dr = cmd.ExecuteReader()
            While (dr.Read())
                dt.Rows.Add(dr("RName"))
            End While
        End Using
    End Using
End Using