[求助] 项目打不开 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助] 项目打不开

共有7179人关注过本帖树形打印复制链接主题：[求助] 项目打不开

wumingrong1

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

加好友

发短信

等级：五尾狐帖子：1029 积分：6497 威望：0 精华：0 注册：2014/1/3 12:49:00

[求助] 项目打不开 发帖心情

Post By：2016/3/22 16:31:00 [只看该作者]

[此贴子已经被作者于2016/3/22 17:09:22编辑过]

wgmcom

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

加好友

发短信

等级：童狐帖子：223 积分：1386 威望：0 精华：0 注册：2015/12/26 16:57:00

Post By：2016/3/22 16:39:00 [只看该作者]

打开项目一直按CTRL键试试

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/3/22 16:44:00 [只看该作者]

提示什么错误。

wumingrong1

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

加好友

发短信

等级：五尾狐帖子：1029 积分：6497 威望：0 精华：0 注册：2014/1/3 12:49:00

Post By：2016/3/22 17:10:00 [只看该作者]

我想实现当前行被修改后、未保存数据的情况下不允许换行。

在表的BeforeSelChange中写有以下命令会造成项目打不开

If e.Table.current IsNot Nothing Then
    If 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)
            e.Cancel=True

        End If
    End If
'End If

如果写以下命令会造成选择当前行的其他单元格时也会弹出提示

If CurrentTable.DataTable.HasChanges =True Then '如果区域表被修改然后
e.Cancel = True
MessageBox.Show("本表已被修改,请先保存数据!", "提示", MessageBoxButtons.OK)
e.Cancel = True
End If

我的命令该怎么写？