If caozuoyuan <> "admin" And Adodc1.Recordset.Fields("provider") <> caozuoyuan Then MsgBox Adodc1.Recordset.Fields("provider") & vbcrlf & caozuoyuan MsgBox "您无权操作该记录!", , "警告" Exit Sub End If 看看显示什么?
MsgBox Adodc1.Recordset.Fields("provider") & vbcrlf & caozuoyuan If caozuoyuan <> "admin" And Adodc1.Recordset.Fields("provider") <> caozuoyuan Then MsgBox "您无权操作该记录!", , "警告" Exit Sub End If 看看显示什么?
MsgBox Adodc1.Recordset.Fields("provider") & vbcrlf & caozuoyuan
MsgBox "您无权操作该记录!", , "警告"
Exit Sub
End If 看看显示什么?
If caozuoyuan <> "admin" And Adodc1.Recordset.Fields("provider") <> caozuoyuan Then MsgBox "您无权操作该记录!", , "警告"
Exit Sub
End If
看看显示什么?
If (caozuoyuan <> "admin") And _
((Adodc1.Recordset.Fields("provider") & vbNullString) <> caozuoyuan) Then
不论caozuoyuan等于什么都不会等于vbNullString
vbNullString=caozuoyuan 都应该不会成立吧?