此主题相关图片如下：360截图16530713426273.png
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
写这个代码，如果延期天数是空值的话为什么不好使，怎么改写呢
Dim dta As Date = Date.Today.AddDays(10)
Dim dra As DataRow = DataTables("新产品开发阶段表").Find("最终时间 <= #" & dta & "#" And "[通知检验] Is False ")
If dra IsNot Nothing Then
MessageBox.Show("有新开发产品即将到期!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Tables("新产品开发阶段表").Filter = "最终时间 <= #" & dta & "#"
MainTable = Tables("新产品开发阶段表")
End If
在项目属性写这个代码也会提醒我错误呢
此主题相关图片如下：360截图16560311131140.png
加好友 
发短信
Post By：2018/12/2 10:42:00 [只看该作者]
