以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  dataformat事件  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=86410)
--  作者：bagabaga
--  发布时间：2016/6/16 17:16:00
--  dataformat事件
请教，让控件textbox 内容显示不可见的“*****”，我在dataformat事件中写的代码出错，为什么

If Tables("班组长").Current("dw") <> Vars("dw")
    e.Value = "*****"
End If
--  作者：大红袍
--  发布时间：2016/6/16 17:19:00
--  

试试这样写

 

Dim r As Row = Tables("班组长").Current

If r IsNot Nothing AndAlso r("dw") <> Vars("dw")
    e.Value = "*****"
End If
 
再有，报什么错啊？