本帖最后由 hbin_apple 于 2010-01-26 19:10:45 编辑

解决方案 »

  1.   

    If caozuoyuan <> "admin" And Adodc1.Recordset.Fields("provider") <> caozuoyuan Then 
      MsgBox Adodc1.Recordset.Fields("provider") & vbcrlf & caozuoyuan
      MsgBox "您无权操作该记录!", , "警告" 
      Exit Sub 
    End If 看看显示什么?
      

  2.   

      MsgBox Adodc1.Recordset.Fields("provider") & vbcrlf & caozuoyuan 
    If caozuoyuan <> "admin" And Adodc1.Recordset.Fields("provider") <> caozuoyuan Then   MsgBox "您无权操作该记录!", , "警告" 
      Exit Sub 
    End If 
    看看显示什么?
      

  3.   

    这样的代码会有问题?能肯定caozuoyuan没拼写错吗?因为只有caozuoyuan拼错了才会   ""=""  .
      

  4.   

    空值 Null 不要直接参与逻辑运算
    If (caozuoyuan <> "admin") And _
       ((Adodc1.Recordset.Fields("provider") & vbNullString) <> caozuoyuan) Then 
      

  5.   

    Tiger_Zhao:
    不论caozuoyuan等于什么都不会等于vbNullString
    vbNullString=caozuoyuan 都应该不会成立吧?