如何实现将在DataGrid控件中选中的一行记录，通过程序删除掉？

Question

for i=1 to datagrid1.columns.count-1
 text(i).text=datagrid1.colunms(i)
next
将当前记录给text
Private Sub Command1_Click()
DataGrid1.AllowDelete
End Sub
删除当前记录
还有将allowdelete的属性 true
详细可在vb的帮助文件查询"colum对象"关键字

Answer 1

不用判断，选中一行之后，与DataGrid邦定的记录集自动迁移。
private sub cmdDelete_Click()
Adodc1.Recordset.Delete
End Sub或者设置DataGrid的AllowDelete属性为true，可以在选定行后按DELETE键删除。