以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]报错原因  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=141038)
--  作者：miaoqingqing
--  发布时间：2019/9/20 10:04:00
--  [求助]报错原因

什么问题造成报错？求助

 

.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2019.9.20.1
错误所在事件：窗口,新增工作日志,Button7,Click
详细错误信息：
DataTable 内部索引已损坏:“5”。
DataTable 内部索引已损坏:“8”。
--  作者：有点蓝
--  发布时间：2019/9/20 10:32:00
--  
错误所在事件：窗口,新增工作日志,Button7,Click

贴出代码看看
--  作者：miaoqingqing
--  发布时间：2019/9/20 10:41:00
--  回复：（有点蓝）错误所在事件：窗口,新增工作日志,Bu...
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
--  作者：有点蓝
--  发布时间：2019/9/20 10:57:00
--  
窗口关闭事件有没有什么代码？
--  作者：miaoqingqing
--  发布时间：2019/9/20 11:22:00
--  回复：（有点蓝）窗口关闭事件有没有什么代码？

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

Tables("工作日志").AllowEdit = False
--  作者：有点蓝
--  发布时间：2019/9/20 11:34: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
Tables("工作日志").Current.save
            e.form.close
        Else \'否则退出
……
--  作者：miaoqingqing
--  发布时间：2019/9/20 12:14:00
--  
可以了，多谢了