flexgrid control 6.0能不能删除一列数据？

[lv1]

删除一列后其他列不变，不知道能不能做！怎么做

[myhgyp]

用隐藏的方法：
MSFlexGrid1.ColWidth(0) = 0 '设置第一列列宽为0，这种方法最直接
MSFlexGrid1.ColWidth(1) = 0 '第二列
依次类推

[tztz520]

'不好意思,代码改一下


Private Sub Command2_Click()
MSFlexGrid1.ColPosition(2)=MSFlexGrid1.Cols - 1 '改变括号()里的参数就可以删除任意列了.
MSFlexGrid1.Cols = MSFlexGrid1.Cols - 1
End Sub

[lv1]

thx
我根据上面的改动了一下

Grid.ColPosition(Grid.MouseCol) = Grid.Cols - 1 '
Grid.Cols = Grid.Cols - 1
好像这样可以点到一行删一行，哇哈哈哈

[tztz520]

可以.

Private Sub Command2_Click()
MSFlexGrid1.ColPosition(MSFlexGrid1.Cols - 1) = 2 '删除第三列.就改变后面的=?就可以删除任意列了.
MSFlexGrid1.Cols = MSFlexGrid1.Cols - 1
End Sub