以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  列序号  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=117702)
--  作者：cxmxjwlmq
--  发布时间：2018/4/17 23:35:00
--  列序号

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

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

     序号      
       1    
       2    
   插入行时    3    
 增加行时      1    
谢谢
--  作者：xndd
--  发布时间：2018/4/18 8:47:00
--  
应该在表事件里面判断，如果新增一行，那么在对应列中插入值，这个值来源于检测到的该列的最大值
或者用 日常工作-编辑-其他 里面的序列填充，一次搞定
--  作者：有点甜
--  发布时间：2018/4/18 9:04:00
--  

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

 

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
--  作者：cxmxjwlmq
--  发布时间：2018/4/18 12:20:00
--  

谢谢甜老师指教！