车号信息记录_DrawCell
Select e.Col.name
Case "车号"
Dim dr0 As DataRow
Dim Date0 As Date = e.Row("日期")
dr0 = DataTables("车号信息记录").find("[_identify] <>" & e.Row("_identify") & " and 车号 = '" & e.Row("车号") & "'and 进出库分类 = '" & e.Row("进出库分类") & "' And 日期 >= # " & date0.addhours(-16) & "#And 日期 <= # " & date0.addhours(16) & "#")
If dr0 IsNot Nothing Then
e.style = "车号重复"
End If
End Select