MSHFlexGrid的表头合并(VB中和VS2005中)
Dim
lngIndex
As
Long
Dim
lngRow
As
Long
With
MSHFlexGrid1 .Rows
=
13
.Cols
=
15
.MergeCells
=
flexMergeFree
'
?????????
.TextMatrix(
0
,
0
)
=
"
拟晋升专业
"
.TextMatrix(
1
,
0
)
=
"
拟晋升专业
"
For
lngIndex
=
1
To
6
.TextMatrix(
0
, lngIndex)
=
"
拟晋升职称级别
"
Next
.TextMatrix(
1
,
1
)
=
"
小计
"
.TextMatrix(
1
,
2
)
=
"
正高
"
.TextMatrix(
1
,
3
)
=
"
副高
"
.TextMatrix(
1
,
4
)
=
"
中级
"
.TextMatrix(
1
,
5
)
=
"
助师级
"
.TextMatrix(
1
,
6
)
=
"
员级
"
For
lngIndex
=
7
To
11
.TextMatrix(
0
, lngIndex)
=
"
晋 升 方 式
"
Next
.TextMatrix(
1
,
7
)
=
"
正常晋升
"
.TextMatrix(
1
,
8
)
=
"
学历破格
"
.TextMatrix(
1
,
9
)
=
"
年限破格
"
.TextMatrix(
1
,
10
)
=
"
学历年限破格
"
.TextMatrix(
1
,
11
)
=
"
其他
"
.TextMatrix(
0
,
12
)
=
"
联系人
"
.TextMatrix(
1
,
12
)
=
"
联系人
"
.TextMatrix(
0
,
13
)
=
"
联系电话
"
.TextMatrix(
1
,
13
)
=
"
联系电话
"
.TextMatrix(
0
,
14
)
=
"
备注
"
.TextMatrix(
1
,
14
)
=
"
备注
"
'
.MergeRow(
0
)
=
True
.MergeCol(
0
)
=
True
.MergeCol(
12
)
=
True
.MergeCol(
13
)
=
True
.MergeCol(
14
)
=
True
For
lngRow
=
0
To
1
For
lngIndex
=
0
To
14
.Row
=
lngRow .Col
=
lngIndex .CellAlignment
=
flexAlignCenterCenter .ColAlignment(lngIndex)
=
flexAlignCenterCenter
Next
Next
'
' .RowHeight(0) = 0
'
.ColWidth(0) = 1800
'
For lngIndex = 1 To 6
'
.ColWidth(lngIndex) = 600
'
Next
'
For lngIndex = 7 To 11
'
.ColWidth(lngIndex) = 1000
'
Next
'
.ColWidth(12) = 1000
'
.ColWidth(13) = 1600
'
.ColWidth(14) = 1600
End
With
见与在VS2005中的WINFORM中的DATAGRIEVIEW的表头没有合并的功能,同样可以把VB6中的着个控件添加进来
,实现同样的效果,下面是在VS2005中的C#实现合并功能的代码
long
lngIndex;
long
lngRow; axMSHFlexGrid1.Rows
=
3
; axMSHFlexGrid1.FixedRows
=
2
; axMSHFlexGrid1.set_RowHeight(
0
,
400
); axMSHFlexGrid1.set_RowHeight(
1
,
300
); axMSHFlexGrid1.set_Cols(
15
); axMSHFlexGrid1.MergeCells
=
MSHierarchicalFlexGridLib.MergeCellsSettings.flexMergeFree;
//
'?????????
axMSHFlexGrid1.set_TextMatrix(
0
,
0
,
"
项目
"
); axMSHFlexGrid1.set_TextMatrix(
1
,
0
,
"
项目
"
); axMSHFlexGrid1.set_TextMatrix(
0
,
1
,
"
单位
"
); axMSHFlexGrid1.set_TextMatrix(
1
,
1
,
"
单位
"
); axMSHFlexGrid1.set_TextMatrix(
0
,
2
,
"
年计划
"
); axMSHFlexGrid1.set_TextMatrix(
1
,
2
,
"
年计划
"
);
for
(lngIndex
=
3
;lngIndex
<
9
;lngIndex
++
)
{
axMSHFlexGrid1.set_TextMatrix(0, (int)lngIndex,"实际完成");
}
axMSHFlexGrid1.set_TextMatrix(
1
,
3
,
"
报表反映
"
); axMSHFlexGrid1.set_TextMatrix(
1
,
4
,
"
人员买断及财产损失
"
); axMSHFlexGrid1.set_TextMatrix(
1
,
5
,
"
经营实级
"
); axMSHFlexGrid1.set_TextMatrix(
1
,
6
,
"
上年同期
"
); axMSHFlexGrid1.set_TextMatrix(
1
,
7
,
"
同比增减
"
); axMSHFlexGrid1.set_TextMatrix(
1
,
8
,
"
增件率(%)
"
);
for
(lngIndex
=
9
;lngIndex
<
14
;lngIndex
++
)
{ axMSHFlexGrid1.set_TextMatrix(0, (int)lngIndex,"箱平担平(元)"); }
axMSHFlexGrid1.set_TextMatrix(
1
,
9
,
"
本年实际
"
); axMSHFlexGrid1.set_TextMatrix(
1
,
10
,
"
年计划
"
); axMSHFlexGrid1.set_TextMatrix(
1
,
11
,
"
与计划比增减
"
); axMSHFlexGrid1.set_TextMatrix(
1
,
12
,
"
上年同期
"
); axMSHFlexGrid1.set_TextMatrix(
1
,
13
,
"
同比增减(+ -)
"
);
//
axMSHFlexGrid1.set_TextMatrix(0, 12,"联系人");
//
axMSHFlexGrid1.set_TextMatrix(1, 12,"联系人");
//
axMSHFlexGrid1.set_TextMatrix(0, 13,"联系电话");
//
axMSHFlexGrid1.set_TextMatrix(1, 13,"联系电话");
//
axMSHFlexGrid1.set_TextMatrix(0, 14,"备注");
axMSHFlexGrid1.set_TextMatrix(
0
,
14
,
"
完成年计划(%)
"
); axMSHFlexGrid1.set_TextMatrix(
1
,
14
,
"
完成年计划(%)
"
); axMSHFlexGrid1.set_MergeRow(
0
,
true
); axMSHFlexGrid1.set_MergeCol(
0
,
true
);
//
axMSHFlexGrid1.set_MergeRow(1, true);
axMSHFlexGrid1.set_MergeCol(
1
,
true
);
//
axMSHFlexGrid1.set_MergeRow(2, true);
axMSHFlexGrid1.set_MergeCol(
2
,
true
); axMSHFlexGrid1.set_MergeCol(
13
,
true
); axMSHFlexGrid1.set_MergeCol(
14
,
true
);
//
for (lngRow = 0; lngRow < 2; lngRow++)
//
{
//
for( lngIndex = 0;lngIndex<15;lngIndex++)
//
{
//
axMSHFlexGrid1.Row = (int)lngRow;
//
axMSHFlexGrid1.set_Cols((int)lngIndex);
//
//
axMSHFlexGrid1.CellAlignment = MSHierarchicalFlexGridLib.AlignmentSettings.flexAlignCenterCenter;
//
//
axMSHFlexGrid1.CellAlignment = 2;
//
//
axMSHFlexGrid1.set_FixedAlignment((int)lngIndex,2);
//
//
axMSHFlexGrid1.set_FixedAlignment((int)lngIndex, MSHierarchicalFlexGridLib.AlignmentSettings.flexAlignCenterCenter);
//
}
//
}
/* .RowHeight(0) = 0// .ColWidth(0) = 1800// For lngIndex = 1 To 6// .ColWidth(lngIndex) = 600// Next' For lngIndex = 7 To 11' .ColWidth(lngIndex) = 1000' Next' .ColWidth(12) = 1000' .ColWidth(13) = 1600' .ColWidth(14) = 1600*/