Foxtable(狐表)用户栏目专家坐堂 → Combox问题


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

主题:Combox问题

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


加好友 发短信
等级:婴狐 帖子:45 积分:375 威望:0 精华:0 注册:2009/6/8 0:05:00
Combox问题  发帖心情 Post By:2009/7/1 16:59:00 [只看该作者]

 我在页面上设置4个combox,通过这4个combox的值来实现查询表。最后表显示筛选出的信息!可以只在一个combox里输入内容查询,也可以多个。请问怎么实现......

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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2009/7/1 17:02:00 [只看该作者]

参考:

开发篇 - 窗口设计 - 其他 - 一个例子


 回到顶部
美女呀,离线,留言给我吧!
shxiaoya
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:191 积分:1442 威望:0 精华:2 注册:2008/9/7 21:30:00
  发帖心情 Post By:2009/7/1 17:03:00 [只看该作者]

Dim Filter As String
With
e.Form.Controls("combox1")
    If
.Value IsNot Nothing Then
        Filter =
"产品 = '" & .Value & "'"
   
End If
End
With
With
e.Form.Controls("combox2")
    If
.Value IsNot Nothing Then
        If
Filter > "" Then
            Filter = Filter &
" And "
   
    End If
        Filter = Filter &
"客户 = '" & .Value & "'"
   
End If
End
With
With
e.Form.Controls("combox3")
    If
.Value IsNot Nothing Then
        If
Filter >"" Then
            Filter = Filter &
" And "
       
End If
        Filter = Filter &
"雇员 = '" & .Value & "'"
   
End If
End
With
With
e.Form.Controls("combox4")
    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
End
If

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


加好友 发短信
等级:婴狐 帖子:45 积分:375 威望:0 精华:0 注册:2009/6/8 0:05:00
  发帖心情 Post By:2009/7/1 17:06:00 [只看该作者]

谢谢!!!

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


加好友 发短信 一级勋章
等级:狐仙 帖子:9879 积分:57640 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By:2009/7/2 8:31:00 [只看该作者]

以下是引用forwork在2009-7-1 16:59:00的发言:
 我在页面上设置4个combox,通过这4个combox的值来实现查询表。最后表显示筛选出的信息!可以只在一个combox里输入内容查询,也可以多个。请问怎么实现......

看yang版的模糊查询,利用一个combox就可以解决问题了.


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


加好友 发短信 F6
等级:狐精 帖子:3036 积分:19229 威望:0 精华:2 注册:2008/9/1 7:50:00
  发帖心情 Post By:2009/7/2 8:33:00 [只看该作者]

多个有多个的好处,直观明了

 回到顶部
美女呀,离线,留言给我吧!
yangming
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:超级版主 帖子:4109 积分:23338 威望:0 精华:21 注册:2008/9/1 20:07:00
  发帖心情 Post By:2009/7/2 8:39:00 [只看该作者]

各取所需,呵呵

 回到顶部