以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  窗口中的表有一列是日期列，我想点打印按钮后这列自动生成当时的日期和时间  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=26508)
--  作者：穆紫1212
--  发布时间：2012/12/6 15:48:00
--  窗口中的表有一列是日期列，我想点打印按钮后这列自动生成当时的日期和时间
如标题：窗口中的表有一列是日期列，我想点打印按钮后这列自动生成当时的日期和时间，怎么样能实现
--  作者：狐狸爸爸
--  发布时间：2012/12/6 15:53:00
--  

打印按钮的代码设置为：

 

Tables(" 表名").Current("日期") = Date.Now

你原来的打印代码
--  作者：sgs
--  发布时间：2012/12/6 15:54:00
--  

所有行还是当前行？

 

所有行：

for each r as row in e.form.controls("table1").table.rows

r("confirmdate") = date.now()

next

当前行就简单了

if e.form.controls("table1").table.current isnot nothing then

dim r as row = e.form.controls("table1").table.current

r("confirmdate") = date.now()

end if
--  作者：穆紫1212
--  发布时间：2012/12/6 16:24:00
--  
谢谢狐爸，也谢谢童狐，这么简单的一个代码我想了二个晚上。看起来还是学的太肤浅了。