Foxtable(狐表)用户栏目专家坐堂 → 多条件筛选的问题


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

主题:多条件筛选的问题

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


加好友 发短信
等级:一尾狐 帖子:430 积分:4655 威望:0 精华:0 注册:2015/3/21 14:25:00
多条件筛选的问题  发帖心情 Post By:2019/1/8 21:20:00 [只看该作者]

因为有的列是含空值,导致筛选按钮不能模糊筛选出内容,怎么处理
此主题相关图片如下:qq截图20190108211516.png
按此在新窗口浏览图片
代码如下

Dim bsc As WinForm.ComboBox = e.Form.Controls("办事处")

Dim sykh As WinForm.ComboBox = e.Form.Controls("上游客户")

Dim ysdt As WinForm.TextBox = e.Form.Controls("运输动态")

Dim rwdh As WinForm.TextBox = e.Form.Controls("任务单号")

Dim ysdh As WinForm.TextBox = e.Form.Controls("运输单号")

Dim vinm As WinForm.TextBox = e.Form.Controls("VIN码")

Dim pp As WinForm.TextBox = e.Form.Controls("品牌")

Dim spc As WinForm.TextBox = e.Form.Controls("商品车")

Dim kssj As WinForm.DateTimePicker = e.Form.Controls("开始")

Dim zzsj As WinForm.DateTimePicker = e.Form.Controls("终止")

 

If kssj.Value IsNot Nothing And zzsj.Value IsNot Nothing Then

Tables("信息总表").Filter = "办事处 like '*" & bsc.Value & "*' and 上游客户 like '*" & sykh.Value & "*' and 运输动态 like '*" & ysdt.Text & "*'and 任务单号 Like '*" & rwdh.Text & "*'and 运输单号 Like '*" & ysdh.Text & "*'and VIN码 like '*" & vinm.Text & "*' and 品牌 like '*" & pp.Text & "*'and 商品车 like '*" & spc.Text & "*' and 计划下达时间 >=  #" & kssj.Value & "# and 计划下达时间 <=  #" & zzsj.Value & "#"

else

Tables("信息总表").Filter = "办事处 like '*" & bsc.Value & "*' and 上游客户 like '*" & sykh.Value & "*' and 运输动态 like '*" & ysdt.Text & "*'and 任务单号 Like '*" & rwdh.Text & "*'and 运输单号 Like '*" & ysdh.Text & "*'and VIN码 like '*" & vinm.Text & "*' and 品牌 like '*" & pp.Text & "*'and 商品车 like '*" & spc.Text & "*'"

end if

[此贴子已经被作者于2019/1/8 21:24:58编辑过]

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


加好友 发短信
等级:一尾狐 帖子:430 积分:4655 威望:0 精华:0 注册:2015/3/21 14:25:00
  发帖心情 Post By:2019/1/8 21:23:00 [只看该作者]

Dim bsc As WinForm.ComboBox = e.Form.Controls("办事处")

Dim sykh As WinForm.ComboBox = e.Form.Controls("上游客户")

Dim ysdt As WinForm.TextBox = e.Form.Controls("运输动态")

Dim rwdh As WinForm.TextBox = e.Form.Controls("任务单号")

Dim ysdh As WinForm.TextBox = e.Form.Controls("运输单号")

Dim vinm As WinForm.TextBox = e.Form.Controls("VIN码")

Dim pp As WinForm.TextBox = e.Form.Controls("品牌")

Dim spc As WinForm.TextBox = e.Form.Controls("商品车")

Dim kssj As WinForm.DateTimePicker = e.Form.Controls("开始")

Dim zzsj As WinForm.DateTimePicker = e.Form.Controls("终止")

 

If kssj.Value IsNot Nothing And zzsj.Value IsNot Nothing Then

Tables("信息总表").Filter = "办事处 like '*" & bsc.Value & "*' and 上游客户 like '*" & sykh.Value & "*' and 运输动态 like '*" & ysdt.Text & "*'and 任务单号 Like '*" & rwdh.Text & "*'and 运输单号 Like '*" & ysdh.Text & "*'and VIN码 like '*" & vinm.Text & "*' and 品牌 like '*" & pp.Text & "*'and 商品车 like '*" & spc.Text & "*' and 计划下达时间 >=  #" & kssj.Value & "# and 计划下达时间 <=  #" & zzsj.Value & "#"

else

Tables("信息总表").Filter = "办事处 like '*" & bsc.Value & "*' and 上游客户 like '*" & sykh.Value & "*' and 运输动态 like '*" & ysdt.Text & "*'and 任务单号 Like '*" & rwdh.Text & "*'and 运输单号 Like '*" & ysdh.Text & "*'and VIN码 like '*" & vinm.Text & "*' and 品牌 like '*" & pp.Text & "*'and 商品车 like '*" & spc.Text & "*'"

end if


 回到顶部
帅哥,在线噢!
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111393 积分:567029 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/1/8 22:52:00 [只看该作者]

按照这种方式设置条件:http://www.foxtable.com/webhelp/scr/1058.htm

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


加好友 发短信
等级:一尾狐 帖子:430 积分:4655 威望:0 精华:0 注册:2015/3/21 14:25:00
  发帖心情 Post By:2019/1/9 18:55:00 [只看该作者]

明白了,谢了
[此贴子已经被作者于2019/1/9 19:31:07编辑过]

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


加好友 发短信
等级:一尾狐 帖子:430 积分:4655 威望:0 精华:0 注册:2015/3/21 14:25:00
  发帖心情 Post By:2019/1/18 21:33:00 [只看该作者]

车辆选定窗口的绑定的表如果设为副本,则在调度窗口增加车号弹出此窗口时,可进行选定(代码被删了)但不能进行查询,
如果没设为副本,可以查询,但在选定时又提示找不到相应的表。
怎么解决?请蓝版指教
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.table


 回到顶部
帅哥,在线噢!
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111393 积分:567029 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/1/18 21:45:00 [只看该作者]

仔细看看:http://www.foxtable.com/webhelp/scr/1906.htm

车辆选定窗口的绑定的表设为副本,查询按钮

……
If Filter > "" Then
    Tables("车号选定窗口_Table1").Filter = Filter
Else
    Tables("车号选定窗口_Table1").Filter = ""
End If

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


加好友 发短信
等级:一尾狐 帖子:430 积分:4655 威望:0 精华:0 注册:2015/3/21 14:25:00
  发帖心情 Post By:2019/1/19 11:33:00 [只看该作者]

一下子豁然了,当时也看了这部分帮助,没理解,你一提醒马上想明白了
谢蓝版

 回到顶部