主题：求救一个代码

Dim dr As DataRow
Dim txt As String = e.Form.Controls("ComboBox9").Text
dr = DataTables("表a").Find("[编号] = '" & txt & "'")
If dr IsNot Nothing Then
       Dim wz As Integer = Tables("表a").FindRow(dr)
       If wz >= 0 Then
            Tables("表a").Position = wz
       End If
End If