For Each p As WinForm.TabPage In e.Form.Controls("TabControl1").tabpages
For Each c As WinForm.Control In p.children
If TypeOf c Is WinForm.Table Then '判断控件是否是Table
Dim t As WinForm.Table = c '使用特定类型的变量引用控件
MessageBox.Show(t.name)
ElseIf TypeOf c Is WinForm.Panel Then
Dim pnl As WinForm.Panel = c
For Each c2 As WinForm.Control In pnl.children
If TypeOf c2 Is WinForm.Table Then '判断控件是否是Table
Dim t2 As WinForm.Table = c '使用特定类型的变量引用控件
MessageBox.Show(t2.name)
End If
Next
End If
Next
Next
加好友 
发短信
Post By：2022/5/7 14:11:00 [显示全部帖子]
