- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]动态增加Table出错。 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=126663)
-- 发布时间：2018/10/26 10:31:00
-- [求助]动态增加Table出错。
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
-- 发布时间：2018/10/26 10:54:00
--
If DataTables.Contains(txt) Then
DataTables.Unload(txt)
End If
Dim tbl As WinForm.Table
tbl = e.Form.CreateSQLTable(txt ,"Select * from [" & txt & "]", "AIS20170303202558")
-- 发布时间：2018/10/26 11:20:00
--
SEOrder
数据表名称如上，还是出错，用以下代码没有问题，但数据表名称更改为：SEOrderEntry 又可以正常生成、
Dim cmd As new SQLCommand
Dim Sqldt As DataTable
Dim txt As String = e.Form.Controls("Text数据表").text
cmd.C
cmd.CommandText = "Sel ect * from [" & txt & "]"
Sqldt = cmd.ExecuteReader
Dim tb As Table = Tables(e.Form.Name & "_Table1")
Dim dt As DataTable = tb.DataTable
tb.DataSource = Sqldt
-- 发布时间：2018/10/26 11:30:00
--
tbl = e.Form.CreateSQLTable("窗口名称_" & txt ,"Select * from [" & txt & "]", "AIS20170303202558")
-- 发布时间：2018/10/26 16:29:00
--
tbl = e.Form.CreateSQLTable(e.Form.Name & "_" & txt ,"Se lect * from {" & txt & "}", "AIS20170303202558")
老师，以上代码测试通过，想知道原因！为什么换个数据表SEOrderEntry 就不会有问题呢？
[此贴子已经被作者于2018/10/26 16:34:05编辑过]
-- 发布时间：2018/10/26 16:58:00
--
不清楚。可能和其他代码冲突了吧