以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助] 项目打不开  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=82676)

--  作者:wumingrong1
--  发布时间:2016/3/22 16:31:00
--  [求助] 项目打不开

 

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

--  作者:wgmcom
--  发布时间:2016/3/22 16:39:00
--  
打开项目一直按CTRL键试试
--  作者:大红袍
--  发布时间:2016/3/22 16:44:00
--  
提示什么错误。
--  作者:wumingrong1
--  发布时间: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

 

我的命令该怎么写?

 


--  作者:大红袍
--  发布时间:2016/3/22 17:19:00
--  

 下面这段代码测试没问题,请做具体例子测试。

 

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


--  作者:wumingrong1
--  发布时间:2016/3/22 17:33:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:宽带帐号割接回访系统 - 副本.foxdb


--  作者:大红袍
--  发布时间:2016/3/22 17:48:00
--  

 

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

--  作者:大红袍
--  发布时间:2016/3/22 18:00:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:宽带帐号割接回访系统 - 副本.foxdb


--  作者:wumingrong1
--  发布时间:2016/3/23 9:29:00
--  

图片点击可在新窗口打开查看此主题相关图片如下:360截图20160323093119770.jpg
图片点击可在新窗口打开查看

--  作者:大红袍
--  发布时间:2016/3/23 9:37:00
--  

1、不能取消下拉,这个是定死了的。

 

2、在菜单【项目属性】里面可以设置