共5 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：如何用DrawCell事件标记不连续的编号？
1楼
pc005637 发表于：2011/12/24 13:35:00网络环境使用狐表。
表的编号列（字符属性）要求是连续不间断的整数，以1为序列间隔。比如：20110001，20110002，20110003........
因为是网络环境，所以有时候生成的编号可能会给删除了。会造成缺失。成了：20110001，20110003，2011004......这样子。
如果是几十条数据还好，看一下就可以知道哪里缺失了，及时补回来。如果是几百，几千条数据，就很麻烦。
能否用代码，将“编号列”排序后，与上一行间隔超过1的单元格标记出来？这样就方便多了。
谢谢。
[此贴子已经被作者于2011-12-25 9:26:27编辑过]
2楼
czy 发表于：2011/12/24 14:39:00不知道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
3楼
pc005637 发表于：2011/12/25 9:25:00谢谢版主。
排序后，显示出来就行了。
网络环境，编号的输入可能不是按顺序输入的。
另外狐爸爸，有什么好招？
[此贴子已经被作者于2011-12-25 9:49:08编辑过]
4楼
狐狸爸爸 发表于：2011/12/25 9:49:00没有好的办法，其实应该允许编号缺失的。
5楼
pc005637 发表于：2011/12/25 10:15:00中国的制度就是这样。缺失一个要上报多个部分确认。很麻烦。
共5 条记录, 每页显示 10 条, 页签:
[1]