[求助]本行未保存前不允许离开此行？【已解决】 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]本行未保存前不允许离开此行？【已解决】

共有8584人关注过本帖树形打印复制链接主题：[求助]本行未保存前不允许离开此行？【已解决】

gsnake

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

加好友

发短信

等级：三尾狐帖子：682 积分：5263 威望：0 精华：0 注册：2012/6/6 14:37:00

[求助]本行未保存前不允许离开此行？【已解决】 发帖心情

Post By：2013/3/7 22:27:00 [只看该作者]

我不是说的传统的编辑方式，而是FOXTABLE的表格模式中！！我编辑一行后，不保存或撤销的话就不能将光标移开这一行！

在表事件中用哪个事件，代码怎么写啊！！

像会员管理系统的例子！！会员表限制了“会员姓名” “性别”不能为空但我移一下行，只要移到姓名和性别不为空的行照样保存！限制就没有意义了！！
图片点击可在新窗口打开查看

此主题相关图片如下：未命名.bmp

[此贴子已经被作者于2013-5-16 11:36:15编辑过]

y2287958

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

加好友

发短信

等级：狐神帖子：4750 积分：34558 威望：0 精华：0 注册：2008/8/31 22:44:00

Post By：2013/3/8 6:28:00 [只看该作者]

示例二

如果没有输入编号列内容，则禁止选择其它行：
　

If e.OldRange.RowSel <> e.NewRange.RowSel '如果选择的是不同的行
If e.OldRange.RowSel >= 0 AndAlso e.OldRange.Rowsel < e.Table.Rows.Count Then '而且原来选择的是一个有效的数据行
Dim r As Row = e.Table.Rows(e.OldRange.Rowsel) '获得原来选择的行
If r.IsNull("编号") Then '如果编号为空
e.Cancel = True
End If
End If
End If