主题：页签不显示关闭按钮

老师，我弄了个代表事项表，把需要审批的都加入到了待办事项表中，窗口名，页签名等信息也传递了过来，我双击打开代待办事项，页签也打开了，但是页签的关闭按钮没出来是什么问题呢？

其他地方运行增加页签都是正常的。

双击打开代码如下：

If e.Col.name = "待办事项"  Then
    Dim r As Row = Tables("主窗口_Table2").Current
    Dim dd As String = r("ID")
    Dim nm As String = r("表名")
    Dim ck As String = r("窗口名")
    Dim yq As String = r("页签名")
    If DataTables.Contains(nm) = False
        DataTables.Load(nm)
    End If
    Functions.Execute("增加页签",ck,yq)
    DataTables(nm).Save()  '接下来要根据主键查找,必须先保存,因为只有保存后新增行的主键才是有效值.
    Dim dr As DataRow = DataTables(nm).Find("[ID] = '" & dd & "'")
    If dr Is Nothing Then
        DataTables(nm).AppendLoad("[ID] = '" & dd & "'")
        dr =  DataTables(nm).Find("[ID] = '" & dd & "'")
    Else
        dr.Load()
    End If
    If dr IsNot Nothing Then
        Dim wz As Integer = Tables(nm).FindRow("[ID] = '" & dd & "'")
        If wz < 0 Then  '如果因为筛选导致此合同签订类不可见
            Tables(nm).Filter = ""
            wz =Tables(nm).FindRow(dr)
        End If
        If wz >= 0 Then
            Tables(nm).Position = wz
            Tables(nm).TopVisibleRow = wz   '定位行后设置为第一个可见行位置,http://www.foxtable.com/webhelp/scr/2358.htm
        End  If
    End  If
End  If

 

内部函数增加页签代码：

Dim name As String = Args(0)  '窗口名
Dim text As String = Args(1)  '页签名
Dim tab As WinForm.TabControl = forms("主窗口").Controls("TabControl1")
If tab.TabPages(name) Is Nothing Then
    tab.TabPages.Add(name,text)  '窗口名,页签名
    Dim pb = tab.BaseControl
    Forms(name).OPEN(-1000,-1500)
    Forms(name).BaseForm.TopLevel = False
    Forms(name).BaseForm.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
    Forms(name).BaseForm.Dock = System.Windows.Forms.DockStyle.Fill
    PB.TabPages(name).Controls.Clear
    PB.TabPages(name).Controls.add(Forms(name).BaseForm)
    tab.SelectedPage = tab.TabPages(name)
Else
    tab.SelectedPage = tab.TabPages(name)
End If

没看到有添加关闭按钮的代码。

明白了，全局代码中只针对了lvw写了关闭按钮。

 

另外一个问题，窗口中有table,进入窗口，焦点会在表中的第一行，有点不好看，怎么移除焦点呢？

 

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

table.select(-1,-1)