VB.Net爲數據表賦值

Question

嗨，我有字符串和整數，一些值分配給。現在我需要閱讀的字符串和整數值，並將它們分配給我所使用VB.Net創建的數據表..

If dt.Rows.Count > 0 Then 
For n As Integer = 0 To dt.Rows.Count - 1 
EmployeeNo = (dt.Rows(n)(0)) 
EmpName = (dt.Rows(n)(1)).ToString 
Commission = CDbl(dt.Rows(n)(2)) 
'I need to read one by one and assign the [EmployeeNo,EmpName,Commission] 
'to the dataset DtEmployee in which Employee is the table and EmpNo, EmpName, Commission 'are the coloumns.. 
Next 
End If 

請幫我在這..

Answer 1

試試這個傾倒整個表到數據表：

var connectionString = " Provider=Microsoft.ACE.OLEDB.12.0;Data Source=c:\file.xlsx;Extended Properties="Excel 12.0 Xml;HDR=YES;IMEX=1";" 
     var sheetName = "Sheet1"; 

     using (var con = new OleDbConnection(connectionString)) 
     { 
      con.Open(); 

      var table = new DataTable(sheetName); 
      var query = "SELECT * FROM [" + sheetName + "]"; 
      OleDbDataAdapter adapter = new OleDbDataAdapter(query, con); 
      adapter.Fill(table); 
      return table; 
     } 

編輯：根據更新的問題

If dt.Rows.Count > 0 Then 
For n As Integer = 0 To dt.Rows.Count - 1 
EmployeeNo = (dt.Rows(n)(0)) 
EmpName = (dt.Rows(n)(1)).ToString 
Commission = CDbl(dt.Rows(n)(2)) 
'I need to read one by one and assign the [EmployeeNo,EmpName,Commission] 
'to the dataset DtEmployee in which Employee is the table and EmpNo, EmpName, Commission 'are the coloumns.. 

Dim dataRow As DataRow = DtEmployee.Tables("Employee").AsEnumerable().Where(Function(row) row.Field(Of String)("EmpNo") = EmployeeNo).SingleOrDefault() 
If dataRow IsNot Nothing Then 

//Set your DataRow 
dataRow("EmpName") = EmpName 
dataRow("Commission ") = Commission 
DtEmployee.AcceptChanges(); 
End If 

Next 
End If 

查找從划船DtEmployee表和更新的一個或如果要添加新行，然後不找行，只要創建新行與設定值，並加入到DtEmployee

DataRow dataRow = DtEmployee.Tables("Employee").NewRow() 
//Set your DataRow 
dataRow("EmpName") = EmpName 
dataRow("Commission ") = Commission 
DtEmployee.Tables("Employee").Rows.Add(dataRow) 

希望這有助於..