Как перебрать DataGridView на форме циклом? - VB

Формулировка задачи:

Привет всем! На форме есть 8 вкладок, и на каждой вкладке DataGrid (DataGrigView1, DataGridView2, и т.д.) как их все циклом перебрать, чтобы не писать текст для каждой?

                    Листинг программы
                
            For tabs = 0 To MainForm.TabControl1.TabCount - 1
                objSheet = objWorkbook.Sheets(MainForm.TabControl1.TabPages.Item(tabs).Text)
               MainForm.DataGridView2)
            Next tabs

Пробую так, но понимаю что неправильно

                    Листинг программы
                
 DataTableToExcelSheet(objSheet, 2, 1, MainForm.TabControl1.TabPages(tabs).Controls.Item(0).Name())

Решение задачи: «Как перебрать DataGridView на форме циклом?»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Dim i As Control
For Each i In MainForm.Controls
    If TypeName(i) = "DataGridView" Then
        'здесь переменная i представляет собой очередной DataGridView
    End If
Next i

Оцени полезность:

9 голосов , оценка 4.333 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы