DataTable，並DataGridView的細胞計算

Question

這是我的初始代碼，

Private Sub Create_vTable() 
    Dim i,j As Integer 
    Dim q, PV, YP, MW, id As Double 

    q = TextBox1.Text 
    MW = TextBox2.Text 
    PV = TextBox3.Text 
    YP = TextBox4.Text 

    vTable = New DataTable 
    vTable.Columns.Add("Name", GetType(String)) 
    vTable.Columns.Add("Len", GetType(Double)) 
    vTable.Columns.Add("ID", GetType(Double)) 
    vTable.Columns.Add("OD", GetType(Double)) 
    vTable.Columns.Add("Totlen", GetType(Double)) 
    vTable.Columns.Add("Vel", GetType(Double)) 

    id = DGV6.CurrentRow.Cells(2).Value 

    For i = 0 To DGV6.Rows.Count - 2 
     vRow = vTable.NewRow 
     vRow.Item(5) = (q/(2.448 * (id)^2)) 
     For j = 0 To DGV6.Columns.Count - 1 
      vRow.Item(j) = DGV.Rows(i).Cells(j).Value.ToString 

     Next 
     vTable.Rows.Add(vRow) 
    Next 

    Catch ex As Exception 

    End Try 

End Sub 

我在DGV6和文本數據，我喜歡做在數據表中第5項的每個小區，但試驗後的計算，結果顯示只有一個計算整列沒有跟隨每個單元格，任何人都可以提供幫助，請提前致謝

Answer 1

您只能從DataGridView中的一行中獲取值爲id的值。你必須得到它的值在每次循環迭代：

For i = 0 To DGV6.Rows.Count - 2 
    vRow = vTable.NewRow 
    id = DGV.Rows(i).Cells(2).Value 
    vRow.Item(5) = (q/(2.448 * (id)^2)) 
    For j = 0 To DGV6.Columns.Count - 1 
     vRow.Item(j) = DGV.Rows(i).Cells(j).Value.ToString 

    Next 
    vTable.Rows.Add(vRow) 
Next