Question

vb.net中怎么把数据库中表的某一列显示在combobox中

我想在combobox1下拉菜单中显示数据库中收费站信息表中的收费站名称列
我输入如下代码后 倒数第二行错误提示tables[]中应为标识符
请问该怎么改？？？？还是代码有错误？？？

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim constr As String = "data source=PC201502281351\SQLEXPRESS;initial catalog=高速公路收费系统;integrated security=true"
Dim con As New SqlConnection(constr)
Dim sqlstr As String = "select 收费站名称 from 收费站信息表"
Dim ds1 As New DataSet()
Dim da As New SqlDataAdapter(sqlstr, con)
da.Fill(ds1, "收费站信息表")
ComboBox1.DataSource = ds1.Tables["收费站信息表"]
ComboBox1.DisplayMember = "收费站名称"

Answer 1

da.Fill(ds1, "收费站信息表")
For i = 0 To ds1.Tables.Count - 1
ComboBox1.Items.Add((ds1.Tables(0).Rows(i).Item("收费站名称").ToString))
Next i

追问

这么写之后 下拉菜单只能显示一行 后面的数据都不显示

追答

For语句改一下：
For i = 0 To ds1.Tables(0).Rows.Count - 1