Voor Elke frm in main.MdiChildren
Als TypeOf frm dan Form2 is
Schemerig f2 als Form2 = C (frm, Form2)
Schemerige ctls () als Controle = f2. Controls.Find („dgvol“, Waar)
Als ctls. De lengte > 0 AndAlso TypeOf ctls (0) is dan DataGridView
Schemerige DG V als DataGridView = C (ctls (0), DataGridView)
DG V. Rows.Clear ()
Uitgang voor
Eind als
Eind als
Daarna
|