如何在vb.net的listbox中添加列表项

Question

我正在尝试通过以下代码在列表框中添加列表项 如果我错了请纠正我.. 下面的代码给出了奇怪的输出。

Try
        Dim adapter As New OleDbDataAdapter
        con = New OleDbConnection(connectionString)
        con.Open()
        Dim dt As New DataTable
        Dim ds As New DataSet
        sqlstr = "select * from partyinfo "
        ds.Tables.Add(dt)
        adapter.SelectCommand = New OleDbCommand(sqlstr, con)
        adapter.Fill(dt)
        lbpartylink.DataSource = ds.Tables(0)
        lbpartyunlink.ValueMember = "partyid"
        lbpartyunlink.DisplayMember = "partyname"
        con.Close()
    Catch ex As Exception
        MsgBox("error found")
    End Try

Answer 1

我写错了

lbpartylink.DataSource = ds.Tables(0)

代替     lbpartyulink.DataSource = ds.Tables（0）