Foxtable(狐表)用户栏目专家坐堂 → 增加行生成日期


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

主题:增加行生成日期

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


加好友 发短信
等级:幼狐 帖子:129 积分:1034 威望:0 精华:0 注册:2017/10/23 19:15:00
增加行生成日期  发帖心情 Post By:2018/10/12 10:59:00 [只看该作者]

增加行事件里如何实现自动日期,包含日期,星期,上下午。比如:10月1日(星期一)上午,增加行后10月1日(星期一)下午,再增加行为10月2日(星期二)上午,再增加行为10月2日(星期二)下午

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/10/12 11:04:00 [只看该作者]

datarowadded事件

 

e.DataRow("第一列") = Format(Date.now, "yyyy年MM月dd日(dddd)") & iif(Date.now.hour > 12, "下午", "上午")


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


加好友 发短信
等级:幼狐 帖子:129 积分:1034 威望:0 精华:0 注册:2017/10/23 19:15:00
  发帖心情 Post By:2018/10/12 11:28:00 [只看该作者]

调用目标发生异常


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/10/12 11:31:00 [只看该作者]

以下是引用18631154510在2018/10/12 11:28:00的发言:

调用目标发生异常

 

不可能的。请认真测试。


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


加好友 发短信
等级:幼狐 帖子:129 积分:1034 威望:0 精华:0 注册:2017/10/23 19:15:00
  发帖心情 Post By:2018/10/12 11:38:00 [只看该作者]

Dim maxd As Date = e.DataTable.Compute("max(时间)")
If maxd = Nothing Then
    maxd = Date.Today
Else
        maxd = maxd.AddDays(1)
End If

e.DataRow("时间") = maxd

 

开始我用的这个代码,日期一行递增一天,但是分不了上下午


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/10/12 11:57:00 [只看该作者]

1、必须另外用一列保存上午下午的值的。

 

2、具体上传实例,说明你要做什么功能。


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


加好友 发短信
等级:幼狐 帖子:129 积分:1034 威望:0 精华:0 注册:2017/10/23 19:15:00
  发帖心情 Post By:2018/10/12 12:18:00 [只看该作者]

第一,我不需要引用当下日期时间,增加一行比上一行递增即可。

第二,上午下午也不需要根据时间判断,要在时间列实现的结果就是:

10月1日(星期一)上午

10月1日(星期一)下午

10月2日(星期二)上午

10月2日(星期二)下午

10月3日(星期三)上午

10月3日(星期三)下午

10月4日(星期四)上午

每增加一行自动连续递增即可


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/10/12 12:32:00 [只看该作者]

Dim max = e.DataTable.Compute("max(第一列)")
If max = Nothing Then
    max = Format(Date.now, "MM月dd日(dddd)上午")
Else
    Dim d As Date = new Date(Date.today.year, max.Substring(0,2), max.Substring(3,2))
    If max.contains("上午") Then
        max = Format(d, "MM月dd日(dddd)下午")
    Else
        max = Format(d.adddays(1), "MM月dd日(dddd)上午")
    End If
End If

e.DataRow("第一列") = max


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


加好友 发短信
等级:幼狐 帖子:129 积分:1034 威望:0 精华:0 注册:2017/10/23 19:15:00
  发帖心情 Post By:2018/10/12 12:53:00 [只看该作者]

调用的目标发生了异常

我讲列属性用字符,日期时间都试了


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/10/12 15:08:00 [只看该作者]

我测试没问题。出错的实例发上来测试。


 回到顶部
总数 19 1 2 下一页