我建了个主机审核表 第一列为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编辑过]