想用 MSHFlexgrid的0行做出的效果是2層的:
| 上月余額 | 本月進倉 |
名稱 |------------|--------------|
|數量 | 金額 | 數量 | 金額 |
------|-----|------|-------|------|
保險管 |30.23|2425.6|21.57 |1725.6|
------|-----|------|-------|------|
變壓器 |1990 |199 |2225 |222.5 |
------|-----|------|-------|------|
想了很久,都做不出來,相信論壇里肯定有高人做過,所以向大家學習來了.
uj5u.com熱心網友回復：
因論壇里上傳不了圖片,所以用手做了一個,誰知發貼后,內容就變樣了.希望大家看明白.uj5u.com熱心網友回復：
論壇可以傳圖片的uj5u.com熱心網友回復：
看你這意思合并單元格就行了唄
uj5u.com熱心網友回復：
Private Sub Form_Load()
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
uj5u.com熱心網友回復：
謝樓上指教,但你上述方法我想過了;你看到的保險管與變壓器是資料庫的記錄集的內容,用AddItem方法來添加記錄集嗎?記錄不多還可以,但我的記錄集里的記錄是成千上萬條的,這樣你的方法就不行了.uj5u.com熱心網友回復：
這點都“轉不過彎”啊……
別人就是給你演示一下，如何“合并表格”（表頭格式部分的操作）。
你的資料如何“添加”，那是你的事唄……
又不是只有這一種方式才能把資料寫到MSHFlexgrid控制元件中。
uj5u.com熱心網友回復：
你的“資料”在資料庫中。那也能通過 回圈和記錄集的操作，把資料列在控制元件中啊。
uj5u.com熱心網友回復：
再謝上面2位的慷慨幫助!回chen8013,如果記錄集上萬條資料,用了回圈來給MSHF控制元件添加內容,速度會慢嗎?能否直接用 SET MSHFlexgrid1.DataSource=rs來顯示呢?但起始行是不是要從MSHF控制元件的第2行開始,因為第1行添加上了"數量","金額".轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/133248.html
標籤：VB基礎類
上一篇：word檔案轉換為JPG
下一篇：實作一種圖號到另外幾種圖號的轉換