請問Class的一個奇怪的問題，急!

xwfjw 2004-11-15 08:44:32

例如：
Private m_clsJCL As clsLRGJobChkList_JCL
Private m_clsRollBackJCL As clsLRGJobChkList_JCL

Public Function FormShow(ByRef clsJCL As clsLRGJobChkList_JCL, Optional ByRef blnSave As Boolean)
Set m_clsJCL = clsJCL
Set m_clsRollBackJCL = clsJCL
End Function

如果改動m_clsJCL 之後，m_clsRollBackJCL 也會被改動了，
請問如何做到改動m_clsJCL 之後，而m_clsRollBackJCL 不會被改動？

...全文

164 13 打赏收藏转发到动态举报

写回复

用AI写文章

13 条回复

切换为时间正序

请发表友善的回复…

发表回复

creazyfish 2004-11-15

打赏
举报

在vb中通常也只能这么做了

flyingZFX 2004-11-15

打赏
举报

xwfjw 2004-11-15

打赏
举报

victorycyz(中海) 的也是一種解決辦法，

AloneStarTan(孤星苍月)說的也對，有時候會有點麻煩。

期待 fzlong(修仙)的方法。

AloneStarTan 2004-11-15

打赏
举报

To fzlong(修仙)
這主意好象挺不錯的，你說的方法要怎樣寫呢

fzlong 2004-11-15

打赏
举报

是啊！但是你可以给你的class,添加一个方法，这个方法就是对你的class的属性，进行值传递，这样就好解决了！

AloneStarTan 2004-11-15

打赏
举报

有沒有更好的辦法？
如果一個一個屬性賦值過去，好象有些麻煩，且如果欄位多，得寫很多東西

victorycyz 2004-11-15

打赏
举报

with m_clsrollbackjcl
.属性1=clsjcl.属性1
.属性2=clsjcl.属性2
......
.属性n=clsjcl.属性n
end with

victorycyz 2004-11-15

打赏
举报

Private m_clsJCL As clsLRGJobChkList_JCL
Private m_clsRollBackJCL As clsLRGJobChkList_JCL

Public Function FormShow(ByRef clsJCL As clsLRGJobChkList_JCL, Optional ByRef blnSave As Boolean)
Set m_clsJCL = clsJCL
Set m_clsRollBackJCL = new clslrgjobchklist_jck
with m_clsrollbackjcl
.属性1=clsjcl.属性1
.属性1=clsjcl.属性1
......
.属性n=clsjcl.属性n
end with
End Function

xwfjw 2004-11-15