- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 怎么无法发帖了？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=153642)
-- 发布时间：2020/8/18 10:24:00
-- 怎么无法发帖了？
我想点击菜单按钮后在页面集合中动态添加一页面，并添加一个空的综合组表，请教我帮能不能这样写？
[此贴子已经被作者于2020/8/19 20:37:10编辑过]
-- 发布时间：2020/8/18 10:25:00
--
Dim tab As WinForm.TabControl = e.Form.Controls("TabControl1")
If TabPages(Str) = False Then
Add(Str,Str)
-- 发布时间：2020/8/18 10:26:00
--
无法发帖看看：http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=69632
-- 发布时间：2020/8/18 10:31:00
--
Dim fz As WinForm.ComboBox = e.Form.Controls("fenzhu")
Dim Str As String = fz.Value
此主题相关图片如下：qq图片20200818102939.png
[此贴子已经被作者于2020/8/18 10:35:16编辑过]
-- 发布时间：2020/8/18 10:37:00
--
Dim tab As WinForm.TabControl
tab = Forms("窗口1").Controls("TabControl1")
tab.add(Name, Text)
-- 发布时间：2020/8/18 11:30:00
--
此主题相关图片如下：qq图片20200818112804.png
-- 发布时间：2020/8/18 11:41:00
--
If tab.TabPages.Contains("xxx") = False Then
-- 发布时间：2020/8/18 12:12:00
--
此主题相关图片如下：qq图片20200818121202.png
-- 发布时间：2020/8/18 13:34:00
--
学会调试，调试技巧：http://www.foxtable.com/webhelp/scr/1485.htm
msgbox(str)
-- 发布时间：2020/8/18 15:08:00
--
密码：888888
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:象棋排赛正常加载树.foxdb |
Dim bslx As WinForm.TextBox = Forms("主窗口").Controls("bslx")
Dim lx As String = bslx.Value
Dim fz As WinForm.DropDownBox = Forms("主窗口").Controls("fenzhu")
Dim Str As String = fz.Value
If lx = "个人赛" Then
Dim tab As WinForm.TabControl = Forms("主窗口").Controls("TabControl1")
If tab.TabPages.Contains(Str) = False Then
tab.TabPages.Add(Str,Str)
End If
Dim tbl As WinForm.Table
tbl = Forms("主窗口").CreateTable("Table4","综合组",True)
tbl.SetBounds(0, 0, 747, 470)
Forms("主窗口").Controls("TabControl1").Tabpages(Str).AddControl(tbl)
End If