Foxtable(狐表)用户栏目专家坐堂 → 关于数据筛选


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

主题:关于数据筛选

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


加好友 发短信
等级:一尾狐 帖子:465 积分:3216 威望:0 精华:0 注册:2017/4/18 1:15:00
关于数据筛选  发帖心情 Post By:2017/6/30 13:33:00 [显示全部帖子]

Dim Filter As String
With e.Form.Controls("leixingComboBox")
    If .Value IsNot Nothing Then
        Filter = "类型= '" & .Value & "'"
    End If
End With
If e.Form.Controls("yibangding").Checked = True ' 如果客户绑定状态选择了"已绑定"
    If Filter >"" Then
        Filter = Filter & " And "
    End If
    Filter = Filter & "是否绑定= True"
End If
If e.Form.Controls("weibangding").Checked = True ' 如果客户绑定状态选择了"未绑定"
    If Filter >"" Then
        Filter = Filter & " And "
    End If
    Filter = Filter & "是否绑定 = False Or 是否绑定 Is Null"
End If
If e.Form.Controls("yiguoqi").Checked = True ' 如果是否过期状态选择了"已过期"
    If Filter >"" Then
        Filter = Filter & " And "
    End If
    Filter = Filter & "是否过期= True"
End If
If e.Form.Controls("weiguoqi").Checked = True ' 如果是否过期状态选择了"未过期"
    If Filter >"" Then
        Filter = Filter & " And "
    End If
    Filter = Filter & "是否过期 = False Or 是否过期 Is Null"
End If
If e.Form.Controls("keyixufei").Checked = True ' 如果续费状态选择了"已续费"
    If Filter >"" The
        Filter = Filter & " And "
    End If
    Filter = Filter & "是否可以续费= True"
End If
If e.Form.Controls("bukexufei").Checked = True ' 如果续费状态选择了"未续费"
    If Filter >"" Then
        Filter = Filter & " And "
    End If
    Filter = Filter & "是否可以续费 = False Or 是否可以续费 Is Null"
End If
If Filter > "" Then
    Tables("流量卡资料").Filter = Filter
End If
e.Form.Controls("shaixuanhou").text = Tables("流量卡资料").Rows.Count & " 张流量卡"

 

 

 

 

字段代码有问题吗?怎么运行时,无法查找?

 


图片点击可在新窗口打开查看此主题相关图片如下:llk.png
图片点击可在新窗口打开查看
[此贴子已经被作者于2017/6/30 13:36:56编辑过]

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


加好友 发短信
等级:一尾狐 帖子:465 积分:3216 威望:0 精华:0 注册:2017/4/18 1:15:00
  发帖心情 Post By:2017/6/30 15:31:00 [显示全部帖子]

有点甜老师!单击所有的“全部”按钮不管用
[此贴子已经被作者于2017/6/30 15:41:13编辑过]

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


加好友 发短信
等级:一尾狐 帖子:465 积分:3216 威望:0 精华:0 注册:2017/4/18 1:15:00
  发帖心情 Post By:2017/6/30 16:17:00 [显示全部帖子]

有点甜老师!单击所有的“全部”按钮不管用

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


加好友 发短信
等级:一尾狐 帖子:465 积分:3216 威望:0 精华:0 注册:2017/4/18 1:15:00
  发帖心情 Post By:2017/6/30 20:17:00 [显示全部帖子]

如果“类型”为空值,绑定状态选已绑定或未绑定可以更新数据,可是再次选择全部时数据不更新!除非类型字段选择不为空时,再选择绑定字段为全部数值时数据才更新。下边的字段也一样  用msgbox(Filter)返回码是:


图片点击可在新窗口打开查看此主题相关图片如下:sx.png
图片点击可在新窗口打开查看
[此贴子已经被作者于2017/6/30 20:21:26编辑过]

 回到顶部