Repérage des index dans les datatables

Bonsoir,

Je suis pas sur d'avoir tout compris.... En même temps je débute....

Citation:

je remplie une combobox avec une boucle sur le datatable

Personnellement j'utilise le DataSet pour remplir mes combobox et sans boucle.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
 
 Dim Connection As New OleDb.OleDbConnection
 
        Try
 
            ' Connection
            Connection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                                          "Data Source =" & Application.StartupPath & "\Source\Parc Vehicule.mdb;"
            Connection.Open()
 
            ' Création de la requête
            Dim SqlFiltre As String
           SqlFiltre = "SELECT NomDeLaTable.NomDuChamp1, NomDeLaTable.NomDuChamp2 " & _
                      "FROM NomDeLaTable " & _
                      "WHERE NomDeLaTable.NomDuChamp1 = TaClause " & _
                      "ORDER BY NomDuChamp1;"
 
            ' Création du DataAdapter
            Dim DtAdapter = New OleDb.OleDbDataAdapter(SqlFiltre, Connection)
 
            ' Création du DataSet
            Dim DtSet As New DataSet
            DtAdapter.Fill(DtSet, "Tbl_MaTable")
 
            ' Remplissage de la liste
            Me.cboTaCombobox.DisplayMember = NomDuChampX
            Me.cboTaCombobox.ValueMember = "ID_NomDuChampX"
            Me.cboTaCombobox.DataSource = DtSet.Tables("Tbl_MaTable")
            Me.cboTaCombobox.Refresh()
 
        Catch ex As Exception
            'Message d'erreur
            'MessageBox.Show(ex.ToString, "Erreur", MessageBoxButtons.OK, MessageBoxIcon.Error)
            'Vider la liste (se produit lorsque l'égalité de Where est null
            Me.cboTaCombobox.DisplayMember = Nothing
             Me.cboTaCombobox.ValueMember = Nothing
            Me.cboTaCombobox.DataSource = Nothing
 
        Finally
            'Fermer la connection
            Connection.Close()
 
        End Try

Pour le reste recherche du côté de

Code:

1
2
3
4
5
6
7
8
9
10
 
' Sélection de la 1ère ligne 
                    objDataRow = objDataSet.Tables("FicheVehicule").Rows(TonN°DeLigne)
 
            objDataRow("NomDuChampDeTaTable") = Me.txtTonchamp.Text
 
            'Pour modifier les valeurs changées dans le DataAdapter
            objCommandBuilder = New OleDb.OleDbCommandBuilder(objDataAdapter)
            ' Mise à jour
            objDataAdapter.Update(objDataSet, "Tbl_MaTable")

C'est un peu fouilli, mais les idées sont là.

Gwendal..