Dim cdyq As WinForm.TabControl = e.Form.Controls("词典页签") '----一级页面集合的名称 Dim sbcdyq As WinForm.TabControl = e.Form.Controls("设备词典页签") '-----二级页面集合其中第二个的名称 Dim m As String = cdyq.SelectedPage.Text '定义n为当前页签的名称 For Each p As WinForm.TabPage In sbcdyq.TabPages Dim n As String = p.Text '定义n为当前页签的名称 Dim t As String = "词典_" & n Tables(t).Filter = "类别 ='" & n &"'" Next