专家坐堂-[求助]如何每增一个页签，在新增页面中将入一个表的副本Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  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
--
谢谢