VB6 下 怎么样把表格对象1 复制到 另一个表格对象2

请教下 怎么样把表格对象1 复制到 另一个表格对象2?

例?
Grid2 =Grid1

我不想每行每列地是循环获取写入，能否有直接对象赋对象的方法,能否帮助一下，谢谢！

您好，
可以使用CopyRange的方式，代码可以参考以下：

1. Sub Command1_Click()
3.     Dim rowcount, colcount As Integer
5.     ' Return the last row that contains data
6.     rowcount = fpSpread1.DataRowCnt
7.     ' Return the last column that contains data
8.     colcount = fpSpread1.DataColCnt
10.     ' Copy the data to the designated cells
11.     fpSpread1.CopyRange 1, 1, colcount, rowcount, colcount + 1, rowcount + 1
13. End Sub

复制代码

只见复制，没见粘贴

您好，
可以考虑使用Clipboard中实现这个功能。
参考代码：

1. Private Sub Form_Load()
2.     Command1.Caption = "Copy"
3.     Command2.Caption = "Cut"
4.     Command3.Caption = "Paste"
5. End Sub
7. Private Sub Command1_Click()
8.     fpSpread1.ClipboardCopy
9.     fpSpread1.ClearSelection
10. End Sub
12. Private Sub Command2_Click()
13.     fpSpread1.ClipboardCut
14.     fpSpread1.ClearSelection
15. End Sub
17. Private Sub Command3_Click()
18.     fpSpread2.ClipboardPaste
19. End Sub

复制代码

为了给你提供更优质的服务，请对本次服务进行评分。我们会认真对待你提出的宝贵意见，谢谢