用户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
现在的问题是:可以筛选出来 但是点击销售审批按钮时,第一行数据会添加一个销售审批人,无销售审批时间,第二行会添加一个销售审批时间,无销售审批人!
难道是读取行有问题?