登录/注册

首页 › Spread.NET专区 › ActiveX 求助中心 › 查看内容

6 主题	15 帖子	180 积分

积分: 180

2428
金币
6
主题
15
帖子

最新发帖

[已处理] VB6 下怎么样把表格对象1 复制到另一个表格对象2

guyizh
注册会员 / 发表于：2015-9-10 17:22 / 查看：5568 / 回复：5

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

例?
Grid2 =Grid1

收藏

回复

5 个回复

倒序浏览

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 5^#

您好，
可以考虑使用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 6^#

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

回复 使用道具举报