主题：老师，请问这个代码可以简化吗？

车号信息记录_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

<!--EndFragment-->

对drawcell来说 还是太繁琐了 影响使用 会暂停执行的