这段代码有什么问题？

sun_ocean

我建立了两个表，第一个表中有两列（证券代码和证券名称），第二个表是关于某个证券的一些财务数据。
我在第二个表中也有证券代码和证券名称这两列，而且证券名称是组合框。我用窗体向导建立了一个窗体，把第二个表中所有的列都放上去。我希望当我在窗体上选择证券名称时，证券代码这里会自动跳出相应的代码。所以编写了下面这段代码来实现。可是，系统毫无反应。能否请高手看看，问题出在哪里？

谢谢！

Private Sub 证券名称_AfterUpdate()
    Dim rs As adodb.Recordset
    Set rs = New adodb.Recordset
    rs.Open "证券代码", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
    Do While Not rs.EOF
        If rs.Fields("证券名称") <> Me.证券名称 Then
            rs.MoveNext
        Else
            Me.证券代码 = rs.Fields("证券代码")
            Exit Sub
        End If
    Loop
End Sub

[ 本帖最后由 sun_ocean 于 2008-9-23 20:47 编辑 ]

tz-chf

Form.Refresh作什么?form又是什么?

代码写倒了,应该是找到了,...退出,没找到就正常运行下去.

kangking

这段代码本身看不出有什么问题，要看你的例子。

另外，没有必要有DO循环的，用FINDFIRST方法比较好。

sun_ocean

谢谢楼上的回复。form.refresh是后来加的，原来没有加的时候也一样不行。改成下面这样子，还是不行。
  
  Dim rs As adodb.Recordset
    Set rs = New adodb.Recordset
    rs.Open "证券代码", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
    Do While Not rs.EOF
        If rs.Fields("证券名称") =Me.证券名称 Then
            Me.证券代码 = rs.Fields("证券代码")
            Exit Sub
        Else
            rs.MoveNext
        End If
    Loop

Henry D. Sy

1. 这种功能应该不需要什么代码，就能完成
2. 应该是输入证券代码就能自动显示证券名称，而不是输入证券名称就能显示代码
   因为，名称有可能存在相同的。