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

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

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

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

1. Private Sub Form_Load()
   
2.     ' Set number of columns and rows
   
3.     fpSpread1.MaxCols = 6
   
4.     fpSpread1.MaxRows = 250
   
5.     ' Turn off display of row headers
   
6.     fpSpread1.RowHeadersShow = False
   
7.     ' Set up column headers
   
8.     fpSpread1.ColHeaderRows = 3
   
9.     fpSpread1.AddCellSpan 1, SpreadHeader, 3, 1
   
10.     fpSpread1.AddCellSpan 4, SpreadHeader, 3, 1
    
11.     fpSpread1.Col = 1
    
12.     fpSpread1.Row = SpreadHeader
    
13.     fpSpread1.Text = "National Parks"
    
14.     fpSpread1.Col = 4
    
15.     fpSpread1.Row = SpreadHeader
    
16.     fpSpread1.Text = "State Parks"
    
17.     fpSpread1.Col = 1
    
18.     fpSpread1.Row = SpreadHeader + 1
    
19.     fpSpread1.Text = "Name"
    
20.     fpSpread1.Col = 2
    
21.     fpSpread1.Row = SpreadHeader + 1
    
22.     fpSpread1.Text = "State"
    
23.     fpSpread1.Col = 3
    
24.     fpSpread1.Row = SpreadHeader + 1
    
25.     fpSpread1.Text = "Size (Acres)"
    
26.     fpSpread1.Col = 4
    
27.     fpSpread1.Row = SpreadHeader + 1
    
28.     fpSpread1.Text = "Name"
    
29.     fpSpread1.Col = 5
    
30.     fpSpread1.Row = SpreadHeader + 1
    
31.     fpSpread1.Text = "State"
    
32.     fpSpread1.Col = 6
    
33.     fpSpread1.Row = SpreadHeader + 1
    
34.     fpSpread1.Text = "Size (Acres)"
    
35.     ' Display sorting indicator in lowest header row for
    
36.     ' Name columns
    
37.     fpSpread1.UserColAction = UserColActionSort
    
38.     fpSpread1.ColUserSortIndicator(2) = ColUserSortIndicatorDescending
    
39.     fpSpread1.ColHeadersUserSortIndex = 1
    
40. End Sub

复制代码

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

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

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

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

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

回复 6楼lifesky2006的帖子

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

其实挺简单的，别搞的太复杂，就几行代码，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

回复 8楼gicad的帖子

感谢提供问题解决方法。

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

谢谢提供解决方法