以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  行号列表头如何合并?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=92985)

--  作者:Hopenight
--  发布时间:2016/11/17 17:21:00
--  行号列表头如何合并?


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

如上图所示,如何将行号列表头如何合并?

[此贴子已经被作者于2016/11/18 0:04:34编辑过]

--  作者:有点青
--  发布时间:2016/11/17 18:53:00
--  

Dim t As Table = Tables("表A")
Dim cs1 As C1.Win.C1FlexGrid.CellStyle = t.Grid.Styles.Add("样式1")

cs1.Border.Direction = 2
t.Grid.SetCellStyle(0, 0, cs1)
t.Grid.SetCellStyle(1, 0, cs1)


--  作者:Hopenight
--  发布时间:2016/11/18 15:26:00
--  

自己搞定了...

 

Dim grid As C1FlexGrid = .Grid
With grid
    .Cols(0).AllowMerging = True
    Dim rng As C1.Win.C1FlexGrid.CellRange = .GetCellRange(0, 0, 1, 0)
    rng.Data = "行号"

End With