Question

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    Dim SQLData As New System.Data.SqlClient.SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Database.mdf;Integrated Security=True;User Instance=True")
    Dim cmdSelect As New System.Data.SqlClient.SqlCommand("SELECT * FROM Table1 WHERE Seats ='" & TextBox1.Text & "'", SQLData)

    SQLData.Open()

    Using adapter As New SqlDataAdapter(cmdSelect)
    Using table As New Data.DataTable()
        adapter.Fill(table)
        TextBox1.Text = [String].Join(", ", table.AsEnumerable().[Select](Function(r) r.Field(Of Integer)("seat_select")))
    End Using
    End Using

    SQLData.Close()
End Sub

此行将以蓝线突出显示：

TextBox1.Text = [String].Join(", ", table.AsEnumerable().[Select](Function(r) r.Field(Of Integer)("seat_select")))

Answer 1

尝试将代码更改为

TextBox1.Text = String.Join(", ", table.AsEnumerable().Select(Function(r) r.Field(Of Integer)("seat_select")).ToArray()

希望这会有所帮助

这个SELECT语句有什么问题

1 个答案: