不知道drawcell频繁执行能不能吃得消
Dim dr As DataRow = DataTables("表A").Find("编号 < '" & e.Row("编号") & "'","_SortKey Desc")If dr IsNot Nothing Then If e.Row("编号") - dr("编号") > 1 Then e.Style = "编号缺失" End IfEnd If