请问，下述唯一个在窗口中子窗体中不再显示本年度检定日期为空的记录，下述代码红字部分报错，如何修改
Dim nms As String
For Each dr As DataRow In DataTables("检定流水记录").DataRows
Dim dt As Date = dr("本年实际检定日期")
Dim dt1 As New Date(Date.Today.Year,dt.Month,dt.Day)
If (dt1 <= Date.Today AndAlso IsNull("本年实际检定日期") = True ) Then
nms = nms & ",'" & dr("校准编号") & "'"
End If
Next
If nms > "" Then
nms = nms.Trim(",")
Tables("检定流水记录").filter = "[校准编号] In (" & nms &")"
End If
Forms("计量器具到期提醒").Show()
加好友 
发短信
Post By：2018/2/11 10:10:00 [显示全部帖子]
