控件中row(0)和row(1)为报表标题,
初始化为
————————————
序号| 金额 |数量 | 数量|
序号| 金额 |A数量|B数量|
————————————
1 10 15 15
2 10 16 15想合并为如下
——————————————
| | 数量 |
序号 | 金额 | ———————
| | A数量 | B数量|
——————————————
1 10 15 15
2 10 16 15
如果我再代码中写上.mergecol(1) “金额 ”能合并 但次列的数据也合并了。
关键问题就是在 把“金额”合并,但“金额”这列的数据即使有相同内容也不合并 (即两个10不合并)
初始化为
————————————
序号| 金额 |数量 | 数量|
序号| 金额 |A数量|B数量|
————————————
1 10 15 15
2 10 16 15想合并为如下
——————————————
| | 数量 |
序号 | 金额 | ———————
| | A数量 | B数量|
——————————————
1 10 15 15
2 10 16 15
如果我再代码中写上.mergecol(1) “金额 ”能合并 但次列的数据也合并了。
关键问题就是在 把“金额”合并,但“金额”这列的数据即使有相同内容也不合并 (即两个10不合并)
With fg
.Cols = 4
.FixedRows = 2
.MergeCells = flexMergeFixedOnly
.TextMatrix(1, 2) = "A(数量)"
.TextMatrix(1, 3) = "B(数量)"
.TextMatrix(0, 0) = "序号"
.TextMatrix(1, 0) = "序号"
.TextMatrix(0, 1) = "金额"
.TextMatrix(1, 1) = "金额"
.MergeRow(0) = True
.MergeRow(1) = True
For i = 0 To .Cols - 1
Select Case i
Case 0, 1
.MergeCol(i) = True
Case 2, 3
.TextMatrix(0, i) = "数量"
End Select
Next i
End With
学习技巧与源码下载站:
http://www.j2soft.cn/
http://j2soft.008.net/
.MergeCol(-1) = True
.MergeRow(-1) = True
这样就不会合并了