我的代码如下:(VB的)
Dim gct As New GeneralCellType()
'GeneralCellType gct = new GeneralCellType();
gct.AllowWrap = True
'gct.WordWrap = True
'this.fpSpread1.ActiveSheet.Cells[0, 0].CellType = gct;
'this.fpSpread1.ActiveSheet.Cells[0, 0].HorizontalAlignment = CellHorizontalAlignment.Center;
'this.fpSpread1.ActiveSheet.Cells[0, 0].VerticalAlignment = CellVerticalAlignment.Bottom;
FpSpread1.Sheets(0).ColumnHeaderSpanModel.Add(8, 8, 3, 1)
FpSpread1.Sheets(0).ColumnHeader.Cells(8, 8).Text = "单价基准"
FpSpread1.Sheets(0).ColumnHeader.Cells(8, 8).CellType = gct
FpSpread1.Sheets(0).ColumnHeader.Columns(8).Width = 40 '80
FpSpread1.Sheets(0).ColumnHeader.Cells(8, 8).VerticalAlign = VerticalAlign.Bottom |