以下是引用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

上面代码未经调试．