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


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

主题:怎么无法发帖了?

美女呀,离线,留言给我吧!
采菊东篱下
  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


加好友 发短信
等级:八尾狐 帖子: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编辑过]

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


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


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


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


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


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


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

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


加好友 发短信
等级:八尾狐 帖子:1863 积分:10262 威望:0 精华:0 注册:2019/4/6 8:45:00
  发帖心情 Post By:2020/8/18 15:10:00 [显示全部帖子]

可以了


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


加好友 发短信
等级:八尾狐 帖子:1863 积分:10262 威望:0 精华:0 注册:2019/4/6 8:45:00
  发帖心情 Post By:2020/8/18 15:15:00 [显示全部帖子]

选老人组可以生成页面了,再选综合组,报错了,绑的的table4要加1变成table5吧?
图片点击可在新窗口打开查看此主题相关图片如下:qq图片20200818151215.png
图片点击可在新窗口打开查看

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


加好友 发短信
等级:八尾狐 帖子:1863 积分:10262 威望:0 精华:0 注册:2019/4/6 8:45:00
  发帖心情 Post By:2020/8/18 15:29:00 [显示全部帖子]

下拉选项重选定另一个组,新增的表名已不相同啦。

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


加好友 发短信
等级:八尾狐 帖子:1863 积分:10262 威望:0 精华:0 注册:2019/4/6 8:45:00
  发帖心情 Post By:2020/8/18 15:32:00 [显示全部帖子]

table4名也要变,我想想该怎么写。

 回到顶部
总数 51 1 2 3 4 5 6 下一页