Foxtable(狐表)用户栏目专家坐堂 → 为什么切换页面标签后,按钮不能用了?


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

主题:为什么切换页面标签后,按钮不能用了?

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


加好友 发短信
等级:幼狐 帖子:53 积分:584 威望:0 精华:0 注册:2019/9/19 23:27:00
为什么切换页面标签后,按钮不能用了?  发帖心情 Post By:2024/1/11 7:50:00 [只看该作者]

窗口里面的页面标签,切换到其中的某个标签后,按钮和筛选器对表都不起作用了?不切换到这些标签的时候还没有问题。
按钮的语句:
With Tables("绿建国标条款")
    .Position = .Position + 1
End With
筛选器的语句:
Dim Filter As String
With e.Form.Controls("tx")
    If .Value IsNot Nothing Then
        Filter = "条文归属 = '" & .Value & "'"
    End If
End With
With e.Form.Controls("qd")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If 
        Filter = Filter & "条文分类 = '" & .Value & "'"
    End If
End With

With e.Form.Controls("bj")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If 
        Filter = Filter & "标记 = '" & .Value & "'"
    End If
End With
With e.Form.Controls("zy")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If 
        Filter = Filter & "专业分类 like  '%" & .Value & "%'"
    End If
End With
With e.Form.Controls("ny")
    If .Value IsNot Nothing Then
        Filter = "难易度 = '" & .Value & "'"
    End If
End With
If Filter > "" Then
    Tables("绿建国标条款").Filter = Filter


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


加好友 发短信
等级:幼狐 帖子:53 积分:584 威望:0 精华:0 注册:2019/9/19 23:27:00
  发帖心情 Post By:2024/1/11 8:10:00 [只看该作者]

找到原因了,把表属性设为附表,也不要频繁刷新表就没有问题了

 回到顶部