以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  我的代码错在哪里?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=31153)
--  作者：xfilemark
--  发布时间：2013/4/11 1:53:00
--  我的代码错在哪里?
Dim dr As DataRow
dr = DataTables("stuInfo").Find("id = \'"& Forms("登记窗口").controls("TextBox1").Value &"\'")  
If Forms("登记窗口").Opened Then
Forms("登记窗口").controls("TextBox2").Value = dr("name")
End If


上面这一段代码中 dr = DataTables("stuInfo").Find("id = \'"& Forms("登记窗口").controls("TextBox1").Value &"\'")   这一段出错，不知道错在哪里?

大概的意思是：将用户输入控件TextBox1的值与数据表stuInfo中id字段的值进行比较，如果相等，则将该行对应的name列的数据自动输入控件TextBox2中

麻烦各位大侠指点！
--  作者：blackzhu
--  发布时间：2013/4/11 7:50:00
--  
Dim dr As DataRow
dr = DataTables("stuInfo").Find("id = \'"& Forms("登记窗口").controls("TextBox1").Value &"\'")  
 if dr isnot nothing then   \'必加
If Forms("登记窗口").Opened Then
Forms("登记窗口").controls("TextBox2").Value = dr("name")
End If
end if
--  作者：XYT
--  发布时间：2013/4/11 8:36:00
--  
打错误信息帖出来
--  作者：唐尸三摆手
--  发布时间：2013/4/11 8:41:00
--  

\'看意图，楼主是想输入学生编号后，自动显示学生姓名

 

\'如果是这样的话，textbox1控件valuechanged事件直接写以下代码：

 

Dim txt As winform.textbox = e.form.controls("textbox2")
Dim dr As DataRow = DataTables("stuinfo").find("id = \'"& e.sender.value &"\'")
If dr IsNot Nothing Then
    txt.value = dr("name")
Else
    txt.value = Nothing
End If
--  作者：xfilemark
--  发布时间：2013/4/11 16:31:00
--  
哦，非常感谢！
--  作者：xfilemark
--  发布时间：2013/4/11 18:55:00
--  
非常感谢
--  作者：xfilemark
--  发布时间：2013/4/11 18:56:00
--  
非常感谢！