Foxtable(狐表)用户栏目专家坐堂 → [求助]如何每增一个页签,在新增页面中将入一个表的副本


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

主题:[求助]如何每增一个页签,在新增页面中将入一个表的副本

帅哥哟,离线,有人找我吗?
ade2015
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:164 积分:1339 威望:0 精华:0 注册:2020/3/14 22:13:00
[求助]如何每增一个页签,在新增页面中将入一个表的副本  发帖心情 Post By:2022/12/31 9:59:00 [只看该作者]

[求助] 如何每增一个页签,在新增页面中将入一个表的副本。,

 小白求助:

测试过,可以   每增一个页面中,就增加一个txt控件,  是OK的。


但是改为         “每增一个页签,在新增页面中将入一个表的副本

可以添加1个,但是再点击的时候报错       “已添加了具有相同键的项。”

代码如下:哪位帮忙看一下

 Dim t As WinForm.TabControl = e.Form.Controls("TabControl1")
t.TabPages.Add("页面" & Vars("yq"), "页面" & Vars("yq"))
Forms("窗口1g").Controls("TabControl1").SelectedIndex = Vars("yq")
Vars("yq") += 1

Dim pgn As Integer = t.SelectedIndex
Dim tbl As WinForm.Table
’MessageBox.Show(pgn)
tbl = e.Form.CreateTable("Table1", "表A", True)
tbl.SetBounds(10, 10, 600, 400)
e.Form.Controls("TabControl1").Tabpages(pgn).AddControl(tbl)

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110333 积分:561507 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/12/31 10:10:00 [只看该作者]

 Dim t As WinForm.TabControl = e.Form.Controls("TabControl1")
t.TabPages.Add("页面" & Vars("yq"), "页面" & Vars("yq"))
Forms("窗口1g").Controls("TabControl1").SelectedIndex = Vars("yq")

Dim pgn As Integer = t.SelectedIndex
Dim tbl As WinForm.Table
’MessageBox.Show(pgn)
tbl = e.Form.CreateTable("Table" & Vars("yq"), "表A", True)
tbl.SetBounds(10, 10, 600, 400)
e.Form.Controls("TabControl1").Tabpages(pgn).AddControl(tbl)
Vars("yq") += 1

 回到顶部
帅哥哟,离线,有人找我吗?
ade2015
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:164 积分:1339 威望:0 精华:0 注册:2020/3/14 22:13:00
  发帖心情 Post By:2022/12/31 13:25:00 [只看该作者]

谢谢

 回到顶部