- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 日期列自动编入日期 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=91209)
-- 发布时间：2016/10/3 11:59:00
-- 日期列自动编入日期
请问各位大师，如何实现在点击插入行后，日期列新插入行能自动填入下面相邻一行日期增加1天的日期。谢谢！
-- 发布时间：2016/10/3 19:25:00
--
DataRowAdded事件：
Dim idx As Integer = Tables("表A").FindRow(e.DataRow)
If idx > 0 AndAlso Idx < Tables("表A").Rows.Count Then
If Tables("表A").Rows(idx+1).Isnull("日期") = False Then
Tables("表A").Rows(idx)("日期") = Tables("表A").Rows(idx+1)("日期").AddDays(1)
End If
End If
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目303.table |
-- 发布时间：2016/10/6 14:56:00
-- 日期列自动编入日期
谢谢回复，可我将以上内容设备到表属性后，还是未能实现自动增加1天的日期后填入。我现在把截图发出来可能更明白一些：
比如我的工序产量日报表中有一日期列，列名为生产日期，如附件1
此主题相关图片如下：微信截图_20161006144227.png
：最顶行该列的日期为2016－10－05
此主题相关图片如下：微信截图_20161006144227.png：最顶行该列的日期为2016－10－05我想实现在2016－10－05上面再点击插入行后，会在新插入的行中的生产日期列中自动填入2016－10－06.我现在插入行后还是未能实现，如附件2
此主题相关图片如下：微信截图_20161006145226.png
请再帮助解决！谢谢！
此主题相关图片如下：微信截图_20161006145226.png请再帮助解决！谢谢！
-- 发布时间：2016/10/6 15:18:00
--
Dim idx As Integer = Tables("表A").FindRow(e.DataRow)
If idx >= 0 AndAlso Idx < Tables("表A").Rows.Count-1 Then
If Tables("表A").Rows(idx+1).Isnull("日期") = False Then
Tables("表A").Rows(idx)("日期") = Tables("表A").Rows(idx+1)("日期").AddDays(1)
End If
End If
-- 发布时间：2016/10/7 14:55:00
-- 日期列自动编入日期
这下搞定了。万分感谢您！