- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- find 语句莫名其妙出错 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=20995)
-- 发布时间：2012/6/26 17:49:00
-- find 语句莫名其妙出错
drrz3=DataTables("任职简历").Find("身份证号 = "& sfzh &" And 任职时间<= #6/30/2006#","任职时间 Desc",3)
我的简历表中符合条件的有5条记录，查询为空；但如果只有2条记录，就能查出来。请帮忙看看怎么回事啊？是不是系统缺陷啊?
-- 发布时间：2012/6/26 17:50:00
--
以上我想查的是第4条记录
-- 发布时间：2012/6/26 17:55:00
--
做个简单的例子，发上来说话
-- 发布时间：2012/6/27 0:09:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.table |
这个小例子把最后的索引号改成4就不能执行了，但没出现上图的错误
-- 发布时间：2012/6/27 2:12:00
--
根据你的代码内容，你能查询出来仅有3条记录符合条件，所以第四条记录是不可能存在而出错的。
另外，你的代码有些累赘，以下就可以了：
Dim drrz As DataRow =DataTables("表B").find("身份证号 = "& Tables("表A").Current(Tables("表A").Cols("身份证号")) &" And 任职时间<= #6/30/2006#","任职时间 Desc",2)
messagebox.show(drrz("职务"))
-- 发布时间：2012/6/27 7:28:00
--
如果累赘按照你的代码,这样不就可以了?
Dim drrz As DataRow =DataTables("表B").find("身份证号 = "& Tables("表A").Current("身份证号") &" And 任职时间<= #6/30/2006#","任职时间 Desc",2)
-- 发布时间：2012/6/27 9:01:00
--
这个只要加一句if drrz isnot nothing then 判断就可以了，主要错误在下面：
-- 发布时间：2012/6/27 9:03:00
--
此主题相关图片如下：yo$ba{ql4a6fqj3ibm010.jpg