关于DataGrid的属性问题。

Question

我用vb制作了一个DataGrid的表单，现在希望获取DataGrid中表的表头，请问应该怎样操作？

Answer 1

是字段表头吗?你可以用datagird.comlum.item(0).value

Answer 2

你的方法只能获得第一条记录，我就是想把DataGrid的表单直接导入到execl表中去。怎末才能实现呢？大家帮帮忙

Answer 3

如果DataGrid是与记录集rs绑定的，可以这样：
Public Sub Export(rs As Recordset, datagridName As Object)
    Dim xlApp As Object 'Excel.Application
    Dim xlBook As Object  'Excel.Workbook
    Dim xlSheet As Object  'Excel.Worksheet    Screen.MousePointer = vbHourglass
    On Error GoTo Err_Proc
    Set xlApp = CreateObject("Excel.Application")
    Set xlBook = xlApp.Workbooks.Add
    Set xlSheet = xlBook.Worksheets(1)    'Begin to fill data to sheet
    Dim i As Long
    Dim j As Integer
    With datagridName
        For i = 0 To rs.RecordCount - 1
            .Row = i
            For j = 0 To rs.Fields.Count - 1
                .Col = j
                xlSheet.cells(i + 1, j + 1).Value = "'" & datagridName.Text
            Next j
        Next i
    End With
    xlApp.Visible = True
    Screen.MousePointer = vbDefault
    Exit Sub
Err_Proc:
    Screen.MousePointer = vbDefault
    MsgBox "请确认是否已安装Excel！", vbExclamation, "提示"
    
End Sub