狂送100分(30)

[binbin2000]

怎样删除DataGrid中的一条记录,比如我要删除第三行记录,请写出代码,我很笨啊.

[csdngoodnight]

On Error Resume Next
DataGrid1.SetFocus
adoRS.Move 2 '实际记录行 - 1 （按数据库中记录的实际顺序）
adoRS.Delete

[csdngoodnight]

哦。写错了，是这样：
On Error Resume Next
DataGrid1.SetFocus
DataGrid1.Row = 2 '你要删除的行数目 - 1
adoRS.Delete

[csdngoodnight]

On Error Resume Next
DataGrid1.Row = 2 '你要删除的行数目 - 1
adoRS.Delete

[planetike]

关注

[sxs69]

rs.AbsolutePosition = 3
rs.Delete

[Lionking1027]

呵呵，大家说的都差不多了，我枪分先

[zmrok]

rs.AbsolutePosition = 3
rs.Delete

[Keown]

要看 datagrid 是否数据绑定
数组的数据绑定则更改绑定数组的第三行记录，然后
DataGrid.rebind
DataGrid.refresh
记录集绑定,如果记录集不允许更新则不可以更改DataGrid的数据,也是通过数据重新绑定更改页面上DataGrid的显示

[viena]

Dim rs As New ADODB.Recordset
Set rs.DataSource = DataGrid1.DataSource
rs.Move 2
rs.Delete
(需要ADO库引用)

[flyingscv]

?
allowdelete=true
选中第三行按del？

or?
rs.move 3
rs.delete

[viena]

rs.move 3是第四行记录，要删除第三行记录 :-)

[hzybc]

rs.open "select * from table where field='" & trim(datagrid1.text) & "'",cn,3,2
rs.delete
rs.update
rs.close
msgbox "deleted ok"