MSflexGrid控件,统计行数
请教。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
补充:VB , 控件