以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  双击关闭tabpage报错  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=130633)
--  作者：mayazql
--  发布时间：2019/1/27 22:03:00
--  双击关闭tabpage报错
双击关闭页签代码：
If e.Sender.SelectedPage.Text <> "主窗口" Then   \'若双击的页签的标题不是主界面
    Forms(e.Sender.SelectedPage.Text).close  \'关闭双击页签的同名窗体
    e.Sender.TabPages.Delete(e.Sender.SelectedIndex)  \'删除双击的页签
End If

数据字典页签的窗口没有放东西，可以正常关闭
供应商窗口就放了一个table控件，关闭时报错：
.NET Framework 版本：2.0.50727.8835
Foxtable 版本：2018.10.9.1
错误所在事件：窗口,主窗口,TabControl1,DoubleClick
详细错误信息：
未将对象引用设置到对象的实例。

不能上传附件，放在百度网盘，下载链接：测试页签

请教老师指点。

谢谢！
--  作者：mayazql
--  发布时间：2019/1/27 22:11:00
--  
为什么点击“添加附件”没有反应啊？
--  作者：有点甜
--  发布时间：2019/1/27 23:15:00
--  
If e.Sender.SelectedPage.Text <> "主窗口" Then   \'若双击的页签的标题不是主界面
    Dim s = e.Sender.SelectedPage.Text
    e.Sender.TabPages.Delete(e.Sender.SelectedIndex)  \'删除双击的页签
    Forms(s).close  \'关闭双击页签的同名窗体
End If
--  作者：mayazql
--  发布时间：2019/1/28 8:05:00
--  
谢谢甜老师！