hi
my system is require user to key in data in textbox (above) and then click button to insert values into gridview (below).but i dont know where is the problem.i tried to insert textbox values into gridview..but it failed.
maybe someone can guide me from the first step to display the empty gridview, then insert values to gridview and finally to edit the values (values display back to textbox to update)..please help me
thanks in advance
musiw.
my code:
'display empty gridview
Protected Sub Bind()
Dim row As Integer = 4
Dim dt As New DataTable()
Dim dr As DataRow = Nothing
'dt.Columns.Add(New DataColumn("Bil", GetType(String)))
dt.Columns.Add(New DataColumn("Col1", GetType(String)))
dt.Columns.Add(New DataColumn("Col2", GetType(String)))
dt.Columns.Add(New DataColumn("Col3", GetType(String)))
dt.Columns.Add(New DataColumn("Col4", GetType(String)))
dt.Columns.Add(New DataColumn("Col5", GetType(String)))
dt.Columns.Add(New DataColumn("Col6", GetType(String)))
dt.Columns.Add(New DataColumn("Col7", GetType(String)))
dt.Columns.Add(New DataColumn("Col8", GetType(String)))
dt.Columns.Add(New DataColumn("Col9", GetType(String)))
dt.Columns.Add(New DataColumn("Col10", GetType(String)))
dt.Columns.Add(New DataColumn("Col11", GetType(String)))
dt.Columns.Add(New DataColumn("Col12", GetType(String)))
dt.Columns.Add(New DataColumn("Col13", GetType(String)))
dt.Columns.Add(New DataColumn("Col14", GetType(String)))
For i As Integer = 0 To row - 1
dr = dt.NewRow()
'dr("Bil") = i + 1
dr("Col1") = String.Empty
dr("Col2") = String.Empty
dr("Col3") = String.Empty
dr("Col4") = String.Empty
dr("Col5") = String.Empty
dr("Col6") = String.Empty
dr("Col7") = String.Empty
dr("Col8") = String.Empty
dr("Col9") = String.Empty
dr("Col10") = String.Empty
dr("Col11") = String.Empty
dr("Col12") = String.Empty
dr("Col13") = String.Empty
dr("Col14") = String.Empty
dt.Rows.Add(dr)
Next
gridentry.DataSource = dt
gridentry.DataBind()
End Sub
'put textbox value to gridview
Protected Sub tambah_Click(ByVal sender As Object, ByVal e As EventArgs)
Dim i As Integer = 0
Dim dt As New DataTable()
Dim dr As DataRow = dt.NewRow()
dr = dt.NewRow()
'dr("Bil") = i + 1
dr("Tarikh") = tarikh.Text
dr("Depoh") = depohlist.SelectedValue
dr("Stokereta") = ddl_stokereta.SelectedItem.Text
dr("No Daftar Kenderaan") = nodaftar.Text
dr("No Siri") = nosiri.Text
dr("Jenis Roda") = ddl_jenisroda.SelectedValue
dr("Saiz Roda") = saizroda.Text
dr("Flange") = flange.Text
dr("Hollow") = hollow.Text
dr("Tindakan") = ddl_tindakan.SelectedValue
dr("Skid") = skid.Checked
dr("Catatan") = catatan.Text
'Dim row As Integer = gridentry.Rows.Count - 1
'gridentry.Rows(row).Cells(4).Text = Convert.ToString(nosiri.Text)
'gridentry.Rows(row).Cells(6).Text = Convert.ToString(saizroda.Text)
'dataGridView1.Rows(row).Cells(2).Value = Convert.ToString(TextBox3.Text)
'dataGridView1.Rows(row).Cells(3).Value = Convert.ToString(TextBox4.Text)
dt.Rows.Add(dr)
gridentry.DataSource = dt
gridentry.DataBind()
End Sub
