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

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

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

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

 

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

有两张表想实现：

（1） 流量卡正入库

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

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

 

该如何实现这些功能呢？

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

 

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

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

能帮我做一下吗？我好好学习学习！ 我做了半天做不成

1、首先增加一个自定义样式，名称为“到期”，红底白字。怎么做呀？

2、设置表的DataColChanged事件代码，以便根据生产日期和到期天数，计算出到期日期：

Select Case e.DataCol.Name
    Case "生产日期","保质天数"
        If e.DataRow.IsNull("生产日期") Then
            e.DataRow("到期日期") = Nothing
        Else
            e.DataRow("到期日期") = e.DataRow("生产日期").AddDays(e.DataRow("保质天数"))
        End If
End Select

 

“生产日期”字段应该改为“进货日期字段”和“最后一次续费日期”哪个字段呀？如果是“最后一次续费日期”第一次进货时这个字段没数据呀！第二是这个字段没有在流量卡资料本表中，实在充值记录表中怎么调用？

 

3、设置表的DrawCell事件代码，标出10天内即将到期的产品：

If e.col.Name = "到期日期" Then
    If e.Row.IsNull("到期日期") = False
        If e.Row("到期日期") < Date.Today.AddDays(10) Then
            e.Style = "到期"
        End If
    End If
End If

 

“到期”是指的什么 我设置完了怎么没有把所开到期的数据标出来呢？

麻烦给看看

 

 

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

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

如果只是将即将到期的记录标记出来，不筛选数据，要显示所有的数据。怎么实现？

 

"样式1" 代表什么呢？为什么改为别的就不管用了呢？

如果只是将即将到期的记录标记出来，不筛选数据，要显示所有的数据。怎么实现？

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

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

如果窗体选择单条续费时，续费记录添加的数据怎么不是流量卡资料选中的行呀是最后一行

有点蓝老师 怎么流量卡资料 “是否可用续费”字段都变成否了呢？

 

 

Dim yxq As Date =e.Form.Controls("DateTimePicker1") 这句表达式对吗？怎么转换无效呢？

 

 

这样不行！     我想实现只有将要到期（提前10提醒）和必须可以续费的数据两个条件同时具备时 才能续费呢，（可以选中单条充值也可以批量充值）充完值后“流量卡有效期至”字段肯定就不符合充值条件了，可是充值不受“流量卡有效期至”的限制

Dim yxq As Date =e.Form.Controls("DateTimePicker1") 这句表达式对吗？怎么转换无效呢？