参考代码
For Each dt As DataTable In DataTables For Each a As OBJECT In Tables(dt.name).grid.parent.controls For Each b As OBJECT In a.controls output.show(b.text) If b.text = dt.name Then msgbox(b.text) b.dispose End If Next NextNext