请问在msflexgrid中怎么实现合并.急.....在线等

qgbin 2004-07-14 09:46:44

怎么实现以下功能

-----------------------------------------------------------|
| | | | 入 | 出 |
|编码 |名称 |规格 |------------------|----------------|
| | | | 数量 |金额 |数量 |金额 |
|------+------+--------+------------------+------+---------|
|001 |aaa | a | 10 | 100 | | |
|------+------+--------+------+-----------+------+---------|
|001 |aaa | a | 20 | 200 | | |
|------+------+--------+------+-----------+------+---------|
|001 |aaa | a | | | 15 | 150 |
------------------------------------------------------------

...全文

206 6 打赏收藏转发到动态举报

写回复

用AI写文章

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

qgbin 2004-07-15

打赏
举报

-----------------------------------------------------------|-----------------|
| | | | 入 | 出 | | |
|编码 |名称 |规格 |------------------|----------------|审核人 |审核日期|
| | | | 数量 |金额 |数量 |金额 | | |
|------+------+--------+------------------+------+---------|-----------------
|001 |aaa | a | 10 | 100 | | | uuu | aaa |
|------+------+--------+------+-----------+------+---------|-----------------
|001 |aaa | a | 20 | 200 | | | uuu | aaa |
|------+------+--------+------+-----------+------+---------|-----------------
|001 |aaa | a | | | 15 | 150 | uuu | aaa |
------------------------------------------------------------------------------

这样又怎么办，northwolves(狼行天下)
我把你的代码改为
Dim i As Integer
With MSFlexGrid1

.Rows = 5
.Cols = 9
.FixedRows = 2
.FixedCols = 0
For i = 0 To 4
.TextMatrix(i, 0) = Choose(i + 1, "编码", "编码", "001", "001 ", "001")
.TextMatrix(i, 1) = Choose(i + 1, "名称", "名称", "aaa", "aaa ", "aaa")
.TextMatrix(i, 2) = Choose(i + 1, "规格", "规格", "a", "a ", "a")
.TextMatrix(i, 3) = Choose(i + 1, "入", "数量", "10", "20", "")
.TextMatrix(i, 4) = Choose(i + 1, "入", "金额", "100", "200", "")
.TextMatrix(i, 5) = Choose(i + 1, "出", "数量", "", "", "15")
.TextMatrix(i, 6) = Choose(i + 1, "出", "金额", "", "", "150")
.TextMatrix(i, 7) = Choose(i + 1, "审核人", "审核人", "aa", "aa", "aa")
.TextMatrix(i, 8) = Choose(i + 1, "审核日期", "审核日期", "uuu", "uuu", "uuu")

Next
For i = 0 To 8
.ColAlignment(i) = 1
Next
.Row = 0
.Col = 3
.CellAlignment = 3
.Col = 5
.CellAlignment = 3
.MergeCells = flexMergeFree
.MergeCol(0) = True
.MergeCol(1) = True
.MergeCol(2) = True
.MergeRow(0) = True
.MergeCol(7) = True
.MergeCol(8) = True

End With
但最后的审核人审核日期合并了。
但aaa ,uuu 也合并了这是怎么回事.望赐教.

northwolves 2004-07-14

打赏
举报

Option Explicit

Private Sub Command1_Click()
Dim i As Integer
With MSFlexGrid1

.Rows = 5
.Cols = 7
.FixedRows = 2
.FixedCols = 0
For i = 0 To 4
.TextMatrix(i, 0) = Choose(i + 1, "编码", "编码", "001", "001 ", "001")
.TextMatrix(i, 1) = Choose(i + 1, "名称", "名称", "aaa", "aaa ", "aaa")
.TextMatrix(i, 2) = Choose(i + 1, "规格", "规格", "a", "a ", "a")
.TextMatrix(i, 3) = Choose(i + 1, "入", "数量", "10", "20", "")
.TextMatrix(i, 4) = Choose(i + 1, "入", "金额", "100", "200", "")
.TextMatrix(i, 5) = Choose(i + 1, "出", "数量", "", "", "15")
.TextMatrix(i, 6) = Choose(i + 1, "出", "金额", "", "", "150")
Next
For i = 0 To 6
.ColAlignment(i) = 1
Next
.Row = 0
.Col = 3
.CellAlignment = 3
.Col = 5
.CellAlignment = 3
.MergeCells = flexMergeFree
.MergeCol(0) = True
.MergeCol(1) = True
.MergeCol(2) = True
.MergeRow(0) = True
End With
End Sub

ryuginka 2004-07-14