怎么 定位datagrid1里的数据 并修改某一行的值（数据库不动)

如何 定位datagrid1里的数据 并修改某一行的值（数据库不动)
access+ado+datagrid

其实很简单 就是一张表已经查询出结果了
比如
datagrid里的内容：
。
。
。
北京
深圳
上海
。
。
。
广州
。
。
。

后面还有一个字段sr  是空白的（数据库里也是空白的)
现在我放一个TEXT
输入"北京"
指针就自动跳到北京那一行 然后把后面的sr 修改成"已扫描"
若输入 “广州”
也是进行同样的查询 并且修改后面的sr 修改成"已扫描"

如果输入的东西 datagrid里找不到
则提示“不存在”
这个我老是写不好代码啊，要么就是指针丢失 要么就是找到了也要报“不存在"
以下是我代码：

DataGrid1.Bookmark = 1


Do While Not Adodc1.Recordset.EOF
    If text1 = DataGrid1.Columns(1) Then
         DataGrid1.Columns(2) = "已录入"
         'MsgBox "zhaodaole"
Exit Do
End If
        DataGrid1.Bookmark = DataGrid1.Bookmark + 1
MsgBox "找不到"
Loop

并且修改了DataGrid1.Columns(2)也就是sr字段后 我发现数据库也跟着改了
我只要改DataGrid里显示的就行了，程序退出后 我希望数据库里SR字段还是空白的

请问怎么实现呢 
谢谢大家 datagrid 指针
[解决办法]
本帖最后由 bcrun 于 2013-05-27 12:18:24 编辑 有点错误，改一下

‘加载数据库
dim rs as new adodb.recordset

rs.open sql,cnn
set rs.activeconnection=nothing '让rs断开和数据库的联系

hen set datagrid.datasource=rs

--------------------
text1输入
sub text1_changed
  dim rs as adodb.recordset
  dim rs1 as adodb.recordset
set rs1=datagrid1.datasource
if rs is nothing then exit sub
set rs1=rs.clone

rs1.find "城市="""&text1 & """,,,adbookmarkfirst
if not rs1.eof then
rs1("sr")="已扫描"
end if
end sub

 

查看更多 下一篇