以下是引用atomhdp在2007-1-29 15:02:47的发言：
private sub command1_click()
dim i%,flexrow%
'表格增加一行
msflexgrid.rows=msflexgrid.rows+1
flexrow=msflexgrid.rows
for i = 0 to msflexgrid.cols-1
msflexgrid.textmatrix(flexrow-1,i)= text(i).text
next i
end sub
上面代码未经调试．
private sub command1_click()
dim i%,flexrow%
'表格增加一行
msflexgrid.rows=msflexgrid.rows+1
flexrow=msflexgrid.rows
for i = 0 to msflexgrid.cols-1
msflexgrid.textmatrix(flexrow-1,i)= text(i).text
next i
end sub
上面代码未经调试．
谢谢.明白思路了.
