锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net2维数组 vb 二维数组

IT技术排序

VB.NET 二维数组问题根据你的语句，上下标是确定的，所以定义语句修改为：
Dim ary(UBound(temp), 1) As String '声明二维数组
如何在VB.NET中将二维数组赋值给listview控件啊，谢谢将二位数组转成DataTable，网上找的不知道成不成
public static DataTable ConvertToDataTable(string[,] arr)
{
DataTable dataSouce = new DataTable();
for (int i = 0; iarr.GetLength(1); i++)
{
DataColumn newColumn = new DataColumn(i.ToString(), arr[0, 0].GetType());
dataSouce.Columns.Add(newColumn);
}
for (int i = 0; iarr.GetLength(0); i++)
{
DataRow newRow = dataSouce.NewRow();
for (int j = 0; jarr.GetLength(1); j++)
{
newRow[j.ToString()] = arr[i, j];
}
dataSouce.Rows.Add(newRow);
}
return dataSouce;
}
VB.NET 2维数组排序排序和赋值问题窗体上添加3个标签，1个按钮，在按钮的单击事件里写代码 ， 如下：
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a(,) As Integer = {{5, 6}, {1, 3}, {8, 9}, {72, 1}, {63, 4}}
Dim Temp As Integer
Dim i As Integer
Dim j As Integer
Dim x As Integer
Dim y As Integer
'显示排序前的数据
Label1.Text = "排序前数据："vbCrLf
For i = 0 To 4
Label1.Text = Label1.Texta(i, 0)""a(i, 1)vbCrLf
Next
For i = 0 To 3
For j = i + 1 To 4
If a(i, 0)a(j, 0) Then
Temp = a(i, 0)
a(i, 0) = a(j, 0)
a(j, 0) = Temp
Temp = a(i, 1)
a(i, 1) = a(j, 1)
a(j, 1) = Temp
End If
Next
Next
'显示排序前的数据
Label2.Text = "排序后数据："vbCrLf
For i = 0 To 4
Label2.Text = Label2.Texta(i, 0)""a(i, 1)vbCrLf
Next
'把第3行元素赋予X,Y
x = a(2, 0)
y = a(2, 1)
'输出X,Y
Label3.Text = "X="xvbCrLf"Y="y
End Sub
VB.NET 二维数组 引用其中的一维OPCItemIDsData(j,其中一维）即可 。
如果前面方法有规定vb.net2维数组，不能用二维数组vb.net2维数组的格式，那么你可以自己定义一个一维数组，将二维数组的某一维度的全部数值赋值给这个数组，在引用这个数组vb.net2维数组：
dim OPCItemIDsDataBuf(x) as ...
for i = 1 to x
OPCItemIDsDataBuf(j）=OPCItemIDsData(j,其中一维）
next i
其中x是数组的最大下标
【vb.net2维数组 vb 二维数组】vb.net2维数组的介绍就聊到这里吧 ， 感谢你花时间阅读本站内容，更多关于vb 二维数组、vb.net2维数组的信息别忘了在本站进行查找喔 。

    推荐阅读


    上一篇：手机怎么修改无线路由器密码，手机修改无线路由器密码教程

    下一篇：直播运营助理不会电脑操作，直播运营助理发展前景怎么样