[求助]报错原因 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]报错原因

共有3818人关注过本帖树形打印复制链接主题：[求助]报错原因

miaoqingqing

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

加好友

发短信

等级：三尾狐帖子：660 积分：5180 威望：0 精华：0 注册：2019/7/26 12:54:00

[求助]报错原因 发帖心情

Post By：2019/9/20 10:04:00 [显示全部帖子]

什么问题造成报错？求助

.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2019.9.20.1
错误所在事件：窗口,新增工作日志,Button7,Click
详细错误信息：
DataTable 内部索引已损坏:“5”。
DataTable 内部索引已损坏:“8”。

miaoqingqing

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

加好友

发短信

等级：三尾狐帖子：660 积分：5180 威望：0 精华：0 注册：2019/7/26 12:54:00

回复：（有点蓝）错误所在事件：窗口,新增工作日志,Bu... 发帖心情

Post By：2019/9/20 10:41:00 [显示全部帖子]

If Tables("工作日志").Rows.Count > 0 Then
    If Tables("工作日志").Current.DataRow.RowState <> DataRowState.Unchanged Then '如果当前行已经修改过
        If MessageBox.Show("当前新增的日志,是否保存?","提示",MessageBoxButtons.YesNo,MessageBoxIcon.Information)=7 Then '如果按否则删掉本行数据
            Tables("工作日志").Current.Delete
            e.form.close
        Else '否则退出
            MessageBox.Show("请点击保存按钮保存","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
            Return
        End If
    Else
        e.Form.close
    End If
Else
    e.Form.close
End If

miaoqingqing

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

加好友

发短信

等级：三尾狐帖子：660 积分：5180 威望：0 精华：0 注册：2019/7/26 12:54:00

回复：（有点蓝）窗口关闭事件有没有什么代码？ 发帖心情

Post By：2019/9/20 11:22:00 [显示全部帖子]

With Tables("工作日志")
    If .Current IsNot Nothing Then
        .Current.Save()
    End If
End With

Tables("工作日志").AllowEdit = False

miaoqingqing

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

加好友

发短信

等级：三尾狐帖子：660 积分：5180 威望：0 精华：0 注册：2019/7/26 12:54:00

Post By：2019/9/20 12:14:00 [显示全部帖子]

可以了，多谢了

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

主题：[求助]报错原因