主题：怎样将符合筛选条件的数据批量修改

怎样将符合筛选条件的数据批量修改?比如将快要到期的流量卡筛选出，后成批续费

方法一： http://www.foxtable.com/webhelp/scr/1532.htm

 

方法二：筛选后，循环每一行，修改

 

For Each r As Row In Tables("表A").rows
    r("第一列") = 123456
Next

A表（字段有类型、进货日期、卡有效期至、卡号、是否过期、是否可用续费等字段）B表（字段有卡号、充值日期、充值净额等）

筛选条件是一 必须是可以续费的卡；二是即将到期或已过期的卡。

实现：将筛选出符合条件的数据在B表中批量给每条数据添加一条充值记录

 

这样筛选？

 

 Dim d As Date = Date.Today.AddDays(10)

 Tables("表A").Filter = "是否可续费 = true and 卡有效期至 <= #" & d & "#"

 

新增数据

 

For Each r As Row In Tables("表A").rows

    Dim nr As Row = Tables("表B").AddNew
    nr("第一列") = r("第一列")

    nr("第二列") = r("第二列")
Next

每一张卡一年内只能续费一次，可是这样每次单击续费按钮时有很多已经续过费了的卡有续上了都是重复的，一张卡续过费有效期是一年的

Dim d As Date = Date.Today.AddDays(10)

Tables("表A").Filter = "是否可续费 = true and 卡有效期至 > #" & Date.Today.AddYears(-1) & "# and 卡有效期至 <= #" & d & "#"

A表字段卡有效期至 是刚进卡时有效期第二次以后各期续费日期就应该不是这个日期了除非‘卡有效期至 ’字段值是变化的'不然的话第一年可以用这个值，续过一次费就不能用这个值了。是不是要把‘卡有效期至 ’做成变值呢？

你的数据是如何构成的？每次续费是如何操作的？每次续费都新增一行新的数据？

 

你的搜索逻辑是什么？上传实例说明。

有两张表想实现：

（1） 流量卡正入库

（2）在启动程序时弹出一个未来十天将要到期的流量卡（注：流量卡有效期都是一年的。包括新卡一年后即将到期和各期续过费一年后的即将到期的旧卡）弹出的即将到期的流量卡可以批量续费也可单张续费。（注意只有标有可以续费性质的卡才可以续费）

（3）标有可续费性质的卡可以可以双击“是否可以续费”字段可以实现以该字段为查询条件来查询该卡的历史充值记录，也可以实现单卡续费功能（注意只有双击到“是否可以续费”为True的时候才弹出该卡的充值历史记录），也可以该窗体可以查找所有卡的所有历史充值记录。

 

该如何实现这些功能呢？

顺便麻烦看看数据库设计是否合理？谢谢

 

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

点击浏览该文件:管理项目1.table

1、有效期必须是动态的，根据充值记录动态的修改有效期的值。

 

2、参考 http://www.foxtable.com/webhelp/scr/2471.htm

 

3、直接设置关联，显示关联表即可 http://www.foxtable.com/webhelp/scr/0091.htm