如何获得datagrid每一列的名称？

Question

记得是：
dim Colname() as string,i as integer
datagrid1.row=0
for i=0 to datagrid1.cols
datagrid1.col=i
Colname(i)=trim(datagrid1.text)
next i
redim colname(datagrid1.cols)
记得是这个控件的第一行就是标题

Answer 1

看
datagrid1.row=0
for i=0 to fieldcount
  printer.print datagrid1.text
next
printer.enddoc结果是第一行的数据

Answer 2

几天没用，忘记了，别见怪。 
 Dim Colname(15) As String, i As Integer
    DataGrid1.Row = 0
    For i = 0 To 12
        DataGrid1.Col = i
        Colname(i) = DataGrid1.Columns(i).Caption
        text1(i).text=Colname(i)
    Next i

Answer 3

Dim Colname(15) As String, i As Integer
    For i = 0 To 12
        Colname(i) = MSHFlexGrid1.TextMatrix(0, i)
    Next i  
    Text1.Text = Colname(6)
第零行的文本的值为标题的表格控件是MsHflexgrid控件。