MSflexGrid控件，统计行数

[zhonghbmarker]

请教。vb6.0中怎样， 统计 控件MSflexGrid 中值的所有行数。还要遍历第二列值
如果不为空则赋为一个变量，否则将第一列对应的那行的值，赋给第二列对应的行

[神马都能聊]

dim i as long
with msflexgrid
for i = .rows -1 to .fixrows step -1
select case len(.textmatrix(i,1))
case 0
.textmatrix(i,1) = i
case else
end select
next
end with

[贝隆]

没有懂楼主的意思，顶

[伍哥的传说]

dim a() as string
dim szsy as as integer
with MSflexGrid
szsy=1
.rows 'MSF总的行数
for i=0 to .rows
if trim$(.TextMatrix(i,1))<>"" then
redim a(szsy)
a(i)=.textmartrix(i,1)
szsy=szsy+1
else
.textmartrix(i,1)=trim$(.textmatrix(i,0))
end if
next