主题：增加行生成日期

增加行事件里如何实现自动日期，包含日期，星期，上下午。比如：10月1日（星期一）上午，增加行后10月1日（星期一）下午，再增加行为10月2日（星期二）上午，再增加行为10月2日（星期二）下午……

调用目标发生异常

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

 

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

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

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

10月1日（星期一）上午

10月1日（星期一）下午

10月2日（星期二）上午

10月2日（星期二）下午

10月3日（星期三）上午

10月3日（星期三）下午

10月4日（星期四）上午

……

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

调用的目标发生了异常

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

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:检测实例.foxdb

我的版本需要升级了，提示版本太低，打不开，能说一下检测的问题吗？

非常感谢

 

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

 

烦请再指点一下，取消上午下午，每增加一行就增加一天怎么改？

好奇怪，我看您的代码给修改的非常完美了，怎么还是上午下午的交替啊？

.NET Framework 版本：2.0.50727.8793
Foxtable 版本：2018.10.9.1
错误所在事件：表，领导周活动，DataRowAdded
详细错误信息：
调用的目标发生了异常。
未找到类型“String”的公共成员“adddays”。