怎样将datagrid显示的数据输出到txt文件里

Question

怎样将datagrid显示的数据输出到txt文件里
Public Sub DataOut()
   Dim i
   Dim strOut '输出字符串
       For i = 0 To Adodc1.Recordset.Fields.Count - 1
           DataGrid.Col = i
           strOut = strOut & DataGrid.Text & Chr(9)
       Next
       Debug.Print strOut
       Print #intFilenum, strOut
End Sub
上面的代码只输出了一行~我是要全部输出，按照datagrid显示的格式
谢谢了

Answer 1

Public Sub DataOut()
   Dim i
   Dim strOut '输出字符串   Adodc1.Recordset.movefirst
   while not Adodc1.Recordset.eof 
       For i = 0 To Adodc1.Recordset.Fields.Count - 1
           DataGrid.Col = i
           strOut = strOut & DataGrid.Text & Chr(9)
       Next
       Debug.Print strOut
       Print #intFilenum, strOut
       
       Adodc1.Recordset.movenext
   wend
End Sub

Answer 2

那要怎么样判断 Adodc1一共有多少条记录呢？

Answer 3

或者说怎么判断 Adodc1中有没有记录

Answer 4

Public Sub DataOut()
    Dim i
    Dim strOut '输出字符串    If Adodc1.Recordset.recordcount > 0 Then
        Adodc1.Recordset.movefirst
        
        While Not Adodc1.Recordset.EOF
            For i = 0 To Adodc1.Recordset.Fields.Count - 1
                DataGrid.Col = i
                strOut = strOut & DataGrid.Text & Chr(9)
            Next i
            
            Debug.Print strOut
            Print #intFilenum, strOut
            
            Adodc1.Recordset.movenext
        Wend
    End If
End Sub

Answer 5

Adodc1.Recordset.recordcount 
****************
记录数