窗口代码错误 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 窗口代码错误

共有2448人关注过本帖树形打印复制链接主题：窗口代码错误

kaituozhe

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2234 积分：15278 威望：0 精华：0 注册：2015/7/18 10:10:00

窗口代码错误 发帖心情

Post By：2015/10/18 8:11:00 [只看该作者]

我在另外一个窗口中可以使用的代码，到这里窗口就这样提示的不知道是什么原因

Dim tab As winform.tabcontrol=e.Form.controls("tabcontrol3")
If tab.tabpages("窗口1") IsNot Nothing Then
    tab.Selectedpage = tab.tabpages("窗口1")
Else
    Dim name As String = "窗口1"
    tab.tabpages.Add(name,name)
    Dim pb =tab.basecontrol
    Forms(name).open(-1000,-1500)
    Forms(name).baseform.Toplevel = False
    Forms(name).baseform.Formborderstyle = system.windows.Forms.Formborderstyle.none
    Forms(name).baseform.Dock = system.windows.Forms.dockstyle.fill
    pb.tabpages(name).controls.clear
    pb.tabpages(name).controls(Forms(name).baseform)
    tab.Selectedpage = tab.tabpages(name)
End If

.NET Framework 版本：2.0.50727.5420
Foxtable 版本：2014.11.11.1
错误所在事件：窗口,主窗口,Button6,Click
详细错误信息：
未将对象引用设置到对象的实例。

.NET Framework 版本：2.0.50727.5420
Foxtable 版本：2014.11.11.1
错误所在事件：窗口,主窗口,Button5,Click
详细错误信息：
重载决策失败，因为没有可访问的“controls”接受此数目的参数。

大红袍

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/10/18 10:35:00 [只看该作者]

汗

pb.tabpages(name).controls.add(Forms(name).baseform)

kaituozhe

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2234 积分：15278 威望：0 精华：0 注册：2015/7/18 10:10:00

Post By：2015/10/18 10:36:00 [只看该作者]

该怎么改呀

kaituozhe

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2234 积分：15278 威望：0 精华：0 注册：2015/7/18 10:10:00

Post By：2015/10/18 10:51:00 [只看该作者]

通过上述代码打开新窗口时，新窗口动态加载的控件也加载不进来，该怎么处理

kaituozhe

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2234 积分：15278 威望：0 精华：0 注册：2015/7/18 10:10:00

Post By：2015/10/18 11:22:00 [只看该作者]

打开主窗口，然后再在主窗口中打开高级筛选，打开高级筛选窗口中的按钮后关闭时提示错误，该怎么处理

下载信息 [文件大小：下载次数： ]
点击浏览该文件:产品5.zip

大红袍

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/10/18 12:30:00 [只看该作者]

以下是引用kaituozhe在2015/10/18 10:51:00的发言：
通过上述代码打开新窗口时，新窗口动态加载的控件也加载不进来，该怎么处理

汗，

pb.tabpages(name).controls.add(Forms(name).baseform)

大红袍

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/10/18 12:31:00 [只看该作者]

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=75900

kaituozhe

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2234 积分：15278 威望：0 精华：0 注册：2015/7/18 10:10:00

Post By：2015/10/18 14:55:00 [只看该作者]

Dim tab As winform.tabcontrol=e.Form.controls("tabcontrol3")
If tab.tabpages("窗口1") IsNot Nothing Then
tab.Selectedpage = tab.tabpages("窗口1")
Else
Dim name As String = "窗口1"
tab.tabpages.Add(name,name)
Dim pb =tab.basecontrol
Forms(name).open(-1000,-1500)
Forms(name).baseform.Toplevel = False
Forms(name).baseform.Formborderstyle = system.windows.Forms.Formborderstyle.none
Forms(name).baseform.Dock = system.windows.Forms.dockstyle.fill
pb.tabpages(name).controls.clear
pb.tabpages(name).controls(Forms(name).baseform)
tab.Selectedpage = tab.tabpages(name)
End If

这段代码有什么问题吗？我是在一个窗口中打开另外一个窗口，打开时有以上提示

大红袍

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/10/18 14:56:00 [只看该作者]

无语

pb.tabpages(name).controls.add(Forms(name).baseform)

kaituozhe

小大 10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2234 积分：15278 威望：0 精华：0 注册：2015/7/18 10:10:00

Post By：2015/10/18 15:00:00 [只看该作者]

需要怎么改呀，帮助又类似的案例，这段代码在另外一个项目是可以的，

下一主题 >> << 上一主题

总数 17 1 2 下一页

主题：窗口代码错误