锐客网

  1. 首页 > 生活百科 > it技术 > >

vb.net复制数组数据 vbs 复制

IT技术数组

vb.net 将DataGridView1数据复制到另一界面的DataGridView2中执行存储过程调用vb.net复制数组数据的是ADO.net
【vb.net复制数组数据 vbs 复制】返回的结果集是一个DataSet对象 。如果不是vb.net复制数组数据，请检查下你的数据连接库，改下代码 。
如果存储过程返回的是两个结果集，那么返回的DataSet就有两个DataTable对象 。
调用的时候 只需要
DataSet ds=dbHelper.RunProcedure("Web_pGetDataPager");//假设的返回dataset对象的执行存储过程的方法 。
ds.Tables[0] 就是第一个结果集
ds.Tables[1] 就是第二个结果集
//弱绑定第二个结果集就是下面这样
Datagridview.DataSource=ds.Table[1];
Datagridview.DataBind();
请教VB一个数组复制的问题如果你用的是VB6.0的话，那有一个相当简单的方法来完成数组复制操作 。即使用VB6.0中提供的动态数组增强功能 。
它的使用也很简单 ， 首先是声明数组，然后是直接赋值 。例如对于你上面的提供的代码，改为使用动态数组增强功能的话，代码如下：
Dim a() As Single'注意a数组必须是动态数组，如写为Dim a(1000000) AsSingle则错误
Dim b(1000000) As Single
Dim i As Integer
for i=0 to 999999
a(i)=b(i)
next i
a=b'直接赋值，够简单吧
必须注意的是 ， 这里作为目的数组的a不能为固定数组（即在声明时就指定了大小的数组），否则会引发错误 。
vba中：如何将一个数组的一串元素复制给另外一个数组vb里面没有这样的函数，CopyMemory是可以的，看看下面的实例
vb6在我机子上用下面数据测试 时间差20倍左右，十万个数据就可以看出来了，我用的是一百万
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDst As Any, pSrc As Any, ByVal ByteLen As Long)
Private Declare Function GetTickCount Lib "kernel32" () As Long
Private Sub Command1_Click()
Dim arrA() As Long
Dim arrB() As Long
ReDim arrA(1 To 1000000)
ReDim arrB(2 To 1000000)
For i = 1 To 1000000
arrA(i) = i
Next i
'取得开机至今的毫秒数
T = GetTickCount
For i = 2 To 1000000
arrB(i) = arrA(i)
Next
MsgBox "用时"Str$(GetTickCount - T)"毫秒"
'我的机子用时200毫秒左右，机子老古董了比较慢不要见笑
ReDim arrB(2 To 1000000) '注意这行已经清空了上面的赋值
T = GetTickCount
CopyMemory arrB(2), arrA(2), LenB(arrA(1)) * 999999
MsgBox "用时"Str$(GetTickCount - T)"毫秒"
'我的机子用时10毫秒左右
'看看最后一个数据对不对
MsgBox arrB(1000000)
End Sub
VB6 使用copymemory直接复制数组CopyMemory()函数功能描述：将一块内存的数据从一个位置复制到另一个位置 。
函数原型
VOID CopyMemory(PVOID Destination,CONST VOID *Source,SIZE_T Length);
参数
Destination要复制内存块的目的地址 。
Source要复制内存块的源地址 。
Length指定要复制内存块的大?。?单位为字节
返回值该函数为VOID型，没有返回值 。
备注如果目的块与源块有交叠，结果是不可预料的，使用MoveMemory可以解决这个问题 。
注意一点CopyMemory和MoveMemory不过是RtlMoveMemory的一个别名而已
示例代码段
char szname[50]="阵雨";
char szfriend[]="polelf,oo";
CopyMemory(szname 4,szfriend,10);
OutputDebugString(szname);//输出结果为"阵雨polelf,oo"
vb6的声明：
Private Declare Sub CopyMemory Lib "kernel32" Alias"RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length AsLong)
VB.NET 如何将ListBox列表框的所有项复制到一个数组中，便于排序？谢谢解答Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim ListboxTotalItem As Integer = ListBox1.Items.Count - 1
Dim a(ListboxTotalItem) As String
For i As Integer = 0 To ListboxTotalItem
a(i) = i
Next
Label1.Text = a(5)
End Sub
End Class
-------------
一个Form1
一个Label1
一个Listbox1
一个Button1
在Listbox1中加入10个值
-------------
只是一个演示，其他的要靠自己 。
关于vb.net复制数组数据和vbs 复制的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站 。

    推荐阅读


    上一篇：怎么用手机设置邮箱，怎样用手机设置邮箱

    下一篇：怎么学会excel公式，excel公式教程视频全集自学