以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  列设置的问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=81537)
--  作者：凡夫俗子
--  发布时间：2016/2/29 21:58:00
--  列设置的问题

表A

有列  第一列，第二列，第三列，第四列，第五列，第六列，第七列，第八列，第九列，第十列

 

 

现有数据字符串 str 为“表A.第一列,表A.第四列,表A.第七列"

 

要求设置 表A 的 str 各列为可修改状态 ，其它列为不可修改状态

 

最简代码如何写？
--  作者：大红袍
--  发布时间：2016/2/29 22:37:00
--  

prepareEdit事件，或者 startEdit事件。

 

Dim str As String = "表A.第一列,表A.第四列,表A.第七列"
Dim ary As String() = str.Split(",")
If array.Indexof(ary, e.Table.DataTable.Name & "." & e.Col.Name) = -1 Then
    e.cancel = True
End If
--  作者：凡夫俗子
--  发布时间：2016/3/1 12:03:00
--  
表是窗口表

表A的各字段在窗口 FORM1中表现形式为 控件 
第一列 对应的控件可能为  TextBox1

现在在窗口加载事件中设置了：

DataTables(“表A”).DataCols(“第一列”）.AllowEdit = False

这样实现了该窗口表中的 第一列 是不可编辑的，但界面上没能对操作者以提示 

如何实现 第一列 设置了不可编辑 则其对应的控件 为 灰色显示状态  即其 可用 属性 自动为 False (控件名称可能是不定的）

有返回表字段所对应的控件名称 的代码没？

[此贴子已经被作者于2016/3/1 12:04:01编辑过]
--  作者：大红袍
--  发布时间：2016/3/1 12:36:00
--  

参考 http://www.foxtable.com/help/topics/2342.htm

 

或者，你可以循环每一个控件，然后判断它的 BindingField 属性，从而设置其各个属性。
--  作者：凡夫俗子
--  发布时间：2016/3/1 13:33:00
--  
谢谢 解决
Dim str As String = "表A.第一列,表A.第四列,表A.第七列"

如果表A是窗口 FORM1的副本表
如何 将表A.第一列,表A.第四列,表A.第七列" 对应的的值 显示 为 ******** 即不显示字符
[此贴子已经被作者于2016/3/1 13:45:49编辑过]
--  作者：大红袍
--  发布时间：2016/3/1 14:08:00
--  

在DrawCell事件

 

If e.Table.Name = "窗口1_Table1" Then    
    Dim str As String = "表A.第一列,表A.第四列,表A.第七列"
    Dim ary As String() = str.Split(",")
    If array.Indexof(ary, e.Table.DataTable.Name & "." & e.Col.Name) = -1 Then
        e.Text = "***"
    End If
End If