主题：筛选两列不为空

按钮代码改一下

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