关于增加审核内容的代码 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于增加审核内容的代码

共有3586人关注过本帖树形打印复制链接主题：关于增加审核内容的代码

wealthwind

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：660 积分：3965 威望：0 精华：0 注册：2014/3/16 20:34:00

关于增加审核内容的代码 发帖心情

Post By：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

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2014/4/21 16:46:00 [只看该作者]

这位大哥,我诚心建议你先按部就班学习一遍帮助,你这样是不行的. 欲速则不达,反而更加浪费您宝贵的时间

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

下一主题 >> << 上一主题

主题：关于增加审核内容的代码