主题：[求助]

在窗口combobox控件中输入编号，让("雷鸟成绩记录表")编号相同的行为当前行，以便于编辑该行。

以下代码错在何处？请专家指点！

Dim bh As WinForm.ComboBox = e.Form.Controls("编号")
Dim dr As DataRow

dr = DataTables("雷鸟成绩记录表").Find("编号 = '" & bh.Text & "'",True)
If dr IsNot Nothing Then
    Dim wz As Integer = Tables("雷鸟成绩记录表").FindRow(dr)
    If wz >= 0 Then
        Tables("雷鸟成绩记录表").Position = wz
    End If
End If