datagrid 选中行问题

[becarefulsen]

我想在datagrid 中选中某一行、、之后删除、、但每次删除的都是第一行。。请问原因。。还有就是我不想在窗口可以修改数据。。但现在可以修改。。。我应该怎么修改属性呢、？？

Private Sub Command3_Click() 'delete
Dim mrc1 As ADODB.Recordset
txt1sql = "select * from oper"
Set mrc1 = exesql(txt1sql)
If MsgBox("真的要删除[" + Trim(mrc1.Fields("级别")) + "]吗？", vbYesNo, "信息提示") = vbYes Then
mrc1.Delete
recs = recs - 1

Call encomm
Unload Me
End If
End Sub

[孤独剑_LPZ]

看我的例子便知
http://download.csdn.net/source/1425896

[windyhero1983]

建议你直接删除数据库。
只要将记录集设置成只读就能够满足你不能修改的要求

[becarefulsen]

直接删除数据库？？什么意思。。不能修改的问题已经解决。。。。但现在又遇到一个问题。。我在表里加了一个编号。。用于选中删除选中行。。但问题是。。当我删除了一行后。。编号不能自动更新。。。

Private Sub Command3_Click() 'delete
Dim mrc1 As ADODB.Recordset
txt1sql = "select * from oper where 自动编号= '" & Trim(DataGrid1.Bookmark) & "'"
Set mrc1 = exesql(txt1sql)
If MsgBox("真的要删除[" + Trim(mrc1.Fields("自动编号")) + "]吗？", vbYesNo, "信息提示") = vbYes Then
mrc1.Delete

recs = recs - 1
Call encomm
Unload Me
End If
End Sub

[becarefulsen]

如果我想删除一行数据后。。把自动编号列整列删除。。再从新建立。。那又该怎么做呢？？

[帝企鹅已被占用]

[Quote=引用 4 楼 becarefulsen 的回复:]
如果我想删除一行数据后。。把自动编号列整列删除。。再从新建立。。那又该怎么做呢？？
[/Quote]
什么目的？