Foxtable(狐表)用户栏目专家坐堂 → 查询代码问题


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

主题:查询代码问题

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


加好友 发短信
等级:版主 帖子:5246 积分:33163 威望:0 精华:8 注册:2013/1/17 21:28:00
  发帖心情 Post By:2013/8/16 11:56:00 [只看该作者]

Dim Filter As String
If e.Form.Controls("招聘人数").Text = "" Then
    e.Form.Controls("招聘人数").Text = "0"
End If
If e.Form.Controls("招聘人数1").Text = "" Then
    e.Form.Controls("招聘人数1").Text = "999999999999"
End If
Filter = "招聘人数 > = " & e.Form.Controls("招聘人数").Text & " And 招聘人数 < = " & e.Form.Controls("招聘人数1").Text
Tables("表A").Filter = Filter

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


加好友 发短信
等级:三尾狐 帖子:693 积分:5206 威望:0 精华:0 注册:2011/3/15 12:34:00
  发帖心情 Post By:2013/8/16 12:01:00 [只看该作者]

谢谢老师们!

 回到顶部
总数 12 上一页 1 2