Foxtable(狐表)用户栏目专家坐堂 → 筛选两列不为空


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

主题:筛选两列不为空

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


加好友 发短信
等级:幼狐 帖子:154 积分:1331 威望:0 精华:0 注册:2017/10/8 14:56:00
筛选两列不为空  发帖心情 Post By:2017/11/5 14:51:00 [只看该作者]

用户1具有销售审批权限,当用户1登录时,显示用户1为审批的数据!
当用户1点击审批按钮时,会把销售审批人(也就是当前登录用户1)和销售审批日期添加进去!
我把筛选代码写在了用户登录按钮中如下:
Select Case _UserGroup
    Case "销售经理"
        Tables("审批测试_table1").Filter= " [销售审批人] Is Null And [销售审批日期] Is Null"
    Case "财务经理"
        Tables("审批测试_table1").Filter= " [财务审批人] Is Null " 
    Case "资源管理经理"
        Tables("审批测试_table1").Filter= " [资源管理审批人] Is Null " 
    Case "财务经理"
        Tables("审批测试_table1").Filter= " [总经理审批] Is Null " 
End Select

这是我的销售审批按钮的代码:

If _UserGroup = "销售经理" Then
    Tables("审批测试_table1").Current("销售审批人") = _UserName
    Tables("审批测试_table1").Current("销售审批日期") = Date.Today()
    Tables("审批测试_table1").Current.Save()
Else
    MessageBox.show("你无审批权限!")
End If

现在的问题是:可以筛选出来 但是点击销售审批按钮时,第一行数据会添加一个销售审批人,无销售审批时间,第二行会添加一个销售审批时间,无销售审批人! 

难道是读取行有问题?

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


加好友 发短信
等级:幼狐 帖子:154 积分:1331 威望:0 精华:0 注册:2017/10/8 14:56:00
  发帖心情 Post By:2017/11/5 15:14:00 [只看该作者]

有大佬吗?可以帮忙解决下吗?谢谢!

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/11/5 21:17:00 [只看该作者]

按钮代码改一下

 

If _UserGroup = "销售经理" Then
    Dim r As Row = Tables("审批测试_table1").Current
    Tables("审批测试_table1").filter = Tables("审批测试_table1").filter & " or _Identify = " & r("_Identify")
    r("销售审批人") = _UserName
    r("销售审批日期") = Date.Today()
    r.Save()
Else
    MessageBox.show("你无审批权限!")
End If


 回到顶部