form1.Adodc1.RecordSource = "SELECT * FROM CTS_读者信息 WHERE 读者姓名='张强'"
If form1.Adodc1.Recordset.EOF = True Then
MsgBox ("设有此人.......")
form1.text1.SetFocus
Exit Sub
Else
form1.Adodc1.Refresh
Unload cxsjxxform
End If
当我执行下面程序后,我的'DATAGRID1'控件里不显示任何记录了,但我没执行前'DAAGRID1'里面显示了多个记录包括读者姓名为张强的记录.执行后也不提示"没有此人.........."这是为什么呀
If form1.Adodc1.Recordset.EOF = True Then
MsgBox ("设有此人.......")
form1.text1.SetFocus
Exit Sub
Else
form1.Adodc1.Refresh
Unload cxsjxxform
End If
当我执行下面程序后,我的'DATAGRID1'控件里不显示任何记录了,但我没执行前'DAAGRID1'里面显示了多个记录包括读者姓名为张强的记录.执行后也不提示"没有此人.........."这是为什么呀
form1.Adodc1.RecordSource = "SELECT * FROM CTS_读者信息 WHERE '" & Trim(form11.Combo1.Text) & "'='" & Trim(form1.Text1.Text) & "'"
If form1.Adodc1.Recordset.EOF = True Then
MsgBox ("设有此人.......")
form1.text1.SetFocus
Exit Sub
Else
form1.Adodc1.Refresh
Unload cxsjxxform
End If
当我执行下面程序后,我的'DATAGRID1'控件里不显示任何记录了,但我没执行前'DAAGRID1'里面显示了多个记录包括读者姓名为张强的记录.执行后也不提示"没有此人.........."这是为什么呀
form1.Adodc1.RecordSource = "SELECT * FROM CTS_读者信息 WHERE '" & Trim(form11.Combo1.Text) & "'='" & Trim(form1.Text1.Text) & "'"
If form1.Adodc1.Recordset.EOF = True Then
MsgBox ("设有此人.......")
form1.text1.SetFocus
Else
form1.Adodc1.Refresh
End If
当我执行下面程序后,我的'DATAGRID1'控件里不显示任何记录了,但我没执行前'DAAGRID1'里面显示了多个记录包括读者姓名为张强的记录.执行后也不提示"没有此人.........."这是为什么呀