- 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=29009)
-- 发布时间：2013/2/25 18:45:00
-- [求助]请教，我这段代码什么错误？
我在“保存”按钮加上这段代码，提示错误，请教高手指点如何更正？谢谢
代码：
With e.form
If .Controls("TextBox1").Value Is Nothing Then
MessageBox.Show("速记内容不能为空!","提示")
Return
Else
Dim dr As Row
dr("速记内容") = .Controls("TextBox1").Value
End If
End With
错误提示：
此主题相关图片如下：未命名.jpg
[此贴子已经被作者于2013-2-25 18:45:33编辑过]
-- 发布时间：2013/2/25 18:55:00
--
问题出在这里：
Dim dr As Row
dr("速记内容") = .Controls("TextBox1").Value
是不是应该改为：
Dim dr As Row = Tables(“表名”).Current
dr("速记内容") = .Controls("TextBox1").Value
-- 发布时间：2013/2/25 19:06:00
--
楼上正解，已解决。谢谢