VB平台fpspread多行列头怎么获取列头内容

收藏

fpspread设置为2行列头，起始行从1开始，单行列头的时候获取row=0的内容，可是2行列头呢？怎么获取第一行和第二行列头的内容，同时，第一行第6列-8列，第12列-16列是合并行，内容相同

请给出获取方法代码谢谢！

ZenosZeng · ZenosZeng

lifesky2006,
你可以使用 ColHeaderRows 属性，参考代码如下：

Private Sub Form_Load()
' Set number of columns and rows
fpSpread1.MaxCols = 6
fpSpread1.MaxRows = 250
' Turn off display of row headers
fpSpread1.RowHeadersShow = False
' Set up column headers
fpSpread1.ColHeaderRows = 3
fpSpread1.AddCellSpan 1, SpreadHeader, 3, 1
fpSpread1.AddCellSpan 4, SpreadHeader, 3, 1
fpSpread1.Col = 1
fpSpread1.Row = SpreadHeader
fpSpread1.Text = "National Parks"
fpSpread1.Col = 4
fpSpread1.Row = SpreadHeader
fpSpread1.Text = "State Parks"
fpSpread1.Col = 1
fpSpread1.Row = SpreadHeader + 1
fpSpread1.Text = "Name"
fpSpread1.Col = 2
fpSpread1.Row = SpreadHeader + 1
fpSpread1.Text = "State"
fpSpread1.Col = 3
fpSpread1.Row = SpreadHeader + 1
fpSpread1.Text = "Size (Acres)"
fpSpread1.Col = 4
fpSpread1.Row = SpreadHeader + 1
fpSpread1.Text = "Name"
fpSpread1.Col = 5
fpSpread1.Row = SpreadHeader + 1
fpSpread1.Text = "State"
fpSpread1.Col = 6
fpSpread1.Row = SpreadHeader + 1
fpSpread1.Text = "Size (Acres)"
' Display sorting indicator in lowest header row for
' Name columns
fpSpread1.UserColAction = UserColActionSort
fpSpread1.ColUserSortIndicator(2) = ColUserSortIndicatorDescending
fpSpread1.ColHeadersUserSortIndex = 1
End Sub

复制代码

lifesky2006 · lifesky2006

我用过，我好像测试的是多个单元格有不同内容的时候使用addspan不能合并
我是设置了set spread.datasource=rst ，绑定了数据库，是不是这个原因导致的？
我稍后再试试吧有问题再回复
谢谢

这个问题暂时不用解决了，我通过设置多个单元格内容相同实现了，但是不明白是不是需要这样实现
请尽快回复我下面这个帖子：
http://gcdn.gcpowertools.com.cn/showtopic-13936.html

iceman · iceman

问题已经通过电话沟通，希望获取 spread 打印设置纸张大小和打印机的接口，有进一步结果会反馈给你。谢谢

lifesky2006 · lifesky2006

这个帖子请先结贴把，谢谢版主耐心的回复！

lifesky2006 · lifesky2006

已经通过另外的方法解决了，虽然有点麻烦，以后有问题再重开贴，呵呵

iceman · iceman

回复 6楼lifesky2006的帖子

好的，另一个帖子已经回复，请查看。

gicad · gicad

其实挺简单的，别搞的太复杂，就几行代码，VB6+Spread8。
图片效果不能上传，看代码吧，自己复制了试试

Private Sub Form_Load()
'fpspread设置为2行列头，起始行从1开始，单行列头的时候获取row=0的内容，可是2行列头呢？
'怎么获取第一行和第二行列头的内容，同时，第一行第6列-8列，第12列-16列是合并行，内容相同

fpSpread1.ColHeaderRows = 2 '设置列表头为2行
fpSpread1.ColHeadersAutoText = DispNumbers '显示为数字
fpSpread1.Row = SpreadHeader '表头第1行
fpSpread1.Col = 1
fpSpread1.Text = "表头第1行"
fpSpread1.Row = SpreadHeader + 1 '表头第2行
fpSpread1.Col = 1
fpSpread1.Text = "表头第2行"

fpSpread1.AddCellSpan 6, SpreadHeader, 3, 1 '合并表头第1行第6列-8列
fpSpread1.Row = SpreadHeader: fpSpread1.Col = 6: fpSpread1.Text = "6-8列表头"
fpSpread1.AddCellSpan 12, SpreadHeader, 5, 1 '合并表头第1行第12列-16列
fpSpread1.Row = SpreadHeader: fpSpread1.Col = 12: fpSpread1.Text = "12-16列表头"
End Sub

iceman · iceman

回复 8楼gicad的帖子

感谢提供问题解决方法。

为了表示感谢，给您分发 300 金币。可以用于兑换论坛奖品。
金币规则：点击进入
礼品列表：点击进入

tianyake · tianyake

谢谢提供解决方法

		自动登录	找回密码
密码			立即注册

[已处理] VB平台fpspread多行列头怎么获取列头内容

10 个回复

评分

活字格认证

圣诞拼拼乐

微信认证勋章

讲师达人

元老葡萄

悬赏达人