If e.DataCol.name="车号" Then
If e.NewValue IsNot Nothing Then
Dim i As Integer=0
i=e.DataTable.sqlCompute("Max(_identify)","车号='" & e.NewValue & "' AND _identify<>" & E.DataRow("_identify") & "")
If i<>0 Then
Dim dr2 As DataRow=e.DataTable.sqlfind("_identify=" & i & "")
If dr2 IsNot Nothing Then
e.DataRow("上期里程读数")=dr2("本期里程读数")
End If
End If
End If
End If