[求助] 如何每增一个页签,在新增页面中将入一个表的副本。,
小白求助:
测试过,可以 每增一个页面中,就增加一个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)