Foxtable(狐表) → 用户栏目 → 专家坐堂 → 有关find不能继续检索并填充


  共有4579人关注过本帖树形打印复制链接

主题：有关find不能继续检索并填充
帅哥哟，离线，有人找我吗？
zengpeng26
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：12 积分：147 威望：0 精华：0 注册：2014/3/20 11:59:00 		有关find不能继续检索并填充  发帖心情 Post By：2014/3/24 20:44:00 [只看该作者]

本人有一个“结算单”表格，如下，通过底盘号检索最近一次回厂日期，
检索到后将'维修结算时间'填充到'上次回厂时间'内,
但是find运行到底盘号只有唯一值时就不继续了，可是已经有判断语句了，
各位大侠，是什么原因呢？

底盘号          维修结算时间  上次回厂时间
LVSHDFMC6AN1751812011/1/1 8:44
LVSHDFMC6AN1751812011/1/1 8:45
LVSFDFAB9AN1621362011/1/1 8:47
LVSFDFAB8AN1554842011/1/1 8:54

Dim dt As DataTable = DataTables("结算单")
Dim y As Date
Dim dr,dr1,dr2 As DataRow
For i As Integer = 0 To dt.DataRows.Count -1
    dr = dt.DataRows(i)
    dr2 = dt.DataRows(i)
    dr1 = dt.Find("[底盘号]  = '" & dr("底盘号") & "'","维修结算时间 Desc",1)  ' 检索出最近一次的维修结算时间
    if dr1 isnot nothing then
dr2("上次回厂日期"） = dr1("维修结算时间")
    end if
Next
[此贴子已经被作者于2014-3-24 20:46:20编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点酸
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1093 积分：6682 威望：0 精华：0 注册：2013/7/1 9:05:00 		  发帖心情 Post By：2014/3/24 21:03:00 [只看该作者]

 dr1 = dt.Find("[底盘号]  = '" & dr("底盘号") & "'","维修结算时间 Desc",0)  ' 检索出最近一次的维修结算时间

 回到顶部
帅哥哟，离线，有人找我吗？
zengpeng26
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：12 积分：147 威望：0 精华：0 注册：2014/3/20 11:59:00 		  发帖心情 Post By：2014/3/24 22:14:00 [只看该作者]

重点不是在最近一次的选择上，而是检索不到数据时，报错。

 回到顶部
帅哥哟，离线，有人找我吗？
有点酸
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1093 积分：6682 威望：0 精华：0 注册：2013/7/1 9:05:00 		  发帖心情 Post By：2014/3/24 22:18:00 [只看该作者]

代码看不出问题，报什么错？

要不自己分析一下吧：

http://www.foxtable.com/help/topics/1485.htm

 

最好是给例子大家测试。

 

[此贴子已经被作者于2014-3-24 22:21:13编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
zengpeng26
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：12 积分：147 威望：0 精华：0 注册：2014/3/20 11:59:00 		  发帖心情 Post By：2014/3/24 22:39:00 [只看该作者]

解决了，不是报错，是运行时间太长，大概要200秒才能算完7500行数据。
有什么高效的算法没有？
[此贴子已经被作者于2014-3-24 22:39:00编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点酸
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1093 积分：6682 威望：0 精华：0 注册：2013/7/1 9:05:00 		  发帖心情 Post By：2014/3/24 22:42:00 [只看该作者]


 回到顶部
帅哥哟，离线，有人找我吗？
zengpeng26
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：12 积分：147 威望：0 精华：0 注册：2014/3/20 11:59:00 		  发帖心情 Post By：2014/3/25 0:01:00 [只看该作者]

像我这样的，怎么写代码能够做到检索和赋值分开呢？

 回到顶部
帅哥哟，离线，有人找我吗？
lsy
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：5246 积分：33163 威望：0 精华：8 注册：2013/1/17 21:28:00 		  发帖心情 Post By：2014/3/25 7:47:00 [只看该作者]

例子传上来，至少将表导出来，上传。

 回到顶部
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47497 积分：251397 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2014/3/25 8:36:00 [只看该作者]

蒙一下：

 

Dim Dic As new  Dictionary(of DataRow, Integer)
Dim dt As DataTable = DataTables("结算单")
Dim y As Date
Dim dr,dr1,dr2 As DataRow
For i As Integer = 0 To dt.DataRows.Count -1
    dr = dt.DataRows(i)
    dr2 = dt.DataRows(i)
    dr1 = dt.Find("[底盘号]  = '" & dr("底盘号") & "'","维修结算时间 Desc",1)  ' 检索出最近一次的维修结算时间
    If dr1 IsNot Nothing Then
        dic.add(dr2,dr1("维修结算时间"))
    End If
Next
For Each dr3 As DataRow In dic.Keys
    dr3("上次回厂日期") = dic(dr3)
Next
 回到顶部
帅哥哟，离线，有人找我吗？
zengpeng26
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：12 积分：147 威望：0 精华：0 注册：2014/3/20 11:59:00 		  发帖心情 Post By：2014/3/25 9:10:00 [只看该作者]

Dim dt As DataTable = DataTables("结算单")
Dim Dic As new Dictionary(of Integer, Date)
Dim dr,dr1,dr2 As DataRow
For i As Integer = 0 To dt.DataRows.Count -1
    dr = dt.DataRows(i)
    dr2 = dt.DataRows(i)
    dr1 = dt.Find("[底盘号]  = '" & dr("底盘号") & "'","维修结算时间 Desc",1) ' 检索出最近一次的维修结算时间
    If dr1 IsNot Nothing Then
dic.add(i,dr1("维修结算时间"))
    End If
Next
For Each i As Integer In dic.Keys
    dr2 = dt.DataRows(i)
    dr2("上次回厂日期") = dic(i)
Next

谢谢狐狸爸爸，我自己写的代码，解决问题了！
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 4 次数据查询