主题：有关find不能继续检索并填充

蒙一下：

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