本人有一个“结算单”表格，如下，通过底盘号检索最近一次回厂日期，
检索到后将'维修结算时间'填充到'上次回厂时间'内,
但是find运行到底盘号只有唯一值时就不继续了，可是已经有判断语句了，
各位大侠，是什么原因呢？
| 底盘号 | 维修结算时间 | 上次回厂时间
|
| LVSHDFMC6AN175181 | 2011/1/1 8:44 | |
| LVSHDFMC6AN175181 | 2011/1/1 8:45 | |
| LVSFDFAB9AN162136 | 2011/1/1 8:47 | |
| LVSFDFAB8AN155484 | 2011/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编辑过]
加好友 
发短信
Post By：2014/3/24 20:44:00 [只看该作者]
