以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  日期遍历赋值  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=56272)
--  作者：tujiu
--  发布时间：2014/9/2 13:27:00
--  日期遍历赋值

Table表中有四行，

第一行的日期2014-09-02   我想通过遍历赋值的方式，第二行为 2014-09-03 第三行：2014-09-04 第四行：2014-09-05

怎么设置？
--  作者：Bin
--  发布时间：2014/9/2 14:03:00
--  
dim d as date = date.today

for each r as row in tables("X").rows
     r("日期")=d
     d=d.adddays(1)
next
--  作者：tujiu
--  发布时间：2014/9/2 18:23:00
--  

这个好像存在问题，就是表中原先存在的数据会被删除了。添加完过后表中的行数变为新添加行数+原先表中的行数，所有数据数据全部变成新添加的内容。

[此贴子已经被作者于2014-9-2 18:28:46编辑过]
--  作者：有点甜
--  发布时间：2014/9/2 19:12:00
--  

 你要的是编号？参考这个事件改一下

 

http://www.foxtable.com/help/topics/0630.htm

 
--  作者：有点甜
--  发布时间：2014/9/2 19:13:00
--  

 或者改原先的代码

 

dim d as date = tables("X").rows(0)("日期")

for each r as row in tables("X").rows
     r("日期")=d
     d=d.adddays(1)
next
--  作者：tujiu
--  发布时间：2014/9/3 8:54:00
--  

额，我这个是放在窗口的添加按钮里。 

dim d as date = e.form.controls("日期").value

我就是想能不能添加多行的时候，也能保证原来表中的数据不会被删除掉。
--  作者：Bin
--  发布时间：2014/9/3 8:56:00
--  
添加多行,和原来表数据没什么关系,更加不会被删除.
--  作者：有点甜
--  发布时间：2014/9/3 9:04:00
--  
实际情况，你做个例子上来说明吧。