主题：[求助]代码出错，帮改正一下

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