以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  关于如何批量审核复选框已选中的行  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=48635)
--  作者：188802386
--  发布时间：2014/4/2 15:49:00
--  关于如何批量审核复选框已选中的行
你好 我已经调用出了 复选框 Tables("佣金明细").ShowCheckBox = True

请问如何修改下面的代码使得能批量审核已选定的行呢
If User.Group = "行政部" Then
    Tables("佣金明细").Current("审核") = User.Name
    Tables("佣金明细").Current("审核日期") = Date.Today()
    Tables("佣金明细").Current.Save()
Else
    MessageBox.show("你无审核权限!")
End If 


谢谢
--  作者：Bin
--  发布时间：2014/4/2 15:54:00
--  
 If User.Group = "行政部" Then
    For Each r As Row In Tables("佣金明细").GetCheckedRows
        r("审核") = User.Name
        r("审核日期") = Date.Today()
        r.Save()
    Next
Else
    MessageBox.show("你无审核权限!")
End If 
--  作者：有点甜
--  发布时间：2014/4/2 15:55:00
--  

If User.Group = "行政部" Then

    For Each r As Row In Tables("佣金明细").GetCheckedRows
        r("审核") = User.Name
        r("审核日期") = Date.Today()
        r.Save()

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

 

参考

 

http://www.foxtable.com/help/topics/1776.htm

 

[此贴子已经被作者于2014-4-2 15:55:28编辑过]