darwcell表达式错误！求帮助！ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → darwcell表达式错误！求帮助！

共有10593人关注过本帖树形打印复制链接主题：darwcell表达式错误！求帮助！

blackzhu

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

加好友

发短信

等级：狐仙帖子：9875 积分：57590 威望：0 精华：15 注册：2008/9/1 9:45:00

Post By：2012/1/13 8:41:00 [显示全部帖子]

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

blackzhu

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

加好友

发短信

等级：狐仙帖子：9875 积分：57590 威望：0 精华：15 注册：2008/9/1 9:45:00

Post By：2012/1/13 12:22:00 [显示全部帖子]

这样试试:

Dim d1 As Date = e.Row("计划竣工")
Dim d2 As Date = Date.today
Dim t As Integer = DateDiff("d",d1,d2)
If t < 10 Then
e.Style = "即将到期"
End If

blackzhu

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

加好友

发短信

等级：狐仙帖子：9875 积分：57590 威望：0 精华：15 注册：2008/9/1 9:45:00

Post By：2012/1/13 13:33:00 [显示全部帖子]

这样试试?

Dim d1 As Date = e.Row("计划竣工")
Dim d2 As Date = Date.today
Dim d3 As Date = e.Row("竣工日期")
Dim t As TimeSpan = d1-d2
Dim d As timespan = d3-d1
If d3 Is Nothing Then
    If t.Totaldays < 10 Then
        e.Style = "即将到期"
    End If
Else
    If d.Totaldays >=0 Or d.Totaldays<= 10 Then
        e.style = "即将到期"
    ElseIf d.Totaldays >=10 Or d.Totaldays<= 20 Then
        e.style = "拖期十到二十天"
    ElseIf d.Totaldays >= 20 Then
        e.style = "严重拖期"
    End If
End If