Foxtable(狐表) → 用户栏目 → 专家坐堂 → 窗口筛选按钮总是部分不识别，请帮看看


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

主题：窗口筛选按钮总是部分不识别，请帮看看
美女呀，离线，留言给我吧！
tesia255
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：240 积分：2041 威望：0 精华：0 注册：2011/9/19 9:21:00 		窗口筛选按钮总是部分不识别，请帮看看  发帖心情 Post By：2014/3/30 11:42:00 [显示全部帖子]

各位老师，情况如题，我写的代码如下：如果选择了退款状态，就筛选不出公司名称，退款有三个状态：全部|退款|未退款，默认是全部

Dim Filter As String
With e.Form.Controls("company")
    If .Value IsNot Nothing Then
        Filter = "公司名称='" & .Value & "'"
    End If
End With

With e.Form.Controls("company1")
    If .Value <> "全部" Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = "退款状态='" & .Value & "'"
    End If
End With


With e.Form.Controls("StartDate")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "付款时间 >= #" & .Value & "#"
    End If
End With

With e.Form.Controls("EndDate")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "付款时间 <= #" & .Value & "#"
    End If
End With



If Filter > "" Then
    Tables("月度结算").Filter = Filter & " AND  [付款时间]  Is not null"
End If
 回到顶部
美女呀，离线，留言给我吧！
tesia255
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：240 积分：2041 威望：0 精华：0 注册：2011/9/19 9:21:00 		  发帖心情 Post By：2014/3/30 12:19:00 [显示全部帖子]

恩 ，请您帮看下， 文本筛选的只能筛选一个
[此贴子已经被作者于2014-3-30 12:32:12编辑过]
 回到顶部
美女呀，离线，留言给我吧！
tesia255
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：240 积分：2041 威望：0 精华：0 注册：2011/9/19 9:21:00 		  发帖心情 Post By：2014/3/30 12:30:00 [显示全部帖子]

筛选键的点击 事件

 回到顶部
美女呀，离线，留言给我吧！
tesia255
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：240 积分：2041 威望：0 精华：0 注册：2011/9/19 9:21:00 		  发帖心情 Post By：2014/3/30 12:32:00 [显示全部帖子]

哦  我好像多给您发了个文件   是项目1/项目1   是里面那个执行文件

 回到顶部
美女呀，离线，留言给我吧！
tesia255
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：240 积分：2041 威望：0 精华：0 注册：2011/9/19 9:21:00 		  发帖心情 Post By：2014/3/30 12:34:00 [显示全部帖子]

应该是这个  
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.zip
 回到顶部
美女呀，离线，留言给我吧！
tesia255
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：240 积分：2041 威望：0 精华：0 注册：2011/9/19 9:21:00 		  发帖心情 Post By：2014/3/30 13:02:00 [显示全部帖子]

付款 和退款时做示例的时候写错了

即使把名字更正过来，筛选也是错的
 回到顶部
美女呀，离线，留言给我吧！
tesia255
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：240 积分：2041 威望：0 精华：0 注册：2011/9/19 9:21:00 		  发帖心情 Post By：2014/3/30 13:38:00 [显示全部帖子]

收到  谢谢您！  

 回到顶部
美女呀，离线，留言给我吧！
tesia255
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：240 积分：2041 威望：0 精华：0 注册：2011/9/19 9:21:00 		  发帖心情 Post By：2014/3/30 14:44:00 [显示全部帖子]

老师好，
这句 ：For Each ctl As WinForm.Control In e.Form.Controls   是把窗体中的所有控件都算在这个集合里了吗？

我能不这样写，而把具体的控件列出来 是否可以？因为在实际程序中一个窗体有很多控件。

如果可以，控件集要怎么定义出来？
 回到顶部
美女呀，离线，留言给我吧！
tesia255
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：240 积分：2041 威望：0 精华：0 注册：2011/9/19 9:21:00 		  发帖心情 Post By：2014/3/30 14:44:00 [显示全部帖子]

？ 我是用正版的开发版啊~~~   插着加密狗呢呀~

 回到顶部
美女呀，离线，留言给我吧！
tesia255
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：240 积分：2041 威望：0 精华：0 注册：2011/9/19 9:21:00 		  发帖心情 Post By：2014/3/30 15:06:00 [显示全部帖子]

用现在的这个代码，筛选出来的   总是空值  

我在示例窗体中添加了一个无关的控件，筛选后也是空值  

这种情况要怎么解决？
 回到顶部
总数 12 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.06250 秒, 6 次数据查询