以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  筛选两列不为空  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=109142)
--  作者：LTHERO
--  发布时间：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
--  发布时间：2017/11/5 15:14:00
--  
有大佬吗？可以帮忙解决下吗？谢谢！
--  作者：有点甜
--  发布时间：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