以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  CTRL选择行然后执行以下代码  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=158172)
--  作者：nuoyan89
--  发布时间：2020/11/10 13:09:00
--  CTRL选择行然后执行以下代码

 

Dim t As Table = Forms("采购订单审核").controls("转合同").Table
For i As Integer = t.TopPosition To t.BottomPosition
    Dim r1 As Row = t.rows(i)
    r1("财务审核") = _UserName
    r1("审核日期") = Date.Today
Next
--  作者：有点蓝
--  发布时间：2020/11/10 13:37:00
--  
foxtable仅支持连续选择。挑选的只能使用复选框：http://www.foxtable.com/webhelp/topics/1776.htm