以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  关于textchanged的问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=86641)

--  作者:scofields
--  发布时间:2016/6/22 13:22:00
--  关于textchanged的问题
红袍老师,针对窗口的textchanged,能不能写入一个不能修改text控件内容的代码?!这个代码可怎么修改?不管怎么修改,NewValue都被oldValue自动修改掉?!
--  作者:大红袍
--  发布时间:2016/6/22 14:17:00
--  

 直接设置控件为只读

 

e.Form.Controls("TextBox1").ReadOnly = True

 


--  作者:scofields
--  发布时间:2016/6/22 22:36:00
--  
红袍老师,我想把这段代码写入到表的CurrentChanged,对于非新增行,这个textbox控件变成只读状态。代码可怎么改?!?
--  作者:大红袍
--  发布时间:2016/6/22 22:51:00
--  

建议把代码写到Enter事件

 

If Tables("表a").Current.DataRow.RowState = DataRowState.Added Then
    e.sender.ReadOnly = False
Else
    e.sender.ReadOnly = True
End If