Set rs1 = New ADODB.Recordset
    txtSql = "SELECT * FROM TEMP3 WHERE A='" & Trim(Text1.Text) & "'"
    rs1.Open txtSql, conn, adOpenDynamic, adLockOptimistic ', adCmdText
        
    If rs1.EOF = True Then
    MsgBox "没有相关记录!", vbExclamation, "注意"
    Text1.Text = Empty
    Text1.SetFocus
    Exit Sub
    
    Else           
    If Trim(rs1.Fields("kejie").Value) = T Then  〈--- 我就是在这里出了问题。
    Check1.Value = Checked
    Else
    Check1.Value = Unchecked
    End If

解决方案 »

  1.   

    If Trim(rs1.Fields("kejie").Value) = T Then
    ---------------
    T定义了没有?
    If Trim(rs1.Fields("kejie").Value & "") = T Then
      

  2.   

    没有提示错误。就是check 的方筐没反映。T 也没有定义。
      

  3.   

    Check1.Value = Checked
    Else
    Check1.Value = Unchecked
    -----------------------
    Check1.Value = 1
    Else
    Check1.Value = 0
      

  4.   

    If Trim(rs1.Fields("kejie").Value & "") = T Then
    -------------------------
    T没定义,那这句是什么意思
      

  5.   

    T 是我已经在数据库中利用check 约束将该字段规定的 T 和F 中的一个。
      

  6.   

    我不清楚了 没有用过ADO连数据库 都是用的oo4o 我只能关注了哈
      

  7.   

    谢谢各位的回复。check 的问题我已经通过 “T ”的ASCII码 84 解决了。 
    我是初学者,还请多多指教。