主题：不知道错哪了？

Dim ht As WinForm.TextBox = e.Form.Controls("TextBox1").Value
Dim kh As WinForm.TextBox = e.Form.Controls("TextBox2").Value

Dim pg As WinForm.TabControl = e.Form.Controls("TabControl1")
Dim n As String = pg.SelectedPage.Text     '定义n为当前页签的名称
Dim ns As String =  n.SubString(0,2)
Dim t As String = "订单装箱配置_" & n
Dim s As String = "装箱配置_" & n
Select Case  e.Sender.SelectedIndex
    Case 0,1
Tables(t).Filter = "类别 ='" & ns  & "' And 合同号 ='" & ht  & '" And 款号 ='" & kh  & "'"

End Select