请问VB中如何把一个数组直接赋给另一个数组？

[jiangsu19747]

比如 dim A() as integer, B() as integer
当A有了值后，怎么才能把A直接赋给B呢 ，我不想一个一个的循环赋值

另外还想问一下是否可以把一个记录集直接赋给另一个记录集？
dim RS1 AS new adodb.recordset
dim RS2 AS new adodb.recordset
可以直接 rs1=rs2吗？

[嗷嗷叫的老马]

数组可以直接赋值,不过目标数组必须是动态数组:

http://www.m5home.com/blog/article.asp?id=262

[白发程序猿]

数据集可以用clone方法

[of123]

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)

Dim bytes As Long
Dim intSrc(1 To 6000000) As Integer
Dim intDest(1 To 6000000) As Integer

bytes = (UBound(intSrc) - LBound(intSrc) + 1) * Len(intSrc(LBound(intSrc)))

CopyMemory intDest(LBound(intDest)), intSrc(LBound(intSrc)), bytes
End Sub

[xslqingfeng]

UP

[joy365leo]

thaknyou somuch

[joy365leo]

upup

[ndtafje]

gen jing

[lllsui]

o

[东方之珠]

只要获取数组的地址就可以了.

[东方之珠]

[Quote=引用 17 楼 of123 的回复:]
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)

Dim bytes As Long
Dim intSrc(1 To 6000000) As Integer
Dim intDest(1 To 6000000) As Integer

bytes = (UBound(intSrc) - LBound(intSrc) + 1) * Len(intSrc(LBound(intSrc)))

CopyMemory intDest(LBound(intDest)), intSrc(LBound(intSrc)), bytes
End Sub
[/Quote]

顶这个!

[shawls]

使用CopyMemory函数,将指向修改一下就可以。

[david201314]

ding

[舉杯邀明月]

对动态数组可以直接整体赋值。

[jiangsu19747]

谢谢大家的回复。这么多热心人，我还担心现在没什么人用VB了呢。前天另一公司老板跟我说事情，问我用什么编程，我知他们用C#，我说我们用VB呢，然后故意添了一句，WINFORM程序VB比C#快，生怕人家看不起。

[ltl164198]

数组是不可以赋值的,动态数组有是另外一回事,在c++里叫向量,已脱离了你的原意,如果非得到一的副本,同意上面的用 copymemery,但小数组不宜用之,消耗大

[m60a1]

WINFORM程序VB比C#快???


LZ试过？》

[jiangsu19747]

呵呵，没试过，看网上一篇贴子里这么说的

[terrywolf]

关注一下！

[三断笛]

[Quote=引用 38 楼 m60a1 的回复:]
WINFORM程序VB比C#快???


LZ试过？》
[/Quote]
VB比Java快

[XuNuoChengZai]

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)

Dim bytes As Long
Dim intSrc(1 To 6000000) As Integer
Dim intDest(1 To 6000000) As Integer

bytes = (UBound(intSrc) - LBound(intSrc) + 1) * Len(intSrc(LBound(intSrc)))

CopyMemory intDest(LBound(intDest)), intSrc(LBound(intSrc)), bytes
End Sub


顶这个，学习了谢谢高手们