Search with a combo

[venerable bede]

I have a form shwong a list of stock 1 record at a time.

I have set up a combobox which displays a list of "itemID"'s which is the Primary key for the table.

Using the above approach I can successfully search the form.

The problem I have is that the ID numbers are meaningless to the user so I need to put "itemDescription" in the combo with "itemID" in the itemvalue property.

I cannot get this to work.
Does anyone have any suggestions or examples on how to do this???

[Edneeis]

From your previous post I believe you said you are using a dataset as your datasource, correct? If so then just run a .Select method on it to find a match. It will return an array od datarows that match which are still connected to the dataset.

[venerable bede]

Is there any chance you could expand a little bit.

I have tried everything I can think of to get the valuemember and find the appropriate record and my head is going to explode.


Man, I have been using this .NET for a few weeks now and it is blowing me away. This is nothing like VBA.......which is probably a good thing but I find that things I could do in VBA in 15 minutes now take me all day.

Still........patience is a virtue

[Edneeis]

This will give you an array of datarows from the dataset that match the selected item description:

Dim dr() As DataRow = ds.Tables(0).Select(String.Concat("ItemDescription='", ComboBox1.SelectedText, "'"))

[venerable bede]

I have tried that but I am not sure how I get the fields into my textfields on the form:

e.g. Me.txtDescription.Text = objROw.Item("itemDescription")

is how I originally did it.

I am of course making the assumption that only 1 record will be present in the table/

[Edneeis]

And whats the problem? Although the Select method will return an array of datarows even for one value (I believe).

Dim dr() As DataRow = ds.Tables(0).Select(String.Concat("itemDescription='", ComboBox1.SelectedText, "'"))
If Not dr is nothing then 
Me.txtDescription.Text = dr(0).Item("itemDescription")
End If

[venerable bede]

I tried the following:

If Not objROw Is Nothing Then
MsgBox(objROw(0).Item("itemDescription"))
Me.txtDescription.Text = objROw(0).Item("itemDescription") End If

But got this:

An unhandled exception of type 'System.IndexOutOfRangeException' occurred in StockSystemNet.exe

Additional information: Index was outside the bounds of the array.

You can give up on me if you like.
Thanks for eveything so far. I feel like a bloody idiot.

[Edneeis]

My Bad you must have to check the index of the array instead of for nothing:

Dim dr() As DataRow = ds.Tables(0).Select(String.Concat("itemDescription='", ComboBox1.SelectedText, "'"))
If ubound(dr)=>0 then 
Me.txtDescription.Text = dr(0).Item("itemDescription")
End If

[venerable bede]

Thanks for all your help Edneeis.

I eventually got it working a treat.

Dim dr() As DataRow = ds.Tables(0).Select(String.Concat("itemDescription='", ComboBox1.SelectedText, "'"))

didnt work for some reason but when I changed the Selecttext to Selectitem it did. Strange!!!!

Thanks again.
Now to try and package my application with Crystal.
Happy, Happy, Joy, Joy.

[wengang]

yes, 3 years later, this solved my problem too! thanks