主题：列序号

各位老师：我想求助一下：

    在窗口中增加表行时，表中的序号列序号为1，在表中插入行时，表中序号列序号为上一行的序号加1

	序号
	1
	2
插入行时	3
增加行时	1

谢谢

应该在表事件里面判断，如果新增一行，那么在对应列中插入值，这个值来源于检测到的该列的最大值

参考代码，具体问题上传实例详细说明

 

Dim t As Table = Tables("表A")
Dim r As Row = t.Current
Dim nr As Row = t.InsertNew
If r.index > 0 Then
    nr("第三列") = t.rows(r.index-2)("第三列") + 1
Else
    nr("第三列") = 1
End If

谢谢甜老师指教！