Dim Txt As String = Forms("窗口2").Controls("TextBox1").ValueDim dr As DataRow = DataTables("表名").Find("列名='" & Txt & "'")If dr IsNot Nothing Then e.Form.Controls("Label1").text = dr("姓名")
……End If