以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  窗口中子表的筛选问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=114611)
--  作者：malavazos
--  发布时间：2018/2/11 10:10:00
--  窗口中子表的筛选问题
请问，下述唯一个在窗口中子窗体中不再显示本年度检定日期为空的记录，下述代码红字部分报错，如何修改
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()
--  作者：有点蓝
--  发布时间：2018/2/11 11:05:00
--  
……
For Each dr As DataRow In DataTables("检定流水记录").DataRows
    If dr.IsNull("本年实际检定日期") = False
        Dim dt As Date = dr("本年实际检定日期")
        Dim dt1 As New Date(Date.Today.Year,dt.Month,dt.Day)
        If dt1 <= Date.Today Then
            nms = nms & ",\'" & dr("校准编号") & "\'"
        End If
    End If
Next
……