把所有数据先都写入一个内存变量,然后一起放入MsFlexgrid控件。
列之间的分隔符是chr(9),行之间的分隔符是chr(13)。见如下代码:Private Sub Command1_Click()MSFlexGrid1.Rows = 21
MSFlexGrid1.Cols = 4
s = ""
cc = Chr(9)
For i = 1 To 20
    s = s + Str(i) + cc + Str(i * 2) + cc + Str(2 ^ i) + Chr(13)
Next i
MSFlexGrid1.Row = 1
MSFlexGrid1.Col = 0
MSFlexGrid1.RowSel = 20
MSFlexGrid1.ColSel = 3
MSFlexGrid1.Clip = sEnd Sub