Foxtable(狐表)用户栏目专家坐堂 → 如何自动生成日期及时间??


  共有11694人关注过本帖树形打印复制链接

主题:如何自动生成日期及时间??

帅哥哟,离线,有人找我吗?
sinlang5778
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:134 积分:1404 威望:0 精华:0 注册:2011/9/20 12:34:00
如何自动生成日期及时间??  发帖心情 Post By:2011/12/13 15:34:00 [只看该作者]

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

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

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


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

 回到顶部
帅哥哟,离线,有人找我吗?
tyzh
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:37 积分:299 威望:0 精华:0 注册:2011/12/7 12:36:00
  发帖心情 Post By:2011/12/13 16:16:00 [只看该作者]

你试试,我是新手:

表属性,事件DaTaRowAdding

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


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47511 积分:251479 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By: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
  4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:狐仙 帖子:9879 积分:57646 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By:2011/12/13 16:33:00 [只看该作者]

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

 

在表属性的:DataColChanged 加入

 

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

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

end if


 回到顶部
帅哥哟,离线,有人找我吗?
sinlang5778
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:134 积分:1404 威望:0 精华:0 注册:2011/9/20 12:34:00
  发帖心情 Post By:2011/12/13 16:50:00 [只看该作者]

谢谢。

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

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

 

不知道,可不可以?

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

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47511 积分:251479 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/12/13 17:06:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
tyzh
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:37 积分:299 威望:0 精华:0 注册:2011/12/7 12:36:00
  发帖心情 Post By: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
  8楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:狐仙 帖子:9879 积分:57646 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By: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

 

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


 回到顶部