以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  自定义生成的报表,如何让单元格的值居右,居右?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=133388)

--  作者:nxhylczh
--  发布时间:2019/4/13 11:52:00
--  自定义生成的报表,如何让单元格的值居右,居右?

图片点击可在新窗口打开查看此主题相关图片如下:无标题.png
图片点击可在新窗口打开查看
如图所示,如何让标题第1行居中,数字居右?

给Foxtable提一个意见:加入一个纯表格控件Grid,如图所示,如果这张表非要用Table实现,列标题重复的问题怎么解决?

--  作者:有点蓝
--  发布时间:2019/4/13 13:40:00
--  
样式设置参考:http://www.foxtable.com/webhelp/scr/1161.htm

列标题本来就可以重复的,只是列名不能重复

--  作者:nxhylczh
--  发布时间:2019/4/13 14:45:00
--  
我发的是一个窗口表,你给我给的是excel帮助,我也是无语了!
--  作者:有点蓝
--  发布时间:2019/4/13 16:20:00
--  
好吧。您做的太逼真了。

Dim t As Table = Tables("表A")
Dim cs1 As C1.Win.C1FlexGrid.CellStyle = t.Grid.Styles.Add("样式1")
cs1.TextAlign = 6 \'0~11
t.Grid.SetCellStyle(t.RowSel + 1,t.ColSel + 1,cs1) \'设置选中单元格的样式

--  作者:nxhylczh
--  发布时间:2019/4/15 11:00:00
--  
如要我要设置选中区域,怎么写代码呢?
--  作者:有点甜
--  发布时间:2019/4/15 11:14:00
--  
Dim t As Table = Tables("表A")
Dim cs1 As C1.Win.C1FlexGrid.CellStyle = t.Grid.Styles.Add("样式1")
cs1.TextAlign = 6 \'0~11
Dim rgs = t.Grid.GetCellRange(t.RowSel+t.HeaderRows, t.ColSel + 1, t.BottomRow+t.HeaderRows, t.RightCol+1)
rgs.style = cs1 \'设置选中单元格的样式