一段查找日期的代码，有错吗？怎么就出不来.

[stonec]

private sub FindCmdOk_Click()
......
If IsNumeric(FindTxt.Text) Then '如果输入要查找的是数值型的
do ...
...
ElseIf IsDate(FindTxt.Text) Then '如果输入要查找的是日期型的
Do
rst.Find Findfield & "=#" & cdate(FindTarget)&"#"
If rst.EOF Then '如果到文件尾了
MsgBox "没有找到对应的值！", vbOKOnly + vbInformation, "提示"
Debug.Print rst.AbsolutePosition -------->调试时显示-3
Exit Sub
ElseIf rst.Fields(Num).Value = FindTarget Then
Rownow = rst.AbsolutePosition
Colnow = Num + 1
Debug.Print VarType(FindTxt.Text)
Call ItemHighLight(Colnow, Rownow) '如果找到，则该记录高亮显示
Unload Me

Exit Sub
End If
rst.MoveNext
Loop
Else '如果输入要查找的是字符串型的
do ...
...
end sub
我用format(findtxt.text,"yyyy-mm-dd")试过，也没用。运行时显示没有找到对应的值！

[cbzdream]

s= "& Findfield &" & "=" & '" format(findtxt.text,"yyyy-mm-dd") "'
rst.Find s

[generalj]

肯定是格式问题，跟踪调试一下吧，看看年份少了或多了个20什么的

[饮水需思源]

数据库为access:
rst.Find Findfield & "=#" & cdate(FindTarget)&"#"
数据库为sql:
rst.Find Findfield & "='" & cdate(FindTarget)&"'"

[lxcc]

up

[stonec]

哦，现在对了。一会而对一会而错，而且关闭VB时老说“.exe 出错”，大概系统的问题把！

[chenyu5188]

将VB重装，还不行就重做系统。