Foxtable(狐表)用户栏目专家坐堂 → 求助:如何在一行记录没有保存前不能前鼠标移动到其他记录上?


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

主题:求助:如何在一行记录没有保存前不能前鼠标移动到其他记录上?

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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/11/26 15:09:00 [显示全部帖子]

mark

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:禁止切换行.table

 


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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/11/26 16:43:00 [显示全部帖子]

升级到最新版的foxtable 2015.11.11 版


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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/11/27 1:10:00 [显示全部帖子]

点什么功能键,不应该的。

 

肯定不关这里的事。


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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/11/27 11:35:00 [显示全部帖子]

做一个例子发上来。

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/11/27 11:37:00 [显示全部帖子]

以下是引用tjzj_lyl在2015/11/27 11:34:00的发言:
我测试了是  Tables("基本信息表.开piao收款表").current.Reject()  造成了闪退

 

上传实例说明问题。


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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/11/27 12:33:00 [显示全部帖子]

请上传项目测试啊

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/11/29 12:25:00 [显示全部帖子]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:合同管理.foxdb


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/11/29 18:08:00 [显示全部帖子]

If e.Table.name <> CurrentTable.Name Then Return
If e.Table.GrandTotal AndAlso e.NewRange.RowSel = 0 Then Return

 

If e.NewRange.RowSel < 0 Then
    vars("stop") = True
End If
If e.NewRange.RowSel >= 0 AndAlso vars("stop") = False AndAlso e.Table.current IsNot Nothing  AndAlso e.Table.current.DataRow.RowState <> DataRowState.Unchanged Then
    If e.NewRange.RowSel <> e.OldRange.RowSel Then
        e.Cancel=True
        MessageBox.Show("当前行数据已被修改 请先保存数据再换行", "提示", MessageBoxButtons.OK, MessageBoxIcon.Question)
    End If
End If


 回到顶部