If e.DataRow.IsNull("车号") = False And cstr(num).Length = 7 Then
dr = DataTables("客户车号表").find("substring(Convert(车号,'System.String'),3,5) = '" & cstr(num).SubString(2) & "'And [已到达] = False ")
If dr IsNot Nothing Then
Dim wz As Integer = Tables("客户车号表").FindRow(dr)
If wz >= 0 Then
Tables("客户车号表").Position = wz
End If
e.DataRow("客户名称") = dr("客户名称")
e.DataRow("收货人") = dr("收货人")
e.DataRow("托运人") = dr("托运人")
e.DataRow("到发站") = dr("到发站")
e.DataRow("进出库分类") = "进库"
If e.DataRow("是否审核") = True Then
dr("已到达") = True
End If
End If
这段代码有问题吗?If wz >= 0 Then
Tables("客户车号表").Position = wz
End If
这里为什么要>=0,而不是直接>0呢?