1,451
社区成员
发帖
与我相关
我的任务
分享请问MSFlexGrid怎么才能实现像Excel那样删除一行的效果
Excel里面删除一行,
最左边的固定列的行号自动向上补齐,
即删除了一行后各行号之间仍然是连续的.
我已经用最苯的办法了,但是速度不能接受啊
dim a '删除的那一行的行号
for i=a+1 to MSFlexGrid1.Rows
MSFlexGrid.Row=i
MSFlexGrid1.col=0
MSFlexGrid1.Text=CStr(i)
Next
最左边的固定列的行号自动向上补齐,
即删除了一行后各行号之间仍然是连续的.
我已经用最苯的办法了,但是速度不能接受啊
dim a '删除的那一行的行号
for i=a+1 to MSFlexGrid1.Rows
MSFlexGrid.Row=i
MSFlexGrid1.col=0
MSFlexGrid1.Text=CStr(i)
Next
...全文
请发表友善的回复…
发表回复
shengcha 2005-10-10
- 打赏
- 举报
可不可以设置一个公式，类似一种序列，一行的行号根据上一行的行号自动加一，但是怎么监视这种状态呢？
shengcha 2005-10-10
- 打赏
- 举报
呵呵，解决了。稍微改了一下
Dim lngRows as long ,lngRow as long
with MSFlexGrid1
.Redraw = False
lngRows=.Rows
For lngRow=.RowSel+1 To lngRows-1
.TextMatrix(lngRow,0)=lngRow
Next
.RemoveItem .RowSel
.Redraw = True
End with
Dim lngRows as long ,lngRow as long
with MSFlexGrid1
.Redraw = False
lngRows=.Rows
For lngRow=.RowSel+1 To lngRows-1
.TextMatrix(lngRow,0)=lngRow
Next
.RemoveItem .RowSel
.Redraw = True
End with
whachun 2005-10-10
- 打赏
- 举报
Dim lngRows as long ,lngRow as long
with MSFlexGrid1
.Redraw = False
lngRows=.Rows
For lngRow=.RowSel+1 To lngRows
.TextMatrix(lngRow,0)=lngRow-1
Next
.RemoveItem .RowSel
.Redraw = True
End with
with MSFlexGrid1
.Redraw = False
lngRows=.Rows
For lngRow=.RowSel+1 To lngRows
.TextMatrix(lngRow,0)=lngRow-1
Next
.RemoveItem .RowSel
.Redraw = True
End with
whachun 2005-10-10
- 打赏
- 举报
Dim lngRows as long ,lngRow as long
with MSFlexGrid1
.Redraw = False
lngRows=.Rwos
For lngRow=.RowSel+1 To lngRows
.TextMatrix(lngRow,0)=lngRow-1
Next
.RemoveItem .RowSel
.Redraw = True
End with
with MSFlexGrid1
.Redraw = False
lngRows=.Rwos
For lngRow=.RowSel+1 To lngRows
.TextMatrix(lngRow,0)=lngRow-1
Next
.RemoveItem .RowSel
.Redraw = True
End with
northwolves 2005-10-09
- 打赏
- 举报
好象也没有好办法:
dim a as Integer'删除的那一行的行号
Dim b as Integer
b=MSFlexGrid1.Rows
for i=a+1 to b
MSFlexGrid1.TextMatrix(i,0)=i
Next
dim a as Integer'删除的那一行的行号
Dim b as Integer
b=MSFlexGrid1.Rows
for i=a+1 to b
MSFlexGrid1.TextMatrix(i,0)=i
Next
