Foxtable(狐表)用户栏目专家坐堂 → 安条件删除页面集合


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

主题:安条件删除页面集合

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


加好友 发短信
等级:超级版主 帖子:109489 积分:557107 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/1/6 14:44:00 [显示全部帖子]

        If Forms("主窗口").Controls("TabControl1").SelectedPage.Name = Str Then
            if DataTables("比赛积分").SQLfind("[团体赛或个人赛] = '" & lx & "' And [棋赛名称] = '" & di1 & "' And [第几轮比赛] = '" & di2 & "' And [分组] = '" & Str & "' and 积分 is null") is nothing then

                    Dim tab As WinForm.TabControl = Forms("主窗口").Controls("TabControl1")
                    tab.TabPages.Delete(tab.SelectedIndex)
                End If
        Else

 回到顶部