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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 求审核按钮的代码

共有3528人关注过本帖树形打印复制链接主题：求审核按钮的代码

188802386

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

加好友

发短信

等级：三尾狐帖子：629 积分：4927 威望：0 精华：0 注册：2014/2/25 15:50:00

求审核按钮的代码 发帖心情

Post By：2014/4/25 16:31:00 [显示全部帖子]

我建了个主机审核表第一列为computer ID 第二列为该ID的注册码

同时也增加了主机审核窗口（一个审核按钮一个主机审核表）

我将第一列的ID填入后点击审核就自动填入该ID的注册码

请问该审核按钮代码应该怎么写呢

If User.IsRole("审核") Then
  For Each r As Row In Tables("主机审核").GetCheckedRows
    r("注册码") = EncryptText("KIUVG19DSAXZ","abc","abc")
        r("审核") = User.Name
        r("审核日期") = Date.Today()
        r.Save()
        r.checked=False
    Next
Else
    MessageBox.show("你无审核权限!")
End If

就是红色字代表的是 computerID 然后这一列是系统编号请问我改如何加进去呢

[此贴子已经被作者于2014-4-25 16:45:19编辑过]