Lookup Field Values Based on Combobox Change

  • Thread starter Thread starter Randy
  • Start date Start date
R

Randy

Hi,
I'm trying to populate textbox values upon a change in a combobox
selection. I'm using the Publishers table in the Pubs sample database
as a simplified example. Here is the code:

Private Sub cboPubID_SelectedIndexChanged(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles
cboPubID.SelectedIndexChanged
Dim PubsDS As New PUBSDataSet()
Dim PubsTA As New
PUBSDataSetTableAdapters.publishersTableAdapter

PubsTA.Fill(PubsDS.publishers)

txtPubName.Text =
PubsDS.Tables("publishers").Rows(cboPubID.Text)(1).ToString
txtCity.Text = PubsDS.Tables("publishers").Rows(cboPubID.Text)
(2).ToString
End Sub


The last two lines are where I am trying to lookup the field values in
columns 1 and 2 based on the row as determined from the combobox
selection. These lines aren't working. I've tried searching this
board for the answer, but no luck.

Anybody know how to do this?
Thanks,
Randy
 
Here's another attempt, but it comes back empty. Why?

txtCity.Text =
PubsDS.Tables("publishers").Rows(cboPubID.SelectedIndex).Item(1).ToString

Please help. I'm stuck!!! Robin, my savior? Cor (I do like you, you
know)? ;^)

Randy
 
If you load your table and bind your combobox using my code in my response
to your other post, each entry in the combobox is a datarow, and you should
be able to pull the data like this:

Dim drv As DataRowView = CType(TableComboBox.SelectedItem, DataRowView)
Debug.Print("First Column = {0}, Second column = {1}", _
CType(drv("PubID"), Integer), drv("PublisherName").ToString)

Each item in the combobox is a datarow.

If you bind your combobox to a List(Of T), each item will be an instance of
T.

Good luck.
Robin S.
 
Back
Top