database edit

[sa_2077]

براي edit ديتابيس كدهاي زير رو نوشتم ولي كار نمي كنند مشكل چيه؟

Dim colNum, rowNum As Integer
rowNum = DataGrid1.CurrentCell.RowNumber
colNum = DataGrid1.CurrentCell.ColumnNumber
Dim mytable As New DataTable("SickInfo")

Dim myrow As DataRow
Try
mytable.Rows(rowNum).BeginEdit()
mytable.Rows(rowNum)("Lname") = TxtFamily.Text
mytable.Rows(rowNum)("Fname") = TxtName.Text
mytable.Rows(rowNum)("ID") = TxtNumber.Text
mytable.Rows(rowNum).EndEdit()
mytable.Rows(rowNum).AcceptChanges()
mytable.AcceptChanges()
DataSet11.AcceptChanges()
Catch es As System.IndexOutOfRangeException
End Try

---------------------------------------------------------------

Private Sub EditTable()

( Dim dgt As DataGridTableStyle = DataGrid1.TableStyles(0
("Dim dgcol As DataGridColumnStyle = dgt.GridColumnStyles("Lname
(dgt.BeginEdit(dgcol, 1
(dgt.EndEdit(dgcol, 1, True
()DataSet11.AcceptChanges
End Sub