【求助】如何实现一个文本框扫描然后多个表查找数据 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

If e.keycode = 13 Then
    e.Sender.Select
    e.cancel = True
    Dim te1 As WinForm.TextBox = e.Form.Controls("TextBox1")
    Dim ab As String = te1.text
    Dim dr As DataRow
    Dim Filter As String
    Filter =" [加密字符] ='" & ab & "'"
    dr = DataTables("入库明细").sqlFind(Filter)


    If dr IsNot Nothing Then '如果找到
        Tables("卷宗入库").Filter= "[卷宗编号] = '" & dr("卷宗编号") & "' "
    Else
        If dr Is Nothing Then
            dr = DataTables("款物明细").sqlFind(Filter)
            If dr IsNot Nothing Then '如果找到
                Tables("涉案款物").Filter= "[案件编号] = '" & dr("案件编号") & "' "
            Else
                MessageBox.Show("当前二维码无数据记录,请核查是否为正确二维码!")
                Return
            End If
        End If
    End If
    e.Sender.text = ""
End If

主题：【求助】如何实现一个文本框扫描然后多个表查找数据