首页 › ActiveX 求助中心 › VB6 下 怎么样把表格对象1 复制到 另一个表格对象2

guyizh 发表于 2015-9-10 17:22:00

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

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

例?
Grid2 =Grid1

guyizh 发表于 2015-9-11 09:18:00

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

frank.zhang 发表于 2015-9-11 17:02:00

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

    Dim rowcount, colcount As Integer

    ' Return the last row that contains data
    rowcount = fpSpread1.DataRowCnt
    ' Return the last column that contains data
    colcount = fpSpread1.DataColCnt

    ' Copy the data to the designated cells
    fpSpread1.CopyRange 1, 1, colcount, rowcount, colcount + 1, rowcount + 1

End Sub

guyizh 发表于 2015-9-14 09:02:00

只见复制，没见粘贴

frank.zhang 发表于 2015-9-14 13:59:00

您好，
可以考虑使用Clipboard中实现这个功能。
参考代码：
Private Sub Form_Load()
    Command1.Caption = "Copy"
    Command2.Caption = "Cut"
    Command3.Caption = "Paste"
End Sub

Private Sub Command1_Click()
    fpSpread1.ClipboardCopy
    fpSpread1.ClearSelection
End Sub

Private Sub Command2_Click()
    fpSpread1.ClipboardCut
    fpSpread1.ClearSelection
End Sub

Private Sub Command3_Click()
    fpSpread2.ClipboardPaste
End Sub

frank.zhang 发表于 2015-9-25 17:38:00

为了给你提供更优质的服务，请对本次服务进行评分。我们会认真对待你提出的宝贵意见，谢谢
http://gcdn.gcpowertools.com.cn/attachment.aspx?attachmentid=10062

查看完整版本: VB6 下 怎么样把表格对象1 复制到 另一个表格对象2