读书人

mshflexgrid控件选择有关问题

发布时间: 2012-01-10 21:26:51 作者: rapoo

mshflexgrid控件选择问题
当点击mshflexgrid控件任意行(其第一列为空白)的时候,相应的这一行的第一列就变成了 "√ ",有没有办法,当点击第一列为 "√ "的行时后,这一行的第一列就变成原来的空白。
Private Sub MSHFlexGrid1_Click() '选中删除的行
With MSHFlexGrid1
.TextMatrix(.RowSel, 0) = "√ "
End With
End Sub

[解决办法]
Private Sub MSHFlexGrid1_Click() '选中删除的行
With MSHFlexGrid1
if trim(.textmatrix(.rowsel,0))= " " then
.textmatrix(.rowsel,0)= "√ "
else
.textmatrix(.rowsel,0)= " "
end if
End With
End Sub

读书人网 >VB

热点推荐