data_table.Rows.Add(0L, "未設定") For Each dbRow In resultDt.Rows Dim newRow As DataRow = data_table.NewRow() newRow("ID") = dbRow.Item(3) 'value1 newRow("String_name") = dbRow.Item(2).ToString() 'name1 data_table.Rows.Add(newRow) Next data_table.AcceptChanges()