以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何自动生成日期及时间??  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=15127)

--  作者:sinlang5778
--  发布时间:2011/12/13 15:34:00
--  如何自动生成日期及时间??

1)如何在1个列中复制单元后,粘贴多个行?

2)在表里增加生成日期列及修改日期列,如何让生成日期的列第一次输入时,系统自动生成当前日期;

     第二次修改时,修改日期的列里生成当前时间?(看一下图片)


图片点击可在新窗口打开查看此主题相关图片如下:2011-12-13_153328.png
图片点击可在新窗口打开查看

--  作者:tyzh
--  发布时间:2011/12/13 16:16:00
--  

你试试,我是新手:

表属性,事件DaTaRowAdding

e.DataRow("生成日期") = Date.Now()


--  作者:狐狸爸爸
--  发布时间:2011/12/13 16:20:00
--  

1、参考:
http://www.foxtable.com/help/topics/0140.htm

 
2、自动输入当前时间:
http://www.foxtable.com/help/topics/0630.htm



e.DataRow("日期") = Date.Now()
 
快速输入当前时间:
选择日期列中一个空白单元格,按空格键进入编辑状态,再次按空格键,即可输入当天日期。
 
 
2、设置DataColChanging事件:

 

Select Case e.DataCol.name
    Case "生成日期"
    If e.oldvalue IsNot Nothing Then
        e.DataRow("修改日期") = Date.now
    End If
End Select


--  作者:blackzhu
--  发布时间:2011/12/13 16:33:00
--  

在表属性的:DataRowAdding     e.datarow("生产日期")=date.Now()

 

在表属性的:DataColChanged 加入

 

 if e.datacol.Name="生产日期" then

     e.datarow("修改日期")=date.Now()

end if


--  作者:sinlang5778
--  发布时间:2011/12/13 16:50:00
--  

谢谢。

继上诉内容,如果新增行时,对应的生成日期列自动为当前日期时间(为外部数据源服务器的当前时间);

修改整行的某个单元格时,对应的修改日期列自动为当前日期时间(为外部数据源服务器的当前时间)。

 

不知道,可不可以?

[此贴子已经被作者于2011-12-13 17:04:02编辑过]

--  作者:狐狸爸爸
--  发布时间:2011/12/13 17:06:00
--  

参考:

 

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

 


--  作者:tyzh
--  发布时间:2011/12/14 13:05:00
--  

请教,修改日期问题

If e.DataRow.IsNull("修改日期") Then
e.DataRow("修改日期") = Date.now()
Else
e.DataRow("修改日期") = Nothing
e.DataRow("修改日期") = Date.now()
End If

以上代码在表的DataColChanging事件中时,当打开修改记录窗口时,系统关闭,

当代码早项目的DataColChanging事件中时,打开修改记录操作不起作用,怎末回事?


--  作者:blackzhu
--  发布时间:2011/12/14 15:18:00
--  

If e.DataRow.IsNull("修改日期") Then
e.DataRow("修改日期") = Date.now()
Else
e.DataRow("修改日期") = Nothing
e.DataRow("修改日期") = Date.now()
End If

 

怎么都是一样的列名来判断是不是写错了?