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

jiangsu19747 2009-07-02 11:05:51

加精

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

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

...全文

6454 42 打赏收藏转发到动态举报

写回复

用AI写文章

42 条回复

切换为时间正序

请发表友善的回复…

发表回复

XuNuoChengZai 2012-07-23

打赏
举报

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

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

三断笛 2009-12-22

打赏
举报

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

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

terrywolf 2009-07-05

打赏
举报

关注一下！

jiangsu19747 2009-07-04

打赏
举报

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

m60a1 2009-07-04

打赏
举报

WINFORM程序VB比C#快???

LZ试过？》

ltl164198 2009-07-04

打赏
举报

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

jiangsu19747 2009-07-04

打赏
举报

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

舉杯邀明月 2009-07-03

打赏
举报

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

david201314 2009-07-03

打赏
举报

ding

shawls 2009-07-03

打赏
举报

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

东方之珠 2009-07-03

打赏
举报

[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]

顶这个!

东方之珠 2009-07-03