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