Discussion :

[pools]

Bonjour, j'ai un soucis de conversion apparemment. Voici des copies de mon code :

• DataTable :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Dim dt1 As New System.Data.DataTable
 
dt1.Columns.Add("Num_Cli")
dt1.Columns.Add("Nom_Cli")
 
ligTot1=tbl1.Rows.Count-1
 
For i = 0 To ligTot1
	dt1.Rows.Add(i, tbl1.Rows(i).Item("Struct_Cont"))
Next 
 
CbStruct_Cont.DataSource = dt1
 
CbStruct_Cont.DisplayMember = "Nom_Cli"
 
CbStruct_Cont.ValueMember = "Num_Cli"

• module me permettant d'afficher des infos associées à la selection de la combobox (le numeros de ligne du datatable correspond au numeros de ligne de la datasource) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
txtNum_Cont.Text=tbl1.Rows(CbStruct_Cont.SelectedValue).Item("Num_Cont")
txtStruct_Cont.Text=tbl1.Rows(CbStruct_Cont.SelectedValue).Item("Struct_Cont")
txtSiret_Cont.Text=tbl1.Rows(CbStruct_Cont.SelectedValue).Item("Siret_Cont")
txtServ_Cont.Text=tbl1.Rows(CbStruct_Cont.SelectedValue).Item("Serv_Cont")
txtCiv_Cont.Text=tbl1.Rows(CbStruct_Cont.SelectedValue).Item("Civ_Cont")
txtNom_Cont.Text=tbl1.Rows(CbStruct_Cont.SelectedValue).Item("Nom_Cont")
txtPrenom_Cont.Text=tbl1.Rows(CbStruct_Cont.SelectedValue).Item("Prenom_Cont")
txtAd_Cont.Text=tbl1.Rows(CbStruct_Cont.SelectedValue).Item("Ad_Cont")
txtCp_Cont.Text=tbl1.Rows(CbStruct_Cont.SelectedValue).Item("Cp_Cont")
txtVille_Cont.Text=tbl1.Rows(CbStruct_Cont.SelectedValue).Item("Ville_Cont")
txtTel_Cont.Text=tbl1.Rows(CbStruct_Cont.SelectedValue).Item("Tel_Cont")
txtFax_Cont.Text=tbl1.Rows(CbStruct_Cont.SelectedValue).Item("Fax_Cont")
txtPort_Cont.Text=tbl1.Rows(CbStruct_Cont.SelectedValue).Item("Port_Cont")
txtMail_Cont.Text=tbl1.Rows(CbStruct_Cont.SelectedValue).Item("Mail_Cont") 
txtHist_Cont.Text=tbl1.Rows(CbStruct_Cont.SelectedValue).Item("Hist_Cont") 
txtObs_Cont.Text=tbl1.Rows(CbStruct_Cont.SelectedValue).Item("Obs_Cont")

• cbStruct_Cont est mon ComboBox
• Rows() attend un entier, or lorsque je converti cbStruct_Cont.SelectedValue.ToInteger cela ne prend pas en compte la conversion...

Qu'est ce qu'il faut que je fasse ?

[Roken62]

et en faisant un :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
CInt(CbStruct_Cont.SelectedValue)

[pools]

sa me met que la variable de depart n'est au bon type.... méme en faisant CType(ComboBox.SelectedValue, Integer) ça me met le même message d'erreur je comprend pas trop...

[Roken62]

regarde avec le degogage ce que retourne la valeur dans ta combobox. Si ca tombe ce n'est pas un entier, d'ou le message d'erreur.

[pools]

en effet il est de type "DataRowView" il faut mettre le DataSource en dernier :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
CbStruct_Cont.DisplayMember = "Nom_Cli"
 
CbStruct_Cont.ValueMember = "Num_Cli"
 
CbStruct_Cont.DataSource = dt1