- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 插入一行时已有行的序号怎样保持不变 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=104105)
-- 发布时间：2017/7/23 18:08:00
-- 插入一行时已有行的序号怎样保持不变
在表事件中为序号列设置了如下代码：
With Tables("表A")
For i As Integer = 0 To .Rows.Count - 1
.Rows(i)("序号") = i + 1
Next
End With
求助：在表中间插入一行时，如何让插入行下方已存在行的序号保持不变？
谢谢！
-- 发布时间：2017/7/23 18:46:00
--
With Tables("表A")
For i As Integer = 0 To .Rows.Count - 1
If .Rows(i).isnull("序号") Then
.Rows(i)("序号") = i + 1
End If
Next
End With
-- 发布时间：2017/7/23 19:48:00
--
好像不对，可能我没说明白。就是序号列在插入这一行的上一行的基础上+1，只管插入这一行的的上一行的序号是几，在此基础上+1。
-- 发布时间：2017/7/23 20:00:00
--
2楼代码没问题，截图说明。
-- 发布时间：2017/7/23 20:26:00
--
这有三个图，图1是未插入行时的序号；
图2是在序号1前插入一行时的情况，序号是25，没问题；
图3是在最后一行的序号1前插入一行时的情况，序号是28，这就有问题了，应该是3。
此主题相关图片如下：2.png
此主题相关图片如下：3.png
所以，应该是只管插入这一行的上一行的序号是几，在此基础上+1。不知道对不对？
此主题相关图片如下：1.png
此主题相关图片如下：1.png-- 发布时间：2017/7/23 20:44:00
--
我说的也不对，不能只看插入行的上一行的序号是几。
我在序号为21的行后插入一行，序号为22，没问题，但原来的序号22-24未变为23-25.
谢谢了！
此主题相关图片如下：4.png
此主题相关图片如下：4.png-- 发布时间：2017/7/23 21:06:00
--
这样？
With Tables("表A")
Dim pi As Integer = 9999
For i As Integer = 0 To .Rows.Count - 1
If .Rows(i).isnull("序号") Then
.Rows(i)("序号") = i + 1
pi = i+1
ElseIf .Rows(i)("序号") >= pi
.Rows(i)("序号") = i + 1
End If
Next
End With
-- 发布时间：2017/7/24 19:01:00
--
这个代码没问题了。
那我要是从中间删除一行呢？非常感谢！
-- 发布时间：2017/7/24 20:43:00
--
DataRowDeleting事件
Dim idx As Integer = Tables(e.DataTable.Name).FindRow(e.DataRow)
If idx > -1 Then
Dim xh As Integer = e.DataRow("序号")
For i As Integer = idx+1 To Tables(e.DataTable.Name).Rows.Count - 1
Dim r As Row = Tables(e.DataTable.Name).Rows(i)
If r("序号") > xh
r("序号") = r("序号") - 1
Else
Return
End If
Next
End If
-- 发布时间：2017/7/26 21:12:00
-- 回复：（有点蓝）DataRowDeleting事件Dim idx As Inte...
直接崩溃了，同样的代码在两台电脑上，一个报错，一个能行。求老师指点：
主要存在两方面的问题：
1.风险分级管控和隐患排查项目清单，表事件datacolchanged代码可能存在问题，评价级别第一次编辑的时候会自动输入值，再次打开项目的时候，值没有了；风险点类型选择设备设施时，所在车间或单位、责任单位、责任人这些自动输入的列不能自动输入。而选择作业活动时，能自动输入
2.插入行、新增行时，作业步骤或检查项目_序号存在问题。删除行时，序号没问题了。
没办法了，直接上我在做的小项目吧，请老师指点，谢谢了！
[此贴子已经被作者于2017/7/26 21:14:05编辑过]