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 ?