以文本方式查看主题 - 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 -- 那怎么设置数值列的颜色?见下图 |
-- 作者:有点蓝 -- 发布时间: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 -- 谢谢 |