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

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

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

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

这样筛选？

 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 & "#"

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

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

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

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

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

得看你是否需要用到，搜索是否过期，根据有效期即可。

参考 http://www.foxtable.com/webhelp/scr/0656.htm