VB中DataGrid删除选中行以及添加行的问题，数据库为access
题目如题。数据库为access
问题 1 为什么我的代码删除总是删除第一行呢 ？
Private Sub deletedata_Click()
If Adodc1.Recordset.EOF = False Then
K = MsgBox("真的要删除当前记录吗？", vbYesNo + vbQuestion, "警告")
If K = 6 Then '点击“是”
Adodc1.Recordset.Delete
Adodc1.Recordset.Update
Adodc1.Refresh
DataGrid1.Refresh
End If
Else
MsgBox "系统提示：所有记录已经删除。"
End If
End Sub
问题 2. 我现在有3个数据项的数据需要添加到数据库中，怎么操作呢 ？
[解决办法]
你删除的是当前记录，默认的当前记录是第一条记录，当然就删除第一条了
建议你改用sql语句来删除，比如你要删除哪一条记录，那么Delete * From TB Where FD='...'。一条语句把你要删除的都删除了
参阅：
参考这个，使用ADO对象编写程序
到这里面学习Delete语句
[解决办法]
你要指定的行 才能删这行
比如在VESFLEXGRID里有个ROWSEL被选中行
[解决办法]
Dim varBmk As Variant
For Each varBmk In DataGrid1.SelBookmarks
Adodc1.Recordset.Bookmark = varBmk
Adodc1.Recordset.Delete
Adodc1.Refresh
Next
[解决办法]
Adodc1.Recordset.Delete adAffectCurrent 有选项的 选择 当前行
