以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  请问如何实现某列数据一旦录入不可更改  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=39251)

--  作者:baixiaobai
--  发布时间:2013/8/19 16:50:00
--  请问如何实现某列数据一旦录入不可更改
请问如何实现某列数据一旦录入不可更改?
--  作者:czy
--  发布时间:2013/8/19 16:55:00
--  

PrepareEdit事件


If e.Col.Name = "第一列"  AndAlso e.Row.IsNull("第一列") = False Then
    e.Cancel = True
End If


--  作者:baixiaobai
--  发布时间:2013/8/19 16:56:00
--  
图片点击可在新窗口打开查看感谢!
--  作者:baixiaobai
--  发布时间:2013/8/19 16:59:00
--  
在控件中也不允许再修改吗?
--  作者:狐狸爸爸
--  发布时间:2013/8/19 17:23:00
--  

控件要实现类似效果,设置此控件enter事件:

 

If e.Sender.Text = "" Then
   e.sender.Readonly = Booleanenum.False
Else
   e.sender.Readonly = Booleanenum.True
End If


--  作者:lsy
--  发布时间:2013/8/19 18:34:00
--  
思路不够严谨喽,一旦保存,不可更改,才符合实际。
--  作者:有点甜
--  发布时间:2013/8/19 19:22:00
--  
 如果是想让更改无效的话,就编写datacolchanging事件

If e.OldValue <> "" AndAlso e.OldValue IsNot Nothing Then
    e.Cancel = True
    msgbox("不允许更改")
End If