十年網站開發(fā)經驗 + 多家企業(yè)客戶 + 靠譜的建站團隊
量身定制 + 運營維護+專業(yè)推廣+無憂售后,網站問題一站解決
根據你的語句,上下標是確定的,所以定義語句修改為:
創(chuàng)新互聯公司專注于銀海企業(yè)網站建設,成都響應式網站建設公司,商城網站定制開發(fā)。銀海網站建設公司,為銀海等地區(qū)提供建站服務。全流程按需網站制作,專業(yè)設計,全程項目跟蹤,創(chuàng)新互聯公司專業(yè)和態(tài)度為您提供的服務
Dim ary(UBound(temp), 1) As String '聲明二維數組
將二位數組轉成DataTable,網上找的不知道成不成
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;
}
將二位數組轉成DataTable,網上找的不知道成不成
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;
}
for i =0 to ...
for j =0 to ...
keyarray(i,j)=
next
next
雙重循環(huán),賦值和讀取一樣
OPCItemIDsData(j,其中一維)即可。
如果前面方法有規(guī)定,不能用二維數組的格式,那么你可以自己定義一個一維數組,將二維數組的某一維度的全部數值賦值給這個數組,在引用這個數組:
dim OPCItemIDsDataBuf(x) as ...
for i = 1 to x
OPCItemIDsDataBuf(j)=OPCItemIDsData(j,其中一維)
next i
其中x是數組的最大下標
這個比較簡單
假如二維數組是str(row,col)
假設Workbook是Excel的工作簿對象
Workbook.worksheets(1).range("A2").Resize(row+1, col+1).Value = str
其中關鍵的是Excel的Resize方法能快速的插入二維數組