[求助]删除行时出现“索引 1 不是为负数，就是大于行数。” - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]删除行时出现“索引 1 不是为负数，就是大于行数。”

共有3048人关注过本帖树形打印复制链接主题：[求助]删除行时出现“索引 1 不是为负数，就是大于行数。”

twef

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：404 积分：5048 威望：0 精华：0 注册：2015/4/30 15:42:00

[求助]删除行时出现“索引 1 不是为负数，就是大于行数。” 发帖心情

Post By：2016/2/17 13:41:00 [显示全部帖子]

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

表“员工信息登记表”与窗口中的表位置联动，删除行后出现错误

twef

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：404 积分：5048 威望：0 精华：0 注册：2015/4/30 15:42:00

Post By：2016/2/17 14:43:00 [显示全部帖子]

If Forms("员工信息登记表").Opened AndAlso e.Table.rows.count > 0 Then '如果窗口已经打开
    If e.Table.Current Is Nothing Then Return
    Dim dr As DataRow = e.Table.Current.DataRow
    Dim wz As Integer = Tables("员工信息登记表_Table1").FindRow(dr)
        If wz >=0 Then
        systemready = False
        Tables("员工信息登记表_Table1").Position = wz
        systemready = True
        Tables("员工信息登记表_Table1").Refresh
    Else
        Return
    End If
End If

twef

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：404 积分：5048 威望：0 精华：0 注册：2015/4/30 15:42:00

Post By：2016/2/17 14:45:00 [显示全部帖子]

窗口中表的代码

If e.Table.Current Is Nothing Then Return
Tables("员工信息登记表_Table1").AutoSizeCols() '自动调整列宽
Dim dr As DataRow = e.Table.Current.DataRow
Dim wz As Integer = Tables("员工信息登记表").FindRow(dr)

If wz >=0 Then
systemready = False
Tables("员工信息登记表").Position = wz

systemready = True
End If

twef

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：404 积分：5048 威望：0 精华：0 注册：2015/4/30 15:42:00

Post By：2016/2/17 14:52:00 [显示全部帖子]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:人员管理系统.zip

twef

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：404 积分：5048 威望：0 精华：0 注册：2015/4/30 15:42:00

Post By：2016/2/17 14:55:00 [显示全部帖子]

9个9

下一主题 >> << 上一主题

主题：[求助]删除行时出现“索引 1 不是为负数，就是大于行数。”