Private Sub del_record()
Dim i As Integer = DataGridView1.Rows.Count
For i = 0 To DataGridView1.Rows.Count - 1
If DataGridView1.Rows(i).Selected Then
'MessageBox.Show(DataGridView1.Rows(i).Cells(1).Value)
Del_Record_DataBase(DataGridView1.Rows(i).Cells(0).Value)
i = DataGridView1.Rows.Count + 1
End If
Next i
End Sub
Private Sub Del_Record_DataBase(ByVal id As String)
Dim myConn As OleDbConnection = New OleDbConnection(strCon)
myConn.Open()
Dim strDele As String = "DELETE FROM demo WHERE xh= " + id.Trim() + ""
Dim myCommand As OleDbCommand = New OleDbCommand(strDele, myConn)
'从数据库中删除指定记录
myCommand.ExecuteNonQuery()
myConn.Close()
'更新datagridview
bind_data()
End Sub
红色部分,我读的意思是 删除选择行的 数据,
换成 c1flexgrid 对应的删除一行数据 该怎么写呢? |