Dim y As Integer = Date.Today.Year
Dim nf As Date = DataTables("大额资金支出备案明细表").Datarows("申报备案时间")
Dim cnt1 As Integer = DataTables("大额资金支出备案明细表").Compute("Count(_Identify)","审核结果 = '审核未通过' And 过会结果=''")
Dim cnt2 As Integer = DataTables("大额资金支出备案明细表").Compute("Count(_Identify)","审核结果 ='审核通过' and 过会结果=''")
Dim cnt3 As Integer = DataTables("大额资金支出备案明细表").Compute("Count(_Identify)","过会结果 = '通过' And nf.year ='" & y & "'")
Dim cnt4 As Integer = DataTables("大额资金支出备案明细表").Compute("Count(_Identify)","过会结果 = '未通过' And nf.year ='" & y & "'")
e.Form.Controls("shtg1").value = "审核通过(" & cnt2 & ")条"
e.Form.Controls("shtg2").value ="审核未通过(" & cnt1 & ")条"
错误信息:datarow无法转换成date