主题：删除一行后序号的问题

老师，我不想用_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")
'-------以上是自动生成序号-----------------------------

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

drawcell事件

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