Foxtable(狐表)用户栏目专家坐堂 → [求助]提示已添加了具有相同键的项


  共有2251人关注过本帖树形打印复制链接

主题:[求助]提示已添加了具有相同键的项

帅哥哟,离线,有人找我吗?
linswcfr
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:593 积分:5360 威望:0 精华:0 注册:2011/9/30 8:42:00
[求助]提示已添加了具有相同键的项  发帖心情 Post By:2018/5/17 17:56:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:页面关闭按钮.table


打开第一次正常,关闭后再打开就出错

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/5/17 18:58:00 [只看该作者]

全局代码

 

Public Sub _TabPageClosing(sender As Object, e As C1.Win.C1Command.TabPageCancelEventArgs)
'页面关闭按钮点击事件
If e.TabPage.Name = "主页" Then
    MessageBox.Show("主页不能关闭!")
    e.Cancel = True
Else
    Dim frm As WinForm.Form = Forms(Sender.parent.name)
    Dim ls As new List(of String)
    For Each c As object In e.tabpage.controls
        If c.Gettype.name.contains("o__o_00_") Then
            c.visible = False            
            'msgbox(1)
        End If
        ls.add(c.name)
    Next
    For Each s As String In ls       
        frm.removeControl(s)
    Next
End If
End Sub


 回到顶部