怎么无法发帖了？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

关闭前把添加的表格卸载掉：http://www.foxtable.com/webhelp/topics/2754.htm

此主题相关图片如下：qq图片20200821173156.png

这代码得出所有集合页面都有关闭按钮，我只要新添加的临时表出现关闭按钮，其余的没有，不允许删除这些原始表。

[此贴子已经被作者于2020/8/21 17:37:55编辑过]

不对，添加了又被删除了！

改成这样只要删除增加的窗口重新排座，还是出现上面两个窗口的提示！

此主题相关图片如下：qq图片20200821210550.png

[此贴子已经被作者于2020/8/21 21:17:24编辑过]

If tab.SelectedIndex > 4 Then

tab.TabPages.Delete(tab.SelectedIndex)

End If

设了条件，tab.SelectedIndex　< 3 的页面依然能被删！

tab.SelectedIndex从页面集合左边开始，第一个页签是0，第二个页签是1，..以此类推。选中的肯定是第4个以上的页签

作为软件我肯定要试一下如果误操作，<=此页面的版面会不会被删，页面数都写大了，点击小于这个数的页面依然被删，说明此代码不起作用，我改为：

Dim bslx As WinForm.TextBox = Forms("主窗口").Controls("bslx")

Dim lx As String = bslx.Value

Dim fz As WinForm.DropDownBox = Forms("主窗口").Controls("fenzhu")

Dim Str As String = fz.Value

Dim tbl As WinForm.Table

Dim tab As WinForm.TabControl = Forms("主窗口").Controls("TabControl1")

If tab.TabPages.Contains(Str) = False Then

tab.TabPages.Add(Str,Str)

tbl = Forms("主窗口").CreateSQLTable("Table" & "'" & Str & "'","Select * Fro　m {综合组}","")

tbl.SetBounds(0, 0, 983, 580)

Forms("主窗口").Controls("TabControl1").Tabpages(Str).AddControl(tbl)

Forms("主窗口").Controls("TabControl1").Sele　ctedIndex = tab.TabPages.count + 1

Else

tbl = Forms("主窗口").Controls("Table" & "'" & Str & "'")

End If

Forms("主窗口").Controls("Table" & "'" & Str & "'").Table.SetColVisibleWidth("桌号|30|红方_编号|50|红方_姓名|60|红方_上轮止累计积分|80|红方_曾交战对手累计积分|80|红方_签名|60|当前局成绩_红方|80|当前局成绩_黑方|80|黑方_签名|60|黑方_编号|50|黑方_姓名|60|黑方_上轮止累计积分|80|黑方_曾交战对手累计积分|80")

[此贴子已经被作者于2020/8/22 10:19:12编辑过]

Dim t As C1Command.C1DockingTab = Forms("主窗口").Controls("TabControl1").BaseControl

t.CanCloseTabs = not t.CanCloseTabs

t.CloseBox = 1

If tab.SelectedIndex > 3 Then

tab.TabPages.Delete(tab.SelectedIndex)

Select Case MainTable.Name

Case "比赛积分","基本信息","团体或个人分组","查询"

Case Else

DataTables.UnLoad(MainTable.Name)

End Select

End If

[此贴子已经被作者于2020/8/22 10:13:48编辑过]

或把后面改为这样：

Dim t As C1Command.C1DockingTab = Forms("主窗口").Controls("TabControl1").BaseControl

t.CanCloseTabs = not t.CanCloseTabs

t.CloseBox = 1

Select Case MainTable.Name

Case "比赛积分","基本信息","团体或个人分组","查询" '如果是表A和表B,不执行任何操作

Case Else

DataTables.UnLoad(MainTable.Name)

End Select

都依然在删除页面后重新排座报错：

不要使用页面集合的删除按钮。新建一个删除按钮，代码

Dim tab As WinForm.TabControl = e.Form.Controls("TabControl1")

Dim str As String = Forms("主窗口").Controls("fenzhu").text

If tab.SelectedPage IsNot Nothing Then

Dim tbName As String = "主窗口_Table" & "'" & Str & "'"

If DataTables.Contains(tbName) Then

DataTables.Unload(tbName)

End If

tab.TabPages.Delete(tab.SelectedIndex)

End If

主题：怎么无法发帖了？