代码失效 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有2596人关注过本帖树形打印复制链接主题：代码失效

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的页面

Bin

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2015/3/7 8:37:00 [只看该作者]

上例子.

主题：代码失效