这个是什么问题啊!!!
此主题相关图片如下:qq截图20160907192116.jpg
![dvubb 图片点击可在新窗口打开查看](UploadFile/2016-9/20169719205269945.jpg)
If e.Col.name = "金额" Then
If e.Date.Today = False AndAlso e.Row.IsNull("金额") = False Then
e.style = "已付款"
End If
If e.Date.Today AndAlso e.Row.IsNull("订单日期") = False Then
Dim dt1 As Date = e.Row("账期")
Dim tp As TimeSpan = Date.Today - dt1
If tp.TotalDays <= -5 Then
e.Style = "已过账期"
Else
e.Style = "已付款"
End If
End If
End If