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


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

主题:控件失效

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


加好友 发短信
等级:九尾狐 帖子:2701 积分:17999 威望:0 精华:0 注册:2013/4/9 10:41:00
控件失效  发帖心情 Post By:2017/5/6 15:46:00 [显示全部帖子]

为什么把TextBox11 可见设置为 true   然后在代码中就不能使用了呢  感谢 感谢 


Dim Filter As String
With e.Form.Controls("TextBox11")
    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  '显示订单清单的列表

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


加好友 发短信
等级:九尾狐 帖子:2701 积分:17999 威望:0 精华:0 注册:2013/4/9 10:41:00
  发帖心情 Post By:2017/5/6 17:04:00 [显示全部帖子]

谢谢 还是不行呢 能再帮忙看看 吗 感谢 
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:隐藏控件.table


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


加好友 发短信
等级:九尾狐 帖子:2701 积分:17999 威望:0 精华:0 注册:2013/4/9 10:41:00
  发帖心情 Post By:2017/5/6 19:29:00 [显示全部帖子]

隐藏TextBox1后和没有隐藏TextBox1结果是不相同的,麻烦了  感谢 感谢

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


加好友 发短信
等级:九尾狐 帖子:2701 积分:17999 威望:0 精华:0 注册:2013/4/9 10:41:00
  发帖心情 Post By:2017/5/18 17:03:00 [显示全部帖子]

Dim Filter As String
With e.Form.Controls("TextBox11")
    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  '显示订单清单的列表

可以把 TextBox11 设置为 选中的 财务汇总窗口_Table9 表的 编号列吗? 感谢 感谢 
[此贴子已经被作者于2017/5/18 17:03:15编辑过]

 回到顶部