- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]通过计算自动增加行 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=86050)
-- 发布时间：2016/6/8 17:10:00
-- [求助]通过计算自动增加行
能不能将这段代码改成在还款日期中自动在下面增加行数
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:求帮忙.table |
比如还款日期6月5日，我则能再下面自动插入6月10日、六月15日、六月20日、六月25日、六月30日？（现在的代码只能显示一行，不能增加。并且如果遇到有31号的月份会错误。。。还款日期固定是每月的5、10、15、20、25、30。不能出现别的日期改怎么弄）
If e.DataCol.Name = "第一次还款时间" Then
If e.NewValue = Nothing Then
e.DataRow("还款日期") = Nothing
e.DataRow("还款日期") = Nothing
e.DataRow("还款日期") = Nothing
e.DataRow("还款日期") = Nothing
e.DataRow("还款日期") = Nothing
Else
e.DataRow("还款日期") = e.newvalue.AddDays(5)
e.DataRow("还款日期") = e.newvalue.AddDays(10)
e.DataRow("还款日期") = e.newvalue.AddDays(15)
e.DataRow("还款日期") = e.newvalue.AddDays(20)
e.DataRow("还款日期") = e.newvalue.AddDays(25)
End If
End If
-- 发布时间：2016/6/8 19:46:00
--
直接写
Dim nr1 = Tables("人员基本资料.数据表").AddNew
nr1("还款日期") = e.NewValue.AddDays(5)
Dim nr2 = Tables("人员基本资料.数据表").AddNew
nr2("还款日期") = e.NewValue.AddDays(10)
-- 发布时间：2016/6/8 21:13:00
--
怎么写上之后程序就自动关闭啊？
-- 发布时间：2016/6/10 20:56:00
--
测试，没有问题。写到人员资料表的DataColChanged事件去啊。