以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  关于增加审核内容的代码  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=49626)

--  作者:wealthwind
--  发布时间:2014/4/21 16:44:00
--  关于增加审核内容的代码
If User.Group = "主管" Then
    Tables(
"表A").Current("审核") = UserName
    Tables(
"表A").Current("审核日期") = Date.Today()
    Tables(
"表A").Current.Save()
Else

    MessageBox.show(
"你无审核权限!")
End
 If

我想在以上代码上,增加“审核内容”项目,制定列是“审核内容”,对应控件是textbox1,代码应该如何写??

If User.Group = "主管" Then
    Tables(
"表A").Current("审核") = UserName
    Tables(
"表A").Current("审核日期") = Date.Today()
    Tables("表A").Current("审核内容") = textbox1
    Tables(
"表A").Current.Save()
Else

    MessageBox.show(
"你无审核权限!")
End
 If

这样写,代码不行额,请老师给意见

--  作者:Bin
--  发布时间:2014/4/21 16:46:00
--  
这位大哥,我诚心建议你先按部就班学习一遍帮助,你这样是不行的.  欲速则不达,反而更加浪费您宝贵的时间

Tables("表A").Current("审核内容") = forms("窗口名").controls("textbox1").text