请VB高手指教,MSHFlexgrid控件的问题.
想用 MSHFlexgrid的0行做出的效果是2层的:| 上月余额 | 本月进仓 |
名称 |------------|--------------|
|数量 | 金额 | 数量 | 金额 |
------|-----|------|-------|------|
保险管 |30.23|2425.6|21.57 |1725.6|
------|-----|------|-------|------|
变压器 |1990 |199 |2225 |222.5 |
------|-----|------|-------|------|
想了很久,都做不出来,相信论坛里肯定有高人做过,所以向大家学习来了. 因论坛里上传不了图片,所以用手做了一个,谁知发贴后,内容就变样了.希望大家看明白. 论坛可以传图片的
看你这意思合并单元格就行了呗
Private Sub Form_Load()谢楼上指教,但你上述方法我想过了;你看到的保险管与变压器是数据库的记录集的内容,用AddItem方法来添加记录集吗?记录不多还可以,但我的记录集里的记录是成千上万条的,这样你的方法就不行了.
With MSHFlexGrid1
.Cols = 5
.Rows = 3
.FixedRows = 2
.TextMatrix(0, 0) = "名称"
.TextMatrix(1, 0) = "名称"
.TextMatrix(0, 1) = "上月余额"
.TextMatrix(0, 2) = "上月余额"
.TextMatrix(0, 3) = "本月进仓"
.TextMatrix(0, 4) = "本月进仓"
.TextMatrix(1, 1) = "数量"
.TextMatrix(1, 2) = "金额"
.TextMatrix(1, 3) = "数量"
.TextMatrix(1, 4) = "金额"
.MergeRow(0) = True
.MergeCol(0) = True
.MergeCells = flexMergeFree
.ColAlignmentFixed(0) = flexAlignCenterCenter
.ColAlignmentFixed(1) = flexAlignCenterCenter
.ColAlignmentFixed(2) = flexAlignCenterCenter
.ColAlignmentFixed(3) = flexAlignCenterCenter
.ColAlignmentFixed(4) = flexAlignCenterCenter
.AddItem "保险管" & vbTab & "30.23" & vbTab & "1234.55" & vbTab & "123" & vbTab & "365.22", 2
.AddItem "变压器" & vbTab & "30.23" & vbTab & "1234.55" & vbTab & "123" & vbTab & "365.22", 3
End With
End Sub
这点都“转不过弯”啊……
别人就是给你演示一下，如何“合并表格”（表头格式部分的操作）。
你的数据如何“添加”，那是你的事呗……
又不是只有这一种方式才能把数据写到MSHFlexgrid控件中。
你的“数据”在数据库中。那也能通过 循环和记录集的操作，把数据列在控件中啊。
再谢上面2位的慷慨帮助!回chen8013,如果记录集上万条数据,用了循环来给MSHF控件添加内容,速度会慢吗?能否直接用 SET MSHFlexgrid1.DataSource=rs来显示呢?但起始行是不是要从MSHF控件的第2行开始,因为第1行添加上了"数量","金额".
补充：VB , 基础类
