以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  标题区的网格线  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=51181)
--  作者：blackzhu
--  发布时间：2014/5/21 12:54:00
--  标题区的网格线
列标题区可以用代码设置字体颜色以及背景色,但是能否用代码设置列标题的网格线.  数据区的网格线是可以设置的.
--  作者：blackzhu
--  发布时间：2014/5/21 13:23:00
--  

Tables("订单").SetHeaderCellForeColor("金额",Color.Red)

Tables("订单").SetHeaderCellBackColor("金额",Color.Red)


 只有这两个设置,标题区网格线怎么设置?
--  作者：blackzhu
--  发布时间：2014/5/21 14:06:00
--  
顶下
--  作者：有点甜
--  发布时间：2014/5/21 14:19:00
--  

 不能设置，除非此表不适用风格。

 

Tables("表A").grid.styles.Fixed.Border.Color = Color.Red
--  作者：blackzhu
--  发布时间：2014/5/21 14:22:00
--  
唉 那就没有办法了  找遍底层也没有找到.
--  作者：逛逛
--  发布时间：2014/5/21 15:26:00
--  

AfterLoad

 

 

Dim tb As Table = e.Form.Controls("Table1").Table

Dim tdt As C1.Win.C1FlexGrid.CellStyle = tb.Grid.Styles.Add("Text")

\'****************  设置边框线

tdt.Border.Color = Color.red    

tdt.Border.Width = 2

\'********** 设置类型

tdt.Border.Style = 7                \'0到7

 

tb.Grid.Rows(0).Style = tb.Grid.Styles("Text")

Dim rng = tb.Grid.GetCellRange(0,0)

rng.Style = tb.Grid.Styles("Text")