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


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

主题：有关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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
zengpeng26
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

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

 回到顶部
帅哥哟，离线，有人找我吗？
zengpeng26
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | 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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
zengpeng26
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

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

 回到顶部
帅哥哟，离线，有人找我吗？
zengpeng26
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | 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.05469 秒, 5 次数据查询