Dla Main.MdiChildren frm W main.MdiChildren
Jeżeli TypeOf frm Być Form2 Wtedy
Ciemnawy f2 Jako Form2 = CType (frm, Form2)
Ciemnawy ctls () Jako Kontrola = f2.Controls.Find ("dgvol", Prawdziwy)
Jeżeli ctls. Długość > (0) AndAlso TypeOf ctls ((0)) Być DataGridView Wtedy
Ciemnawy dgv Jako DataGridView = CType (ctls ((0)), DataGridView)
dgv. Rows.Clear ()
Wyjście Dla
Kończyć Jeżeli
Kończyć Jeżeli
Następnie
|