For Each ctrl In theform.Controls Select Case TypeName(ctrl) Case "TextBox" xd.SelectSingleNode(ctrl.Tag).InnerText = ctrl.Text Case "ListView" 'todo End Select Next
'Parcourt des contrôles de la page For Each Controle In nom_page.Controls(1).Controls nomchamp = Controle.ID Select Case TypeName(Controle) Case "Textbox" 'On récupère le nom du champ de la table nom = nomchamp.Remove(0, 4) 'Recherche dans la base si le champ existe For Each objDataCol In objDataTable.Columns nom_champ = objDataCol.ColumnName If nom_champ Like nom Then 'Remplissage du champ de saisie champtexte = nom_page.Controls(1).FindControl("Text" + nom) champtexte.Text = objDataTable.Rows(intRowNumber).Item(nom_champ) 'info.ReadTextBox(nomchamp) Exit For End If Next Case "CheckBox" 'On récupère le nom du champ de la table nom = nomchamp.Remove(0, 5) For Each objDataCol In objDataTable.Columns nom_champ = objDataCol.ColumnName If nom_champ Like nom Then 'Remplissage de la case à cocher coche = nom_page.Controls(1).FindControl("Check" + nom) coche.SelectedIndex = objDataTable.Rows(intRowNumber).Item(nom_champ) Exit For End If Next End Select Next