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


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

主题:[求助]报错原因

帅哥哟,离线,有人找我吗?
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”。


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110647 积分:563143 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/9/20 10:32:00 [只看该作者]

错误所在事件:窗口,新增工作日志,Button7,Click

贴出代码看看

 回到顶部
帅哥哟,离线,有人找我吗?
miaoqingqing
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110647 积分:563143 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/9/20 10:57:00 [只看该作者]

窗口关闭事件有没有什么代码?

 回到顶部
帅哥哟,离线,有人找我吗?
miaoqingqing
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | 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


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110647 积分:563143 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:660 积分:5180 威望:0 精华:0 注册:2019/7/26 12:54:00
  发帖心情 Post By:2019/9/20 12:14:00 [只看该作者]

可以了,多谢了

 回到顶部