想把快到期的单子数量显示在窗口的 label5上面。下面的代码报错了。
Dim drs2 As List(Of DataRow)
For Each dr As DataRow In DataTables("xmzb").DataRows
Dim d1 As Date=dr("结束时间")
Dim tp As TimeSpan = d1 - Date.Today
If tp.TotalDays >= 0 AndAlso tp.TotalDays <= 3 AndAlso dr("已通过") <> True Then
drs2.Add(dr)
End If
Next
e.Form.Controls("Label5").text = drs2.Count