以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请问关于列显示设置方法。  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=47480)

--  作者:ndxfke
--  发布时间:2014/3/11 10:35:00
--  请问关于列显示设置方法。
我有个"单价管理"表,表里有个“单价“字段; 

当用户权限不具备时,这列数据显示为"***"号。







--  作者:Bin
--  发布时间:2014/3/11 10:38:00
--  
在DrawCell事件处理.

if e.col.name="单价" then
   if user.Group <> "XXX" then
      e.text="***"
   end if 
end if

--  作者:ndxfke
--  发布时间:2014/3/11 10:44:00
--  
sorry,表述不当.



我是想实现,在内部函数里,. 当用户权限不够时,这个"单价"字段的值(包括后续加载进来的值),都以掩码的方式显示; 

权限够的用户进来时,又显示为预设的值; 
[此贴子已经被作者于2014-3-11 10:44:17编辑过]

--  作者:Bin
--  发布时间:2014/3/11 10:44:00
--  
就是这么处理啊.
--  作者:ndxfke
--  发布时间:2014/3/11 10:50:00
--  
函数里指定不能用e,

以下是我写的这段,帮指正下. 

                           If Typeof wc Is winform.Table Then
                                Dim tb As winform.Table = wc
                                For cl As Integer = 0 To tb.Table.Cols.Count -1
                                    If  tb.Table.Cols(cl).Name ="单价" Then
                                         tb.Table.Cols(tb.Table.Cols(cl).Name).text = "***"                \'---- 写的过程中,找不到text属性                     
                                    End If
                                Next
                            End If

--  作者:Bin
--  发布时间:2014/3/11 10:52:00
--  
楼主,你没有认真看我的回复吧.  别人指导你,认真看完别人的回复,是最起码的尊重啊.  一扫而过的学习态度要不得.
--  作者:ndxfke
--  发布时间:2014/3/11 10:55:00
--  
岂敢.. 岂敢..

你是让写在事件里嘛,我是说,写在内部函数里.

不会只这一种办法吧.

--  作者:Bin
--  发布时间:2014/3/11 11:06:00
--  
只能写在事件里
--  作者:ndxfke
--  发布时间:2014/3/11 11:07:00
--  
懂了,

so,没有不认真对待你的耐心指导吧.

图片点击可在新窗口打开查看