以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]如何每增一个页签,在新增页面中将入一个表的副本  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=184776)

--  作者:ade2015
--  发布时间: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)

--  作者:有点蓝
--  发布时间: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
--  发布时间:2022/12/31 13:25:00
--  
谢谢