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

stonec 2003-03-25 03:50:38
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")试过,也没用。运行时显示没有找到对应的值!
...全文
49 点赞 收藏 6
写回复
6 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
chenyu5188 2003-03-26
将VB重装,还不行就重做系统。
回复
stonec 2003-03-26
哦,现在对了。一会而对一会而错,而且关闭VB时老说“.exe 出错”,大概系统的问题把!
回复
lxcc 2003-03-26
up
回复
饮水需思源 2003-03-26
数据库为access:
rst.Find Findfield & "=#" & cdate(FindTarget)&"#"
数据库为sql:
rst.Find Findfield & "='" & cdate(FindTarget)&"'"
回复
generalj 2003-03-25
肯定是格式问题,跟踪调试一下吧,看看年份少了或多了个20什么的
回复
cbzdream 2003-03-25
s= "& Findfield &" & "=" & '" format(findtxt.text,"yyyy-mm-dd") "'
rst.Find s
回复
相关推荐
发帖

1187

社区成员

VB 数据库(包含打印,安装,报表)
申请成为版主
帖子事件
创建了帖子
2003-03-25 03:50
社区公告
暂无公告