以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  求助:产品升级到最新版本,记录窗口风格定义代码报错!  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=153617)

--  作者:jiterp
--  发布时间:2020/8/17 12:12:00
--  求助:产品升级到最新版本,记录窗口风格定义代码报错!
下面一段代码中红色两行,在升级到最新版本后运行报错,是什么情况?

Dim g1 = e.Form.Controls("RecordGrid1").BaseControl
g1.Styles.Fixed.BackColor = Color.AliceBlue
For Each r1 As object In g1.rows
    r1.height = 24
Next
g1.Styles("Header").ForeColor = Color.black
g1.Styles("Header").BackColor = Color.AliceBlue
g1.Cols(0).width = 110
g1.styles.Normal.Border.Color = Color.DimGray

--  作者:有点蓝
--  发布时间:2020/8/17 13:41:00
--  
没有这种用法了,去掉即可
--  作者:jiterp
--  发布时间:2020/8/17 21:03:00
--  
那怎么设置数值列的颜色?见下图

图片点击可在新窗口打开查看此主题相关图片如下:微信图片_20200817210226.png
图片点击可在新窗口打开查看


--  作者:有点蓝
--  发布时间:2020/8/17 21:46:00
--  
Dim bctr = Forms("窗口2").Controls("RecordGrid1").BaseControl
\'bctr.GetCellStyle(1, 1).BackColor = Color.white
\'bctr.FocusRect = C1.Win.C1FlexGrid.FocusRectEnum.None \'不显示焦点框
bctr.HighLight = C1.Win.C1FlexGrid.HighLightEnum.Never \'不高亮显示选定区

--  作者:jiterp
--  发布时间:2020/8/17 21:57:00
--  
谢谢