Foxtable(狐表) → 用户栏目 → 专家坐堂 → 插入一行时已有行的序号怎样保持不变


  共有2693人关注过本帖树形打印复制链接

主题：插入一行时已有行的序号怎样保持不变
帅哥哟，离线，有人找我吗？
deliangzhaoe
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：364 积分：3491 威望：0 精华：0 注册：2012/7/24 7:15:00 		插入一行时已有行的序号怎样保持不变  发帖心情 Post By：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

求助：在表中间插入一行时，如何让插入行下方已存在行的序号保持不变？
谢谢！
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：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

 回到顶部
帅哥哟，离线，有人找我吗？
deliangzhaoe
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：364 积分：3491 威望：0 精华：0 注册：2012/7/24 7:15:00 		  发帖心情 Post By：2017/7/23 19:48:00 [只看该作者]

好像不对，可能我没说明白。就是序号列在插入这一行的上一行的基础上+1，只管插入这一行的的上一行的序号是几，在此基础上+1。

 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/7/23 20:00:00 [只看该作者]

2楼代码没问题，截图说明。

 回到顶部
帅哥哟，离线，有人找我吗？
deliangzhaoe
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：364 积分：3491 威望：0 精华：0 注册：2012/7/24 7:15:00 		  发帖心情 Post By：2017/7/23 20:26:00 [只看该作者]

这有三个图，图1是未插入行时的序号；
图2是在序号1前插入一行时的情况，序号是25，没问题；
图3是在最后一行的序号1前插入一行时的情况，序号是28，这就有问题了，应该是3。

图片点击可在新窗口打开查看此主题相关图片如下：2.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：3.png
图片点击可在新窗口打开查看
所以，应该是只管插入这一行的上一行的序号是几，在此基础上+1。不知道对不对？
图片点击可在新窗口打开查看此主题相关图片如下：1.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
deliangzhaoe
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：364 积分：3491 威望：0 精华：0 注册：2012/7/24 7:15:00 		  发帖心情 Post By：2017/7/23 20:44:00 [只看该作者]

我说的也不对，不能只看插入行的上一行的序号是几。
我在序号为21的行后插入一行，序号为22，没问题，但原来的序号22-24未变为23-25.
谢谢了！
图片点击可在新窗口打开查看此主题相关图片如下：4.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：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
 回到顶部
帅哥哟，离线，有人找我吗？
deliangzhaoe
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：364 积分：3491 威望：0 精华：0 注册：2012/7/24 7:15:00 		  发帖心情 Post By：2017/7/24 19:01:00 [只看该作者]

这个代码没问题了。
那我要是从中间删除一行呢？非常感谢！
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110592 积分：562856 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：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
 回到顶部
帅哥哟，离线，有人找我吗？
deliangzhaoe
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：364 积分：3491 威望：0 精华：0 注册：2012/7/24 7:15:00 		回复：（有点蓝）DataRowDeleting事件Dim idx As Inte...  发帖心情 Post By：2017/7/26 21:12:00 [只看该作者]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:求助项目.zip


直接崩溃了，同样的代码在两台电脑上，一个报错，一个能行。求老师指点：
主要存在两方面的问题：
1.风险分级管控和隐患排查项目清单，表事件datacolchanged代码可能存在问题，评价级别第一次编辑的时候会自动输入值，再次打开项目的时候，值没有了；风险点类型选择设备设施时，所在车间或单位、责任单位、责任人这些自动输入的列不能自动输入。而选择作业活动时，能自动输入
2.插入行、新增行时，作业步骤或检查项目_序号存在问题。删除行时，序号没问题了。
没办法了，直接上我在做的小项目吧，请老师指点，谢谢了！
[此贴子已经被作者于2017/7/26 21:14:05编辑过]
 回到顶部
总数 12 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 5 次数据查询