1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
|
'Je boucle sur la table1
for each row in maTable1
'Je rempli les champs de la variable dataRow
newRow("champ1") = "patatipatata...."
newRow("champ2") = "patatipatata...."
'J'insère dans la table1 la ligne fraichement créée
InsertIntoMaTable1(newRow)
'J'appelle la fonction qui va préparer une nouvelle ligne et l'insérer dans la
'table2.
'Cette procédure contient une boucle sur un dataTable, qui contient elle 'même un Application.DoEvents()
InitTable2()
'J'ai des controles qui affiche la progression des insertions: barres,labels
'je les rafraîchis.
Application.DoEvents()
next |
Partager