Foxtable(狐表)用户栏目专家坐堂 → 怎么无法发帖了?


  共有6180人关注过本帖树形打印复制链接

主题:怎么无法发帖了?

美女呀,离线,留言给我吧!
采菊东篱下
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1863 积分:10262 威望:0 精华:0 注册:2019/4/6 8:45:00
怎么无法发帖了?  发帖心情 Post By:2020/8/18 10:24:00 [只看该作者]

我想点击菜单按钮后在页面集合中动态添加一页面,并添加一个空的综合组表,请教我帮能不能这样写?

[此贴子已经被作者于2020/8/19 20:37:10编辑过]

 回到顶部
美女呀,离线,留言给我吧!
采菊东篱下
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1863 积分:10262 威望:0 精华:0 注册:2019/4/6 8:45:00
  发帖心情 Post By:2020/8/18 10:25:00 [只看该作者]

Dim tab As WinForm.TabControl = e.Form.Controls("TabControl1")
If TabPages(Str) = False Then
Add(Str,Str)


 回到顶部
帅哥,在线噢!
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536356 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/8/18 10:26:00 [只看该作者]


 回到顶部
美女呀,离线,留言给我吧!
采菊东篱下
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1863 积分:10262 威望:0 精华:0 注册:2019/4/6 8:45:00
  发帖心情 Post By: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编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536356 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/8/18 10:37:00 [只看该作者]

Dim tab As WinForm.TabControl
tab = Forms("窗口1").Controls("TabControl1")
tab.add(Name, Text)

 回到顶部
美女呀,离线,留言给我吧!
采菊东篱下
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1863 积分:10262 威望:0 精华:0 注册:2019/4/6 8:45:00
  发帖心情 Post By:2020/8/18 11:30:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:qq图片20200818112804.png
图片点击可在新窗口打开查看


 回到顶部
帅哥,在线噢!
有点蓝
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536356 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/8/18 11:41:00 [只看该作者]

If tab.TabPages.Contains("xxx") = False Then

 回到顶部
美女呀,离线,留言给我吧!
采菊东篱下
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1863 积分:10262 威望:0 精华:0 注册:2019/4/6 8:45:00
  发帖心情 Post By:2020/8/18 12:12:00 [只看该作者]


此主题相关图片如下:qq图片20200818121202.png
按此在新窗口浏览图片


 回到顶部
帅哥,在线噢!
有点蓝
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536356 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/8/18 13:34:00 [只看该作者]

学会调试,调试技巧:http://www.foxtable.com/webhelp/scr/1485.htm

msgbox(str)

 回到顶部
美女呀,离线,留言给我吧!
采菊东篱下
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1863 积分:10262 威望:0 精华:0 注册:2019/4/6 8:45:00
  发帖心情 Post By: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

 回到顶部
总数 77 1 2 3 4 5 6 7 8 下一页