您的位置：程序门 -> vb -> 控件

msflexgrid问题再次提出！

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

msflexgrid问题再次提出！[已结贴,结贴人:zy_victory]

发表于：2007-02-06 16:26:41 楼主

vb msflexgrid合并标题的问题，我以前已经提问过了，但还是没有解决：标题共有三行，其中有些行中的某几列需要合并，，某些相同列需要合并，但不合并输入数据，用合并单元格的方式只合并标题，应怎样做，可否举个例子？
下面是相关代码：不知哪里有错误？谢谢！
private sub form_load（)

with msflexgrid1
.rows = 5
.cols = 11

.fixedrows = 3
.fixedcols = 0

for i = 1 to 2
.textmatrix（i, 5) = "计划数量 "
next i

for i = 6 to 7
.textmatrix（1, i) = "调节数量 "
next i

for i = 0 to 2
.textmatrix（i, 0) = "材料名称 "
.textmatrix（i, 1) = "规格 "
.textmatrix（i, 2) = "颜色 "
.textmatrix（i, 3) = "单位 "
.textmatrix（i, 4) = "单价 "
next i

for i = 0 to 2
.textmatrix（i, 9) = "金额 "
.textmatrix（i, 10) = "备注 "
next i

for i = 5 to 8
.textmatrix（0, i) = "数量 "
next i

.textmatrix（1, 8) = "实际数量 "
.textmatrix（2, 8) = "实际数量 "

.textmatrix（2, 6) = "调节方式 "
.textmatrix（2, 7) = "调节比例 "

.mergecells = flexmergerestrictrows
.mergerow（0) = true
.mergerow（1) = true
.mergecol（0) = true
.mergecol（1) = true
.mergecol（2) = true
.mergecol（3) = true
.mergecol（4) = true
.mergecol（5) = true
.mergecol（6) = true
.mergecol（9) = true
.mergecol（10) = true
end with
end sub

发表于：2007-02-07 09:37:471楼得分:0

急啊！

发表于：2007-02-07 10:41:572楼得分:5

但不合并输入数据，用合并单元格的方式只合并标题，
指定它的行用你上面那个属性不就行了
　　msflexgrid1.mergecells = 3　　限制列只有列中数据相同才合并
msflexgrid1.mergerow（0) = true　　　指定要合并的行

发表于：2007-02-22 13:47:233楼得分:5

将以下代码放入end with 后面
msflexgrid1.mergecells = 3 '　限制列只有列中数据相同才合并
msflexgrid1.mergerow（0) = true '　指定要合并的行
for i = 0 to 10
msflexgrid1.fixedalignment（i) = 4
next i
msflexgrid1.mergecol（8) = true
msflexgrid1.mergerow（1) = true '　指定要合并的行

发表于：2007-02-28 20:43:304楼得分:0

应该是有一个只有固定行列才能合并的属性吧

发表于：2007-03-07 10:17:175楼得分:0

学习

发表于：2007-03-07 16:09:066楼得分:10

'合并单元格==================================
'语法
'
'object.mergecells [=value]
'
'mergecells 属性的语法包含如下部分内容:
'
'部分描述
'object 一个对象表达式，其值为“应用于”列表中的一个对象。
'value 一个整数或常数，指定单元分组（合并）。如设置值中所指定。
'
'
'设置值
'
'value 的设置值如下所示:
'
'常数值描述
'flexmergenever 0 不显示。包含相同内容的单元不分组。这是缺省设置。
'flexmergefree 1 自由。包含相同内容的单元总是合并。
'flexmergerestrictrows 2 限制行。只有行中包含相同内容的相邻单元（向当前单元左边）才合并。
'flexmergerestrictcolumns 3 限制列。只有列中包含相同内容的相邻单元（向当前单元上方）才合并。
'flexmergerestrictboth 4 限制行和列。只有在行中（向左）或在列中（向上）包含相同内容的单元才合并。

'======================================
'mshflexgrid 控件常数
'
'
'这一节包含关于 mshflexgrid 的控件常数的信息。注意这些常数也应用到 msflexgrid，除非有不同地注解。
'
'addmodesettings 属性（mshflexgrid)
'常数值描述
'flexnoaddnew 0 当前单元不在最后行中，并且没有 addnew 操作处于待决。
'flexaddnewcurrent 1 当前单元在最后一行，但没有 addnew 操作处于待决。
'flexaddnewpending 2 当前单元在倒数第二行。这是是通过 mshflexgrid 用户接口由用户初始化一个待决的 addnew 操作的结果，或者是编程地设置一个列的 value 或 text 属性的结果。
'
'
'allowuserresizing 属性
'常数值描述
'flexresizenone 0 用户不能使用鼠标调整大小。这是缺省设置值。
'flexresizecolumns 1 用户可以使用鼠标调整列的大小。
'flexresizerows 2 用户可以使用鼠标调整行的大小。
'flexresizeboth 3 用户可以使用鼠标调整列和行的大小。
'
'
'appearance 属性
'常数值描述
'flexflat 0 mshflexgrid 的全部外观是平面的或正常的。
'flex3d 1 mshflexgrid 的全部外观是三维的。
'
'
'borderstyle 属性
'常数值描述
'flexbordernone 0 没有边框。
'flexbordersingle 1 有一个单边框。
'
'
'cellalignment 属性
'常数值描述
'flexalignlefttop 0 单元内容顶部左对齐。
'flexalignleftcenter 1 单元内容中间左对齐。对字符串的缺省设置值。
'flexalignleftbottom 2 单元内容底部左对齐。
'flexaligncentertop 3 单元内容顶部居中。
'flexaligncentercenter 4 单元内容中间居中。
'flexaligncenterbottom 5 单元内容底部居中。
'flexalignrighttop 6 单元内容顶部右对齐。
'flexalignrightcenter 7 单元内容中间右对齐。对数字的缺省设置值。
'flexalignrightbottom 8 单元内容底部右对齐。
'flexaligngeneral 9 单元内容一般对齐方式。对字符串中间左对齐而对数值中间右对齐。

发表于：2007-03-07 16:09:427楼得分:0

'cellpicturealignment 属性
'常数值描述
'flexalignlefttop 0 图片顶部左对齐。
'flexalignleftcenter 1 图片中间左对齐。
'flexalignleftbottom 2 图片底部左对齐。
'flexaligncentertop 3 图片顶部居中。
'flexaligncentercenter 4 图片中间居中。
'flexaligncenterbottom 5 图片底部居中。
'flexalignrighttop 6 图片顶部右对齐。
'flexalignrightcenter 7 图片中间右对齐。
'flexalignrightbottom 8 图片底部右对齐。
'
'
'celltextstyle?textstyle?textstylefixed 属性
'常数值描述
'flextextflat 0 文本为正常的、平面的文本。
'flextextraised 1 文本看起来凸起。
'flextextinset 2 文本看起来凹入。
'flextextraisedlight 3 文本看起来轻微凸起。
'flextextinsetlight 4 文本看起来轻微凹入。
'
'
'celltype 属性（mshflexgrid)
'常数值描述
'flexcelltypestandard 0 单元为标准单元
'flexcelltypefixed 1 单元包含在一个固定行或列中。
'flexcelltypeheader 2 单元是一个数据带区的标头单元。
'flexcelltypeindent 3 单元用在缩进一个数据带区的一列中。
'flexcelltypeunpopulated 4 单元是一个未充填的单元。
'
'
'colalignment 属性
'常数值描述
'flexalignlefttop 0 列内容顶部左对齐。
'flexalignleftcenter 1 列内容中间左对齐。对字符串的缺省设置值。
'flexalignleftbottom 2 列内容底部左对齐。
'flexaligncentertop 3 列内容顶部居中。
'flexaligncentercenter 4 列内容中间居中。
'flexaligncenterbottom 5 列内容底部居中
'flexalignrighttop 6 列内容顶部右对齐。
'flexalignrightcenter 7 列内容中间右对齐。对数值的缺省设置值。
'flexalignrightbottom 8 列内容底部右对齐。
'flexaligngeneral 9 列内容一般对齐方式。对字符串中间左对齐而对数值中间右对齐。
'
'
'colheader 属性（mshflexgrid)
'常数值描述
'flexcolheaderon 0 为每一个带区显示标头。
'flexcolheaderoff 1 没有为带区显示标头。
'flexcolheaderonce 2 为带区显示标头。如果带区被折叠，只显示一个标头。重复的标头不显示。
'
'
'displaybandsettings 属性（mshflexgrid)
'常数值描述
'flexbanddisplayhorizontal 0 mshflexgrid 中的带区水平显示（横向）。缺省设置值。
'flexbanddisplayvertical 1 mshflexgrid 中的带区竖直显示（上下方向）。
'
'
'displaycellsettings 属性（mshflexgrid)
'常数值描述
'flexcelldisplayhorizontal 0 mshflexgrid 中的带区水平显示（横向）。
'flexcelldisplayvertical 1 mshflexgrid 中的带区竖直显示（上下方向）。
'
'
'fillstyle 属性
'常数值描述
'flexfillsingle 0 单个。更改 text 或任何单元属性只影响活动单元。缺省设置值。
'flexfillrepeat 1 重复。更改 text 或任何单元属性影响所有选定单元。
'
'
'focusrect 属性
'常数值描述
'flexfocusnone 0 围绕当前单元没有焦点矩形。
'flexfocuslight 1 围绕当前单元有一个浅色的焦点矩形。缺省设置值。
'flexfocusheavy 2 围绕当前单元有一个深色的焦点矩形。
'
'
'gridlines?gridlinesfixed 属性
'常数值描述
'flexgridnone 0 没有线。单元格之间没有线。在 msflexgrid 中，对 gridlines 这是缺省的设置值。
'flexgridflat 1 有线。单元格之间线风格被设置为正常的、平面的线。在 mshflexgrid 中，对 gridlines 这是缺省的设置。
'flexgridinset 2 凹入线。单元格之间线的风格被设置为凹入线。在 msflexgrid 中，对 gridlinesfixed 这是缺省的设置值。
'flexgridraised 3 凸起线。单元格之间的线风格被设置为凸起线。在 mshflexgrid 中，对 gridlinesfixed 这是缺省的设置值。
'

发表于：2007-03-07 16:10:398楼得分:0

'highlight 属性
'常数值描述
'flexhighlightnever 0 选定单元无突出显示。
'flexhighlightalways 1 选定单元总是突出显示。这是缺省设置值。
'flexhighlightwithfocus 2 突出显示只在控件有焦点时才显现。
'
'
'mergecells 属性
'常数值描述
'flexmergenever 0 不显示。包含相同内容的单元不分组。这是缺省设置值。
'flexmergefree 1 自由。包含相同内容的单元总是合并。
'flexmergerestrictrows 2 限制行。只有行中包含相同内容的相邻单元（向左）合并。
'flexmergerestrict-columns 3 限制列。只有列中包含相同内容的相邻单元（向上）合并。
'flexmergerestrictboth 4 限制行和列。只有在行中（向左）或在列中（向上）包含相同内容的相邻的单元合并。
'
'
'mousepointer 属性
'常数值描述
'flexdefault 0 mshflexgrid 的轮廓。
'flexarrow 1 一个箭头指针。
'flexcross 2 一组十字型指针。
'flexibeam 3 一个 "i " 型标指针，来允许文本输入。
'flexicon 4 一个正方形中的方块。
'flexsize 5 一个用箭头指向上方、下方、左方或右方调整大小指针。
'flexsizenesw 6 一个用箭头指向右上方和左下方调整大小指针。
'flexsizens 7 一个用箭头指向上方和下方调整大小指针。
'flexsizenwse 8 一个用箭头指向左上方和右下方调整大小指针。
'flexsizeew 9 一个用箭头指向左方和右方调整大小指针。
'flexuparrow 10 一个指向上方的箭头。
'flexhourglass 11 一个沙漏符号。
'flexnodrop 12 一个“不允许放下”指针。
'flexcustom 13 一个自定义风格指针。
'
'
'picturetype 属性
'常数值描述
'flexpicturecolor 0 产生一个高品质的全色图象。
'flexpicturemonochrome 1 产生一个较低品质、单色，占用较少内存的图象。
'
'
'rowsizingsettings 属性（mshflexgrid)
'常数值描述
'flexrowsizeindividual 0 调整一个行的大小只更改调整的行的高度。这是缺省设置值。
'flexrowsizeall 1 调整一个行的大小更改 mshflexgrid 中的所有行的高度。
'
'
'selectionmode 属性
'常数值描述
'flexselectionfree 0 自由。允许选定 mshflexgrid 中的个别单元，电子数据表风格。（缺省设置值）
'flexselectionbyrow 1 按行。强制跨越整个行选择，如在一个多列列表框或基于记录的显示。
'flexselectionbycolumn 2 按列。强制跨越整个列选择，如同为一个图表选择范围或为排序选择字段。
'
'
'scrollbars 属性
'常数值描述
'flexscrollnone 0 mshflexgrid 没有滚动条。
'flexscrollhorizontal 1 mshflexgrid 有一个水平的滚动条。
'flexscrollvertical 2 mshflexgrid 有一个竖直的滚动条。
'flexscrollboth 3 mshflexgrid 有水平和竖直的滚动条。这是缺省设置值。
'
'
'sort 属性
'常数值描述
'flexsortnone 0 无。不执行排序。
'flexsortgenericascending 1 一般升序。执行估计文本不管是字符串或者是数值的升序排序。
'flexsortgenericdescending 2 一般降序。执行估计文本不管是字符串或者是数值的降序排序。
'flexsortnumericascending 3 数值升序。执行把字符串变换为数值的升序排序。
'flexsortnumericdescending 4 数值降序。执行把字符串变换为数值的降序排序。
'flexsortstringnocaseasending 5 字符串升序。执行不区分大小写字符串比较的升序排序。
'flexsortnocasedescending 6 字符串降序。执行不区分大小写字符串比较的降序排序。
'flexsortstringascending 7 字符串升序。执行区分大小写字符串比较的升序排序。
'flexsortstringdescending 8 字符串降序。执行区分大小写字符串比较的降序排序。
'flexsortcustom 9 自定义，使用 compare 事件比较行。

发表于：2007-11-06 11:18:369楼得分:0

我也遇到了相同的问题，但是用了以上的方法好像都不好用。
难倒这个问题是控件自身没法解决的么。
楼主的问题解决了么？
若能告诉我，可以再开帖，赠送100分。

其他资讯

您的位置：程序门 -> vb -> 控件

msflexgrid问题 再次提出！

msflexgrid问题再次提出！