datagrid中如何删除数据？？？

[snow66]

用户在datagrid中选择了一条记录，执行删除操作，通过DELETE语句将数据库中的相关记录删除，然后执行dataset1.clear，dataadapt.fill，提示索引数组超界。
希望，各位不吝赐教！

[snow66]

多谢 latahu,9456；我的代码如下，麻烦看一下，有什么问题。
Try
Dim intNum As Integer = dgrdProd.CurrentRowIndex
Dim strDMval As String = Trim(oDSet.Tables(0).Rows(intNum).Item(0))
Dim strInfo As String = "当前记录（产品代码为：" & strDMval & "）将被删除且不可恢复，是否继续？"
Dim strTitle As String = "确认"
Dim intRetu As Integer = MessageBox.Show(strInfo, strTitle, MessageBoxButtons.YesNo, _
MessageBoxIcon.Question)
If intRetu = DialogResult.Yes Then
Dim strDeleSQL As String = "DELETE * FROM ProdInfo where CPDM='" & strDMval & "'"
Dim oConn As OleDbConnection = New OleDbConnection(strConn)
oConn.Open()
Dim oCMD As OleDbCommand = New OleDbCommand(strDeleSQL, oConn)
oCMD.ExecuteNonQuery()
oCMD.Dispose()
Dim oAdapt As OleDbDataAdapter = New OleDbDataAdapter(strSele, oConn)
oDSet.Clear()
oAdapt.Fill(oDSet, "Product")
oConn.Close()
oAdapt.Dispose()
oConn.Dispose()
Else
Exit Sub
End If
Catch err As Exception
MessageBox.Show(err.Message, "错误", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try

[latahu]

dataset.clear好像不好用，你可以在最开始的地方用dataset ds＝new dataset（）这样肯定能清空

[9456]

用delete语句删除
再刷新数据源
datagrid.datasource=mytable

[vbvc]

up

[jnhjone]

up

[slowlywerot]

datagrid.datasource=mytable
不会自动刷新数据源

[gameprogam]

删除以后再重新定位当前行，DataGrid.CurrentRowIndex=DataSet.Tables("Products").Rows.Count-1

[snow66]

多谢各位，OK了。
方法就是“无限回忆”所说的。