搬家第25天-citect V7.4 CitectVBA 合并列制作msflexgrid控件表头
比如我们有这样一个access表格
希望在citect中的MSFlexgrid控件显示信息时,是这样的排版
那么在前面讲access数据写入msflexgrid代码基础上可以写以下代码
Sub msflexgridMergerow()
Dim InsertRowCount,colcount,i,j As Integer
Dim title As string
InsertRowCount=3 '插入两行
For i=1 To InsertRowCount
main_AN4.AddItem "",1
Next
'写“表头”
For i=1 To main_AN4.Cols-1
main_AN4.row=0
main_AN4.col=i
title=main_AN4.Text
main_AN4.row=3
main_AN4.Text=title
Next
main_AN4.row=0
For i=1 To main_AN4.Cols-1
main_AN4.col=i
main_AN4.Text="" '去掉原有的“表头”
Next
colcount=main_AN4.Cols
main_AN4.MergeCells= 1 '合并方式为自由合并
For j=1 To colcount-1
main_AN4.row=1
main_AN4.col=j
main_AN4.Text="***人员信息表"
main_AN4.row=2
main_AN4.Text="制表时间:" & Now
Next
main_AN4.Mergerow(1)=True '第一行合并
main_AN4.Mergerow(2)=True '第二行合并
'对齐方式
main_AN4.row=1
main_AN4.col=1
main_AN4.CellAlignment=4 '水平居中,垂直居中
main_AN4.Row=2
main_AN4.Col=1
main_AN4.CellAlignment=7
'单元格对齐方式 CellAlignment
'0 左,顶部
'1 左,居中
'2 左,底部
'3 居中,顶部
'4 居中,居中
'5 居中,底部
'6 右,顶部
'7 右,居中
'8 右,底部
'9 默认方式:也即字符串左,居中;数值右,居中
End Sub
页面上调用这个sub,就能实现想要的效果。上面的代码可以在前面博客写的代码基础上把数据写入和排版一并完成。