首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

vsflexgrid合并有关问题

2012-12-14 
vsflexgrid合并问题本帖最后由 qq37724861 于 2012-11-06 17:35:09 编辑请教:vsflexgrid控件,我已经设置了

vsflexgrid合并问题
本帖最后由 qq37724861 于 2012-11-06 17:35:09 编辑 请教:
vsflexgrid控件,我已经设置了某列合并
我要的效果是在某一列输入随便一行输入一个值,本列其他行自动填充这个数值,然后会自动合并
然后在单元格手工输入数字的话,会自动合并,若是通过代码给某列的一个单元格赋值,却不会合并
请教,如何通过代码赋值,仍然能使单元格合并?
PS:如果通过代码对则一列的每一行单元格赋值,会合并,如何才能实现对某列的一个单元格赋值,也能自动合并呢?
用代码如何触发 “鼠标双击进入单元格编辑 再退出编辑”的这个动作呢?实现这个应该就可以
我录制了操作视频,是我百度网盘,请帮看看
http://pan.baidu.com/share/link?shareid=109805&uk=1560572242
附:部分代码:(我视频中演示的点击command9,使得第一个单元格内容为A,但是却不合并)


Private Sub Form_Load()
with  VSFlexGrid1
.MergeCells = flexMergeFree
.MergeCol(1) = True
.MergeCol(2) = True
end with
End Sub

Private Sub VSFlexGrid1_AfterEdit(ByVal Row As Long, ByVal Col As Long)
If Col = 1 Or Col = 2 Then
For i = 2 To 7
VSFlexGrid1.Cell(flexcpText, i, Col) = VSFlexGrid1.Cell(flexcpText, Row, Col)
Next i
End Sub

Private Sub Command9_Click()
VSFlexGrid1.Cell(flexcpText, 2, 1) = "A"
End Sub

[最优解释]
editable = 1

热点排行