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