这个意思?
If e.Table.Current IsNot Nothing Then
If Forms("营业报账").Opened Then
If e.Table.Current.isnull("第一列") = False Then
If user.Name = e.Table.Current("业务负责") Then
Forms("营业报账").Controls("删除利润单按键").Enabled = True
Forms("营业报账").Controls("删除利润明细按键").Enabled = True
Else
Forms("营业报账").Controls("删除利润单按键").Enabled = False
Forms("营业报账").Controls("删除利润明细按键").Enabled = False
End If
End If
End If
[此贴子已经被作者于2014-4-30 11:40:37编辑过]