如何在VB.NET中將二維數(shù)組賦值給listview控件啊，謝謝

將二位數(shù)組轉(zhuǎn)成DataTable，網(wǎng)上找的不知道成不成

創(chuàng)新互聯(lián)服務(wù)項目包括潁上網(wǎng)站建設(shè)、潁上網(wǎng)站制作、潁上網(wǎng)頁制作以及潁上網(wǎng)絡(luò)營銷策劃等。多年來，我們專注于互聯(lián)網(wǎng)行業(yè)，利用自身積累的技術(shù)優(yōu)勢、行業(yè)經(jīng)驗、深度合作伙伴關(guān)系等，向廣大中小型企業(yè)、政府機構(gòu)等提供互聯(lián)網(wǎng)行業(yè)的解決方案，潁上網(wǎng)站推廣取得了明顯的社會效益與經(jīng)濟效益。目前，我們服務(wù)的客戶以成都為中心已經(jīng)輻射到潁上省份的部分城市，未來相信會繼續(xù)擴大服務(wù)區(qū)域并繼續(xù)獲得客戶的支持與信任！

public static DataTable ConvertToDataTable(string[,] arr)

{

DataTable dataSouce = new DataTable();

for (int i = 0; i arr.GetLength(1); i++)

{

DataColumn newColumn = new DataColumn(i.ToString(), arr[0, 0].GetType());

dataSouce.Columns.Add(newColumn);

}

for (int i = 0; i arr.GetLength(0); i++)

{

DataRow newRow = dataSouce.NewRow();

for (int j = 0; j arr.GetLength(1); j++)

{

newRow[j.ToString()] = arr[i, j];

}

dataSouce.Rows.Add(newRow);

}

return dataSouce;

}

二維數(shù)組排序 vb.net

Dim i As Integer, j As Integer, X As Single, Y As Single, M As Single

i = L

j = R

'找出數(shù)組的中點

M = MyArray((L + R) / 2, 0)

While (i = j)

'找出比中點大的數(shù)

While (MyArray(i, 0) M And i R)

i = i + 1

Wend

'找出比中點小的數(shù)

While (M MyArray(j, 0) And j L)

j = j - 1

Wend

'互換這兩個數(shù)

If (i = j) Then

X = MyArray(i, 0)

Y = MyArray(i, 1)

MyArray(i, 0) = MyArray(j, 0)

MyArray(i, 1) = MyArray(j, 1)

MyArray(j, 0) = X

MyArray(j, 1) = Y

i = i + 1

j = j - 1

End If

Wend

'未完成時遞歸調(diào)用

If (L j) Then Call QuickSort(MyArray(), L, j)

If (i R) Then Call QuickSort(MyArray(), i, R)

End Sub

VB.net中如何將 二維數(shù)組 插入 excel表格

這個比較簡單

假如二維數(shù)組是str(row,col)

假設(shè)Workbook是Excel的工作簿對象

Workbook.worksheets(1).range("A2").Resize(row+1, col+1).Value = str

其中關(guān)鍵的是Excel的Resize方法能快速的插入二維數(shù)組

VB.NET讀取固定格式TXT文件數(shù)據(jù)為二維數(shù)組的方法

Dim rootlist() As String

Dim data(0, 0) As String

Dim tmp() As String

Dim listLengh As Int32

Dim I As Integer, II As Integer

rootlist = Split(IO.File.OpenText("C:/001.txt").ReadToEnd, vbCrLf)

listLengh = UBound(rootlist)

ReDim data(listLengh, 0)

For I = 0 To listLengh

tmp = Split(rootlist(I), "，")

ReDim Preserve data(listLengh, UBound(tmp))

For II = 0 To UBound(tmp)

data(I, II) = tmp(II)

Next

Next

For I = 0 To 2

For II = 0 To 2

MsgBox(data(I, II))

Next

Next

VB.NET 二維數(shù)組問題

根據(jù)你的語句，上下標是確定的，所以定義語句修改為：

Dim ary(UBound(temp), 1) As String '聲明二維數(shù)組

分享標題：vb.net二維數(shù)組列表 VB定義二維數(shù)組
本文URL：http://www.sd-ha.com/article38/docjisp.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站導(dǎo)航、品牌網(wǎng)站建設(shè)、動態(tài)網(wǎng)站、面包屑導(dǎo)航、云服務(wù)器、電子商務(wù)

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)