以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  删除一行后序号的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=98812)
--  作者：weipeng6999
--  发布时间：2017/4/7 13:49:00
--  删除一行后序号的问题

老师，我不想用_Identify，序号设计代码是：

\'---------以下是自动生成序号--------------------------
Dim i As String = DataTables("表1").Compute("max(序号)")
Dim idx As Integer
If i > "" Then 
    idx = cint(i.SubString(2,3)) +1
Else
    idx =1
End If
Tables("表1").Current("序号") = "ZL" & ForMAT(idx,"000")
\'-------以上是自动生成序号-----------------------------

 

现在我想在任意位置删除一行后序号能自动按连续的顺序下去，包含原有的和新增后的序号。请问应该怎么写？

[此贴子已经被作者于2017/4/7 14:08:57编辑过]
--  作者：有点青
--  发布时间：2017/4/7 14:09:00
--  

drawcell事件

 

If e.Col.name = "第一列" Then
    e.Text = "KH" & Format(e.Row.Index+1, "0000")
End If