收到错误“输入数组比该表中的列数长”

Code.

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

加载页面时，抛出错误“输入数组长于该表中的列数”

我的代码有什么问题。

需要帮忙

您需要首先向该数据表添加列：

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

另外我也不太了解con, cmd and 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