以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]像EXCEL vb那样指定单元格内容的写法是什么?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=105297)

--  作者:yj1041132457
--  发布时间:2017/8/16 13:56:00
--  [求助]像EXCEL vb那样指定单元格内容的写法是什么?
如果想要代码指定坐标单元格的内容应该怎么做?  比如我想在坐标(4,6)写入内容,并把红色的底纹转移到(4,6)单元格

图片点击可在新窗口打开查看

--  作者:有点甜
--  发布时间:2017/8/16 14:11:00
--  
Dim tb As Table = Tables("表A")
Dim cs1 As C1.Win.C1FlexGrid.CellStyle = tb.Grid.Styles.Add("样式1")
Dim rng As C1.Win.C1FlexGrid.CellRange = tb.Grid.GetCellRange(4,6, 4,6)
cs1.backcolor = color.red
rng.style = cs1
tb.grid(4,6) = "abc"

--  作者:yj1041132457
--  发布时间:2017/8/16 14:44:00
--  
原来位置的底纹怎么去掉?
--  作者:有点甜
--  发布时间:2017/8/16 15:04:00
--  
Dim tb As Table = Tables("表A")
Dim rng As C1.Win.C1FlexGrid.CellRange = tb.Grid.GetCellRange(4,6, 4,6)
rng.style = Nothing
tb.grid(4,6) = ""