MSflexGrid控件，统计行数

Question

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

Answer 1

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

Answer 2

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