Private Sub Create_VTableSell() Dim vRow As System.Data.DataRow Dim i As Integer VTablepenjualan = New DataTable VTablepenjualan.Columns.Add("Name_Items", GetType(String)) VTablepenjualan.Columns.Add("Qty", GetType(Integer)) VTablepenjualan.Columns.Add("Price", GetType(Double)) VTablepenjualan.Columns.Add("Disc%", GetType(Double)) VTablepenjualan.Columns.Add("Sub_Total", GetType(Double)) VTablepenjualan.Columns.Add("Mode", GetType(String)) 'Try For i = 0 To DataGridView1.Rows.Count - 0 'If IsDBNull(DataGridView1.Rows) Then Exit Sub vRow = VTableSell.NewRow vRow.Item(0) = TextBox4.Text vRow.Item(1) = TextBox5.Text vRow.Item(2) = TextBox6.Text vRow.Item(3) = TextBox7.Text vRow.Item(4) = TextBox5.Text * TextBox6.Text vRow.Item(5) = ComboBox1.Text VTableSell.Rows.Add(vRow) Next DataGridView1.Refresh() 'Catch ex As Exception 'End Try End Sub
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)