Dim pg As WinForm.TabControl = e.Form.Controls("页签")
Dim n As String = pg.SelectedPage.Text \'定义n为当前页签的名称
Dim t As String = "设定_" & n
Tables(t).Filter = "类别 =\'" & n & "\'"
这个代码应该没有错吧,不知道问题出在哪,请老师帮忙看下
-- 作者:有点甜
-- 发布时间:2018/1/4 16:19:00
--
试试改成
Dim pg As WinForm.TabControl = e.Form.Controls("页签") Dim n As String = pg.SelectedPage.Text \'定义n为当前页签的名称 e.form.controls(n).Table.Filter = "类别 =\'" & n & "\'"