以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]表绘制代码出错  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=146336)
--  作者：紫色幽魂
--  发布时间：2020/2/21 17:10:00
--  [求助]表绘制代码出错

以下代码放在表DrawCell事件中，想达到的效果是列锁定了整列灰色，否则白色，运行的时候都是灰色的，是怎么回事儿


Dim tb As Table = e.Table \'获取当前表
Dim dt As DataTable = e.Table.DataTable \'获取当前表
dt.AddUserStyle("灰色",Color.Gray, Color.White)
dt.AddUserStyle("蓝色",Color.Blue, Color.White)

For Each c As Col In tb.Cols
    If c.AllowEdit = False
        e.Style = "灰色"
    Else
        e.Style = "蓝色"
    End If
Next
--  作者：y2287958
--  发布时间：2020/2/21 17:19:00
--  
Dim tb As Table = e.Table \'获取当前表
Dim dt As DataTable = e.Table.DataTable \'获取当前表
dt.AddUserStyle("灰色",Color.Gray, Color.White)
dt.AddUserStyle("蓝色",Color.Blue, Color.White)

Dim lst As new List(of String)
For Each c As Col In tb.Cols
    If c.AllowEdit = False
        lst.add(c.Name)
    End If
Next
If lst.Contains(e.Col.Name)
    e.Style = "灰色"
Else
    e.Style = "蓝色"
End If
--  作者：紫色幽魂
--  发布时间：2020/2/21 17:24:00
--  回复：（y2287958）Dim tb As Table = e.Table '获取当...
非常感谢