日期比较 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 日期比较

共有8661人关注过本帖树形打印复制链接主题：日期比较

东方孟德

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：28 积分：378 威望：0 精华：0 注册：2012/2/29 10:17:00

日期比较

Post By：2012/11/6 15:41:00 [只看该作者]

好像比较不管用。请教

If e.DataCol.Name = "到期欠款" Or e.DataCol.Name = "到期欠款分类" Then
Dim t As Date
t = Date.Now
Dim d1,d2,d3,d4,d5 As Double
    d1=IIF(e.DataRow("预付款应回日期") < t, e.DataRow("预付应到款") ,0)
    d2=IIF(e.DataRow("货到款应回日期") < t, e.DataRow("货到应到款") ,0)
    d3=IIF(e.DataRow("验收款应回日期") < t, e.DataRow("验收应到款") ,0)
    d4=IIF(e.DataRow("其它款应回日期") < t, e.DataRow("其它应到款") ,0)
    d5=IIF(e.DataRow("质保款应回日期") < t, e.DataRow("质保应到款") ,0)