Dim txt As String = e.Form.Controls("Text数据表").text
Dim tab As WinForm.TabControl = e.Form.Controls("TabControl1")
Dim id As Integer = tab.TabPages.Count
tab.TabPages.Add(txt,txt)
tab.Sele ctedIndex = id
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~?
If e.form.controls.contains(txt) Then
MessageBox.Show("移除")
e.form.Remov eControl(txt)
End If
Dim tbl As WinForm.Table
tbl = e.Form.CreateSQLTable(txt ,"Sel ect * from [" & txt & "]", "AIS20170303202558")
tbl.Dock = 5
e.Form.Controls("TabControl1").Tabpages(id).AddControl(tbl)
.NET Framework 版本：2.0.50727.5485
Foxtable 版本：2018.3.9.1
错误所在事件：窗口,查找表名列名,Button2,Click
详细错误信息：
已添加了具有相同键的项。
此主题相关图片如下：无标题.png
加好友 
发短信
Post By：2018/10/26 10:31:00 [只看该作者]
