Pour chaque frm dans main.MdiChildren
Si le frm de TypeOf est Form2 alors
Faible F2 en tant que Form2 = C (frm, Form2)
Faibles ctls () comme commande = F2. Controls.Find (« dgvol », vrais)
Si ctls. La longueur > 0 les ctls d'AndAlso TypeOf (0) est DataGridView alors
Faible DGV comme DataGridView = C (ctls (0), DataGridView)
DGV. Rows.Clear ()
Sortir pour
Finir si
Finir si
Après
|