Hey All,
Kind of a series of anomalies here with one root source, I believe. I
have an editable, paging datagrid.
1.When one clicks "edit" textboxes open up on row x, HOWEVER, if one
clicks "next page" the textboxes remain no matter which page you are
on. No error messages are shown.
2.After editing data, when one clicks "update" the page refreshes, but
*no* new data is actually loaded into the db. No error messages are
given.
3.If there exists data within an editable textbox and you click "edit,"
the fields on the same row have extra space (blank, empty space)
inserted into them which generates errors when I click "update" unless
I go through and delete the spaces.
Posted is my Update SUB below. Any suggestions are very much
appreciated.
*************** ****
Sub MyDataGrid_Upda teCommand(Sende r As Object, E As
DataGridCommand EventArgs)
'Assign variables to columns
Dim voydoc As String = E.Item.Cells(2) .Text
Dim poe As String = E.Item.Cells(3) .Text
Dim poe_cnt As String = E.Item.Cells(4) .Text
Dim ll_cnt As String = E.Item.Cells(5) .Text
Dim assigned_to as String = CType(e.Item.Ce lls(6).Controls (0),
TextBox).Text
Dim assigned_dt as String = CType(e.Item.Ce lls(7).Controls (0),
TextBox).Text
Dim poe_recon_done as String = CType(e.Item.Ce lls(8).Controls (0),
TextBox).Text
Dim vdn_done as String = CType(e.Item.Ce lls(9).Controls (0),
TextBox).Text
Dim vdn_done_dt as String = CType(e.Item.Ce lls(10).Control s(0),
TextBox).Text
Dim final_appvl as String = CType(e.Item.Ce lls(11).Control s(0),
TextBox).Text
Dim final_appvl_dt as String = CType(e.Item.Ce lls(12).Control s(0),
TextBox).Text
Dim pod As String = E.Item.Cells(13 ).Text
Dim carrier_wv as String = CType(e.Item.Ce lls(14).Control s(0),
TextBox).Text
Dim notes as String = CType(e.Item.Ce lls(15).Control s(0), TextBox).Text
Dim objCommand As SqlCommand
Dim strSQLQuery As String
'Update command
strSQLQuery = "UPDATE [lla] " & _
"SET voydoc = N'" & voydoc.Trim & "', " & _
"poe = N'" & poe.Trim & "', " & _
"poe_cnt = '" & poe_cnt.Trim & "', " & _
"ll_cnt = '" & ll_cnt.Trim & "', " & _
"assigned_t o = N'" & Replace(assigne d_to.Trim, "'", "''") & "', " & _
"assigned_d t = '" & Replace(assigne d_dt.Trim, "'", "''") & "', " & _
"poe_recon_ done = '" & Replace(poe_rec on_done.Trim, "'", "''") & "', "
& _
"vdn_done = '" & Replace(vdn_don e.Trim, "'", "''") & "', " & _
"vdn_done_d t = '" & Replace(vdn_don e_dt.Trim, "'", "''") & "', " & _
"final_appv l = '" & Replace(final_a ppvl.Trim, "'", "''") & "', " & _
"final_appv l_dt = '" & Replace(final_a ppvl_dt.Trim, "'", "''") & "', "
& _
"pod = '" & pod.Trim & "', " & _
"carrier_web_va lidation = '" & Replace(carrier _wv.Trim, "'", "''") &
"', " & _
"notes = N'" & Replace(notes.T rim, "'", "''") & "' " & _
"WHERE ISNULL(voydoc,' ') = '" & voydoc.Trim & "' AND ISNULL(poe,'') =
'" & poe.Trim & "'"
MyConnection.Op en()
objCommand = New SqlCommand(strS QLQuery, MyConnection)
objCommand.Exec uteNonQuery()
MyConnection.Cl ose()
MyDataGrid.Edit ItemIndex = -1
MyDataGrid.Data Bind()
BindData()
End Sub
