Vb6 如何在visual basic 6中从数据网格中删除选定行

请帮帮我。。我已经尝试将我的数据库调用到datagrid，但现在找不到从datagrid的选定行中删除数据的方法

从这里开始我的数据网格

Private Sub cmdTampil_Click()
AdoCupu.ConnectionString = Buka
AdoCupu.RecordSource = "Select * from vJadwalRehab Where jadwalrehab between '" & Format(dtDari, "yyyy/MM/dd") & "' and '" & Format(dtpSampai, "yyyy/MM/dd") & "'"
AdoCupu.Refresh
Set dgData.DataSource = AdoCupu
End Sub

我在“删除按钮”上尝试了这些方法，但仍然不起作用

Private Sub cmdHapus_Click()

1.method 'dgData.(1).index
    dgData.rows.RemoveAt (i)
'dgData.Delete

2.method      ' Dim index As Integer
       ' index = dgData.CurrentCell.RowIndex

3.method   ' delete the selected row
       ' dgData.rows.RemoveAt (index)
        'If Not dgData.CurrentRow.IsNewRow Then
        'dgData.rows.Remove (dgData.CurrentRow)
    'End If
End Sub

---

我试过这3种方法，但都不管用。

我找到了！只需从表n中删除索引号“主键”，数据行就消失了

CONN.BeginTrans
CONN.Execute "delete jadwalRehab where id='" & txtID & "'"
CONN.CommitTrans
ShowData
MsgBox "Data Jadwal Berhasil Dihapus!"

---

填写表格后，删除记录的简单方法是通过Adodc控件：

Private Sub cmdHapus_Click()
   Dim bm As Variant

   For Each bm In dgData.SelBookmarks
      AdoCupu.Recordset.Bookmark = bm
      AdoCupu.Recordset.Delete
   Next
End Sub

---

您能告诉我们您使用的是哪个数据网格吗？数据绑定网格控件？DataGrid控件？FlexGrid控件？网格控件？它只是属性名上的“DataGrid”，不管怎样我已经修复了它，但是谢谢你回复我的帖子..谢谢你的回复，但是我不能在vb6.0上使用“for each”为什么不呢？我想重点是循环的内容。设置书签并调用Delete。这比创建事务并在数据库中抛出SQL语句然后重新填充整个网格要容易得多。