我只用MSFLEXGRID
FOR I=0 TO MSFLEXGRID1.COLS.COUNT-1
S=MSFLEXGRID1.TEXTMATRIC(MSFLEXGRID1.ROWSEL,I)
NEXT I
'//S获取了选定行的所有数据
FOR I=0 TO MSFLEXGRID1.COLS.COUNT-1
S=MSFLEXGRID1.TEXTMATRIC(MSFLEXGRID1.ROWSEL,I)
NEXT I
'//S获取了选定行的所有数据
dim i as integer
for i=0 to datagrid.cols-1
text(i).text=datagrid.text
next i