Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question<code class="vbnet_keyword1"> Public
ClassListItem
PublicValue
AsObject
PublicText
As
String
Public
Sub
New(
ByValNewValue
AsObject,
ByValNewText
As
String)
=NewValue
=NewText
End
Sub
PublicOverrides
Function
ToString()
As
String
End
Function
End
Class
<code class="vbnet_keyword1"> DimmyTable
asDataTable
Dimitem
AsDataRow
'
****
içi
le
code
pour
remplir
le
DataTable
.
Items
.
Add(
New
ListItem(
"
0
",
"
<Toutes>
"))
For
Eachitem
InmyTable
.
Rows
.
Items
.
Add(
New
ListItem(
item(
"
PrimaryKey
"),
item(
"
Famille
")))
Next
.
SelectedIndex
=0
<code class="vbnet_keyword1"> DimmyValue
asInteger
DimmyText
as
String
=
CType(myComboBox
.
SelectedItem, ListItem)
.
Value
=
CType(myComboBox
.
SelectedItem, ListItem)
.
Text