请问VB中有什么方法可以做出以下的表格,并将数据库查找出来的数值填入以下表格,要求不用EXCEL或WORD辅助。
_________________________________________
|标题1 |标 |标题2 |标题 |
| |题 |______________|__________|
|_________|___|____|____|____|__________|
|标题 | | 1 | | | | |
|_____|___|___|____|____|____|__________|
|标题 | | 2 | | | | |
|_____|___|___|____|____|____|__________|
|标题 | |
|_________|_____________________________|
_________________________________________
|标题1 |标 |标题2 |标题 |
| |题 |______________|__________|
|_________|___|____|____|____|__________|
|标题 | | 1 | | | | |
|_____|___|___|____|____|____|__________|
|标题 | | 2 | | | | |
|_____|___|___|____|____|____|__________|
|标题 | |
|_________|_____________________________|
返回或设置一个值,决定包含相同内容的单元是否应该跨越多行或多列分组在一个单个单元中。语法object.MergeCells [=value]MergeCells 属性的语法包含如下部分内容:部分 描述
object 一个对象表达式,其值为“应用于”列表中的一个对象。
value 一个整数或常数,指定单元分组(合并)。如设置值中所指定。
设置值value 的设置值如下所示:常数 值 描述
flexMergeNever 0 不显示。包含相同内容的单元不分组。这是缺省设置。
flexMergeFree 1 自由。包含相同内容的单元总是合并。
flexMergeRestrictRows 2 限制行。只有行中包含相同内容的相邻单元(向当前单元左边)才合并。
flexMergeRestrictColumns 3 限制列。只有列中包含相同内容的相邻单元(向当前单元上方)才合并。
flexMergeRestrictBoth 4 限制行和列。只有在行中(向左)或在列中(向上)包含相同内容的单元才合并。
说明合并单元的能力使得您能够以一种清晰、简明的方式显示数据。可以连同排序和 MSHFlexGrid 的列序函数一起合并使用单元。要使用 MSHFlexGrid 的单元合并能力: 把 MergeCells 设置为除 0 以外的一个值。(设置值之间的区别在示例中解释。)
为要合并行和列把 MergeRow 和 MergeCol 的数组属性设置为 True。
当使用单元合并能力时,MSHFlexGrid 合并包含相同内容的单元。无论什么时候单元的内容更改,合并都自动的更新。当 MergeCells 被设置为除 0 (不显示)以外的一个值时,突出显示的选择自动关闭。这样做是为加速重画,也是因为包含合并单元范围的选择可能导致不可预料的结果。设置和你类似的表格
Public Sub pf_SetFlexSurface(fv_AccName As String, MsFlex As MSHFlexGrid)
On Error GoTo Err:
Dim i_Index As Integer
MsFlex.Redraw = False
MsFlex.Cols = 11
'------------单元格合并--------------------------
MsFlex.MergeCol(0) = True
MsFlex.MergeCol(1) = True
MsFlex.MergeCol(2) = True
MsFlex.MergeRow(0) = True
MsFlex.MergeRow(1) = True
' MsFlex.MergeCells = flexMergeFree
MsFlex.MergeCells = flexMergeRestrictRows
'---------------格式对齐------------------------------
MsFlex.FormatString = "<|<|<|>|>|>|>|>|>|>|>"
MsFlex.Row = 0
For i_Index = 0 To 10
MsFlex.Col = i_Index
MsFlex.CellAlignment = flexAlignCenterCenter
Next
MsFlex.Row = 1
For i_Index = 0 To 10
MsFlex.Col = i_Index
MsFlex.CellAlignment = flexAlignCenterCenter
Next
'-----------------单元格大小-------------------------
MsFlex.ColWidth(0) = 1400
MsFlex.ColWidth(1) = 2900
MsFlex.ColWidth(2) = 1000
For i_Index = 1 To 4
MsFlex.ColWidth(2 * i_Index + 1) = 900
MsFlex.ColWidth(2 * i_Index + 2) = 1600
Next
MsFlex.TextMatrix(0, 0) = "编码"
MsFlex.TextMatrix(1, 0) = "编码"
MsFlex.TextMatrix(0, 1) = "名称"
MsFlex.TextMatrix(1, 1) = "名称"
MsFlex.TextMatrix(0, 2) = "单位"
MsFlex.TextMatrix(1, 2) = "单位"
MsFlex.TextMatrix(0, 3) = "月初余额"
MsFlex.TextMatrix(0, 4) = "月初余额"
MsFlex.TextMatrix(0, 5) = "本月增加"
MsFlex.TextMatrix(0, 6) = "本月增加"
MsFlex.TextMatrix(0, 7) = "本月减少"
MsFlex.TextMatrix(0, 8) = "本月减少"
MsFlex.TextMatrix(0, 9) = "月末余额"
MsFlex.TextMatrix(0, 10) = "月末余额"
For i_Index = 1 To 4
MsFlex.TextMatrix(1, 2 * i_Index + 1) = "数量"
MsFlex.TextMatrix(1, 2 * i_Index + 2) = "金额"
Next
MsFlex.Redraw = True
Exit Sub
Err:
MsFlex.Redraw = True
End Sub