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
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
---------------
T定义了没有?
If Trim(rs1.Fields("kejie").Value & "") = T Then
Else
Check1.Value = Unchecked
-----------------------
Check1.Value = 1
Else
Check1.Value = 0
-------------------------
T没定义,那这句是什么意思
我是初学者,还请多多指教。