以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]代码出错，帮改正一下  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=19845)
--  作者：曈飞双燕
--  发布时间：2012/5/23 11:15:00
--  [求助]代码出错，帮改正一下

在窗口中单击按键后执行的代码，出错，请帮修改，谢谢

 

Dim dr As DataRow
Dim C2 As WinForm.TextBox
C2 = e.Form.Controls("TextBox1")

dr = DataTables("注册内容").Find("用户名=e.Form.Controls("TextBox1") ") \'找用户名为文本框TextBox1的用户

If dr IsNot Nothing Then \'如果找到的话
    dr("真实姓名") = "一"


End If
--  作者：狐狸爸爸
--  发布时间：2012/5/23 11:32:00
--  

Dim dr As DataRow
Dim C2 As WinForm.TextBox
C2 = e.Form.Controls("TextBox1")

dr = DataTables("注册内容").Find("用户名=\'" & c2.Value & "\'")

If dr IsNot Nothing Then
     dr("真实姓名") = "一"

End If

 

建议看看：

http://www.foxtable.com/help/topics/1284.htm