Foxtable(狐表)用户栏目专家坐堂 → 窗口中子表的筛选问题


  共有2166人关注过本帖树形打印复制链接

主题:窗口中子表的筛选问题

帅哥哟,离线,有人找我吗?
malavazos
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:357 积分:3418 威望:0 精华:0 注册:2012/8/29 10:30:00
窗口中子表的筛选问题  发帖心情 Post By: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()

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110572 积分:562750 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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
……

 回到顶部