DataGrid中数据复制问题？

Question

在DataGrid中显示的数据，如何象EXCEL中一样，全选中然后复制呢？谢谢各位指教

Answer 1

对记录集rs(假设DataGrid是与rs绑定的)操作，参考：'打印DataGrid选中的所有行的数据到立即窗口
Private Sub Command1_Click()
    Dim varBookMark As Variant, i As Integer, strTmp As String
    For Each varBookMark In DataGrid1.SelBooks
       rs.Book = varBookMark
       strTmp = ""
       For i = 0 To rs.Fields.Count - 1
            strTmp = strTmp & vbTab & rs(i)
       Next
       Debug.Print strTmp
    Next
End Sub