ListBox

[Doug Bell]

Hi,
I thought that this would be a simple exercise but I am struggling to get a
result.
I need a listbox that will display a list of items from a DataTable,
dtUnits. The displayed list comes from Column [UnitsProdDescn]. Selecting an
item in this list needs to return a value from Column [UnitsConvn].

Data in dtUnits is
UnitsProdDescn UnitsConvn
Carton 3.2
Case*** 0

So in the Form Load Sub I have:
_______________ _______________ _______________
stDefaultUnits= "Carton"
dblUnitsConv = 1.0
With ListProdUnits
.DataSource = dtUnits
.DisplayMember = "UnitsProdDescn "
.ValueMember = "UnitsConvn "
.SelectedValue = stDefaultUnit

End With
_______________ _______________ _______

And in the ListProdUnits_S electedValueCha nged Event, I have:
_______________ _______________ _______________ _______________ ___
Dim dblVal as Double = Val(ListProdUni ts.SelectedValu e.ToString)
If dblVal > 0 then
dblUnitsConv = dblVal
LabelProdUnits. Text = ListProdUnits.S electedItem.ToS tring

End If
_______________ _______________ _______________ ___________

The variable dblUnitsConv is being set correctly to 3.2 but
LabelProdUnits. Text
shows "System.Data.Da taRowView" instead of "Carton"

Also the list shows Case*** as the selected row which should be Carton.

Can someone tell me what I am doing wrong?

Doug

[Cor Ligthert [MVP]]

Doug,

Mostly are this kind of errors by a misspelling of the datacolumnname

Are you sure that this is right,
..ValueMember = "UnitsConvn "
(It has real to be case sensitive right).

Not that it can be the error, however why don't you use not as normally the
selected index change event?

I hope this helps.

Cor

[Bart Mermuys]

Hi,

"Doug Bell" <Po*********@vo daphone.com.au> wrote in message
news:eH******** ******@TK2MSFTN GP12.phx.gbl...

Hi,
I thought that this would be a simple exercise but I am struggling to get
a
result.
I need a listbox that will display a list of items from a DataTable,
dtUnits. The displayed list comes from Column [UnitsProdDescn]. Selecting
an
item in this list needs to return a value from Column [UnitsConvn].

Data in dtUnits is
UnitsProdDescn UnitsConvn
Carton 3.2
Case*** 0

So in the Form Load Sub I have:
_______________ _______________ _______________
stDefaultUnits= "Carton"
dblUnitsConv = 1.0
With ListProdUnits
.DataSource = dtUnits
.DisplayMember = "UnitsProdDescn "
.ValueMember = "UnitsConvn "
.SelectedValue = stDefaultUnit
End With
stDefaultUnit ( "Carton" ) is displaytext not a value, so you can't assign
that to SelectedValue. You can assign it to the .Text property which will
find and select the item with that text:

ListProdUnits.T ext = stDefaultUnit
_______________ _______________ _______

And in the ListProdUnits_S electedValueCha nged Event, I have:
_______________ _______________ _______________ _______________ ___
Dim dblVal as Double = Val(ListProdUni ts.SelectedValu e.ToString)
If dblVal > 0 then
dblUnitsConv = dblVal
LabelProdUnits. Text = ListProdUnits.S electedItem.ToS tring
If the ListBox is databound then SelectedItem returns the current
DataRowView, you can get your text from it using the colname:
LabelProdUnits. Text = ListProdUnits.S electedItem("Un itsProdDescn")

You can also use ListBox.Text since it returns the displaytext of the first
selected item:
LabelProdUnits. Text = ListProdUnits.T ext
--- Or you can databind the label the same way as the listbox, then it will
show the text of the selected item without the need to handle any events:
LabelProdUnits. DataBindings.Ad d( "Text", dtUnits, "UnitsProdDescn " )
HTH,
Greetings


End If
_______________ _______________ _______________ ___________

The variable dblUnitsConv is being set correctly to 3.2 but
LabelProdUnits. Text
shows "System.Data.Da taRowView" instead of "Carton"

Also the list shows Case*** as the selected row which should be Carton.

Can someone tell me what I am doing wrong?

Doug

[Doug Bell]

Cor,
Thanks, the name is spelt correctly. When I misspell it (eg wrong case), I
get a different error I get a different error, to do with the member not
being able to be set.

Are you indicating that the coding method looks correct?

Doug

"Cor Ligthert [MVP]" <no************ @planet.nl> wrote in message
news:%2******** ********@TK2MSF TNGP12.phx.gbl. ..

Doug,

Mostly are this kind of errors by a misspelling of the datacolumnname

Are you sure that this is right,
.ValueMember = "UnitsConvn "
(It has real to be case sensitive right).

Not that it can be the error, however why don't you use not as normally the selected index change event?

I hope this helps.

Cor

[Doug Bell]

Hi Bart,

Thank you.
Setting the ListBox.Text value solved one problem
and setting the TextBox.Text = ListBox.Text solved the other.

I was surprised that the Text property is not displayed in the intelisense
list.

Doug
"Bart Mermuys" <bm************ *@hotmail.com> wrote in message
news:eW******** ******@TK2MSFTN GP10.phx.gbl...

Hi,

"Doug Bell" <Po*********@vo daphone.com.au> wrote in message
news:eH******** ******@TK2MSFTN GP12.phx.gbl...

Hi,
I thought that this would be a simple exercise but I am struggling to get a
result.
I need a listbox that will display a list of items from a DataTable,
dtUnits. The displayed list comes from Column [UnitsProdDescn]. Selecting an
item in this list needs to return a value from Column [UnitsConvn].

Data in dtUnits is
UnitsProdDescn UnitsConvn
Carton 3.2
Case*** 0

So in the Form Load Sub I have:
_______________ _______________ _______________
stDefaultUnits= "Carton"
dblUnitsConv = 1.0
With ListProdUnits
.DataSource = dtUnits
.DisplayMember = "UnitsProdDescn "
.ValueMember = "UnitsConvn "
.SelectedValue = stDefaultUnit
End With
stDefaultUnit ( "Carton" ) is displaytext not a value, so you can't assign
that to SelectedValue. You can assign it to the .Text property which

will find and select the item with that text:

ListProdUnits.T ext = stDefaultUnit

_______________ _______________ _______

And in the ListProdUnits_S electedValueCha nged Event, I have:
_______________ _______________ _______________ _______________ ___
Dim dblVal as Double = Val(ListProdUni ts.SelectedValu e.ToString)
If dblVal > 0 then
dblUnitsConv = dblVal
LabelProdUnits. Text = ListProdUnits.S electedItem.ToS tring
If the ListBox is databound then SelectedItem returns the current
DataRowView, you can get your text from it using the colname:
LabelProdUnits. Text = ListProdUnits.S electedItem("Un itsProdDescn")

You can also use ListBox.Text since it returns the displaytext of the

first selected item:
LabelProdUnits. Text = ListProdUnits.T ext
--- Or you can databind the label the same way as the listbox, then it will show the text of the selected item without the need to handle any events:
LabelProdUnits. DataBindings.Ad d( "Text", dtUnits, "UnitsProdDescn " )
HTH,
Greetings

End If
_______________ _______________ _______________ ___________

The variable dblUnitsConv is being set correctly to 3.2 but
LabelProdUnits. Text
shows "System.Data.Da taRowView" instead of "Carton"

Also the list shows Case*** as the selected row which should be Carton.

Can someone tell me what I am doing wrong?

Doug

[Cor Ligthert [MVP]]

Doug,

Just a kind of code blindness what was for me yesterday evening.

:-)

Cor