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


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

主题:[求助]报错原因

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


加好友 发短信
等级:超级版主 帖子:107440 积分:546479 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/9/20 10:32:00 [显示全部帖子]

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

贴出代码看看

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


加好友 发短信
等级:超级版主 帖子:107440 积分:546479 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/9/20 10:57:00 [显示全部帖子]

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

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


加好友 发短信
等级:超级版主 帖子:107440 积分:546479 威望: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 '否则退出
……

 回到顶部