AxMSHFlexGrid1.Rows=1 ' 表格标题
AxMSHFlexGrid1.FormatString="00|01|02" '表头名称
do while Not <数据源或循环值>
AxMSHFlexGrid1.Rows=AxMSHFlexGrid1.Rows+1
AxMSHFlexGrid1.TextMatrix(AxMSHFlexGrid1.Rows-1,0)="00"
AxMSHFlexGrid1.TextMatrix(AxMSHFlexGrid1.Rows-1,1)="01"
...
Loop