数据库的几个问题，希望大家帮忙，急

Question

1，能否把datagrid存成excel？方法如何，请大家给些例子
2，做报表一定要用到数据环境吗，我想直接用rs在datareport的
Private Sub DataReport_Initialize()中调用自己的SQl语句，形成recordeset
怎么样写程序下去，特别是datamember怎么加，因为在报表环境中txt控件都需要的。谢谢

Answer 1

1、可以的，引用microsoft excel 9.0 object library 直接对Excel文件进行操作。或者直接存成文本文件也可以，各字段之间用Tab分隔，存成的文件扩展名存成.xls

Answer 2

1.参照
http://www.csdn.net/develop/read_article.asp?id=14952
2.可以不用数据环境
  如:set datareport1.datasource = rs 
  就不需要数据环境

Answer 3

楼上的，这句我知道，可是要设置显示的text控件，要有个datamember，这可就不行啊，

Answer 4

'*********************************************************
'* 名称：OutDataToExcel
'* 功能：将MsFlexGrid控件中显示的内容输出到Excel表格中进行打印(datagrid类似）
'*********************************************************
Public Sub OutDataToExcel(Flex As MSFlexGrid)    '导出至Excel
    Dim s As String
    Dim i As Integer
    Dim j As Integer
    Dim k As Integer
    On Error GoTo Ert
    Me.MousePointer = 11
    Dim Excelapp As Excel.Application
    Set Excelapp = New Excel.Application
    On Error Resume Next
    DoEvents
    Excelapp.SheetsInNewWorkbook = 1
    Excelapp.Workbooks.Add
    Excelapp.ActiveSheet.Cells(1, 3) = s
    Excelapp.Range("C1").Select
    Excelapp.Selection.Font.FontStyle = "Bold"
    Excelapp.Selection.Font.Size = 16
    With Flex
        k = .Rows
        For i = 0 To k - 1
            For j = 0 To .Cols - 1
               DoEvents
               Excelapp.ActiveSheet.Cells(3 + i, j + 1) = "'" & .TextMatrix(i, j)
            Next j
        Next i
    End With
    Me.MousePointer = 0
    Excelapp.Visible = True
    Excelapp.Sheets.PrintPreview       
Ert:
    If Not (Excelapp Is Nothing) Then
        Excelapp.Quit
    End If
End Sub