主题：如何用DrawCell事件标记不连续的编号？

网络环境使用狐表。

表的编号列（字符属性）要求是连续不间断的整数，以1为序列间隔。比如：20110001，20110002，20110003........

因为是网络环境，所以有时候生成的编号可能会给删除了。会造成缺失。成了：20110001，20110003，2011004......这样子。

如果是几十条数据还好，看一下就可以知道哪里缺失了，及时补回来。如果是几百，几千条数据，就很麻烦。

能否用代码，将“编号列”排序后，与上一行间隔超过1的单元格标记出来？这样就方便多了。

谢谢。

不知道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 If
End If

谢谢版主。

排序后，显示出来就行了。

网络环境，编号的输入可能不是按顺序输入的。

另外狐爸爸，有什么好招？

没有好的办法，其实应该允许编号缺失的。