Question

VB如何删除DataGrid中的某条记录

在DataGrid单击某条记录弹出删除窗体，单击删除按钮老删除第一条，不能删除需要删除那条，请问代码怎样写？

Answer 1

给你个程序 看了你就知道怎么做了

msg = MsgBox("确认删除书号为" & res.Fields(0) & "的记录息么", vbYesNo, "提示")
If msg = vbYes Then
    If res.EOF = False And res.BOF = False Then
    res.Delete adAffectCurrent  '删除当前指向的记录
    End If
End If

追问

我的要求是双击DataGrid中的某条记录，弹出删除窗体显示的是我单击的那一条信息，再单击删除窗体上的删除按钮，就删除了我双击那条信息，请教如何用循环固定要删除那条记录?

追答

是不是这个意思  这样设计感觉怪怪的

追问

谢谢你耐心的回答我，非常感激，我是用这种方式传值给删除窗体的。
Private Sub DataGrid1_dblClick()
frmfpxg.Text0.Text = DataGrid1.Columns(0).Value
frmfpxg.Show
End Sub
下面是删除窗体的代码，请指正
rs.Delete
rs.MoveNext
Call disprecord

追答

我按你写的 把我前面发你的那个程序Form2.Text1.Text = res.Fields(0) 改成你想要的Form2.Text1.Text = DataGrid1.Columns(0).Value 删除时还是rs.Delete 完全可以运行啊

Answer 2

首先显示表数据到datagrid中
showtabletodt "select top 10 * from a ", Adodc1, DataGrid1

删除第三条记录
Adodc1.Recordset.Move (3)
Adodc1.Recordset.Delete
Adodc1.Refresh
DataGrid1.Refresh