msflexgrid里面数据保存的一个问题

Question

在msflexgrid里面我的数据格式是这样的        第一次数据   第二次数据
                                       点1       1            2       
我想保存时也是这种格式
但是只能保存为这样
第一次数据
第二次数据
点1
1
2
请高手赐教

Answer 1

dim i as integer
dim j as integer
open app.path+"\save.txt" for output as #1
  for i=0 to msflexgrid.cols-1 
      print #1,msflexgrid.textmatrix(0,i);
  next
for i=1 to msflexgrid.rows-1
   for j=0 to msflexgrid.cols-1
     print #1,msflexgrid.textmatrix(i,j)+space(4);
   next
  print #1,""
next
close #1