Foxtable(狐表)用户栏目专家坐堂 → 代码失效


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

主题:代码失效

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


加好友 发短信
等级:九尾狐 帖子:2707 积分:18056 威望:0 精华:0 注册:2013/4/9 10:41:00
代码失效  发帖心情 Post By:2015/3/7 0:30:00 [显示全部帖子]

能帮忙看看这个代码吗?为什么点击其他按钮后 下面按钮就失效了呢 
Dim Filter As String
With e.Form.Controls("TextBox13")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "绑定号 = '" & .Value & "'"   '此处内容自行修改
    End If
End With
If Filter > "" Then
    Tables("企业档案窗口_Table1").Filter = Filter
End If  '显示订单清单的列表
'Forms("企业档案窗口").Controls("TabControl1").SelectedIndex = 4  '点击后立刻显示TabControl的页面

 回到顶部