Para cada frm em main.MdiChildren
Se o frm de TypeOf é Form2 então
F2 não ofuscante como Form2 = C (frm, Form2)
Ctls não ofuscantes () como o controle = o f2.Controls.Find (“dgvol”, verdadeiros)
Se ctls. O comprimento > 0 os ctls de AndAlso TypeOf (0) é DataGridView então
Dgv não ofuscante como DataGridView = C (ctls (0), DataGridView)
dgv. Rows.Clear ()
Retirar para
Terminar se
Terminar se
Em seguida
|