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

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

我的错，我在地方 lbpartyulink.DataSource = ds.Tables（0）