- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 插入行后序号问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=121266)
-- 发布时间：2018/7/3 0:53:00
-- 插入行后序号问题
各位老师：我在一个窗口的表中用代码在当行行的第五行下插入3行（不良描述是空的3行），行号排序对了，但这个底盘号中原来的6、7、8行号怎样用命令改成9、10、11呢？
代码如下：
Dim d As String = (e.Form.Controls("TextBox16").Text)
Dim t As Table = Tables("制造质量管理")
Dim cr = t.Current
For i As Integer = 1 To d
Dim nr As Row = t.AddNew()
If t.Current Is Nothing OrElse t.Current.Index = t.Rows.count-1 Then
nr.move(cr.Index+i)
End If
nr("日期") = Date.Today
nr("检验岗") = User.Roles
nr("检验员") = User.Name
nr("编号") = cr("编号")
nr("代号") = cr("代号")
nr("序号") = cr("序号") + i
Dim t As Table = Tables("制造质量管理")
Dim cr = t.Current
For i As Integer = 1 To d
Dim nr As Row = t.AddNew()
If t.Current Is Nothing OrElse t.Current.Index = t.Rows.count-1 Then
nr.move(cr.Index+i)
End If
nr("日期") = Date.Today
nr("检验岗") = User.Roles
nr("检验员") = User.Name
nr("编号") = cr("编号")
nr("代号") = cr("代号")
nr("序号") = cr("序号") + i
请老师指教，谢谢！
-- 发布时间：2018/7/3 0:57:00
--
-- 发布时间：2018/7/3 9:33:00
--
AfterMoveRow事件
e.Table.Rows(e.oldindex)("序号") = e.Table.Rows(e.oldindex).index+1
e.Table.Rows(e.newindex)("序号") = e.Table.Rows(e.newindex).index+1