主题：参加考试人员与不参加考试人员名单查询生成

老师：现在有一张成绩表，近5年考试数据3万余条，有初级、中级、高级三个考试级别；5年内有人考1次，2次、3次或者多次不同级别的考试。现需要统计：

1、如果一个人只要有一个证书的截止日期（有效期）>=2018-01-01,则保留成绩，无需再考。

2、如果不满足条件1，则判断证书有效期到期前是否年满50周岁，如果满50则不用考试，否则需要参加下次考试。

生成一张必须考试人员表和一张不需要参加考试人员表。（列基本全部保留，长期有效或者年满50周岁参记录在表中）

如何操作，谢谢。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:成绩总表.xlsx

老师，初学foxtable两天，就遇到这么棘手的问题，非常感谢您的帮助。

我通过 杂项——高速导入数据，把excel表“总表”导进去了，然后在数据表菜单——SQL查询表选择select语句，运行不了，能否再解答一下，非常感谢。

老师非常感谢您，完美解决，接下来我将好好学习，争取自己写代码。再次感谢，祝您工作开心。

老师，年满50周岁的计算要求是：考生取得的初级、中级、高级证书，考生在任意一个等级证书到期前过50岁生日了（年满50周岁），那么就不用再考试了。出生日期很多人填写错误，只能从身份证号中取值。

 

那么2、有效期大于2018-1-1或年满50岁的人员

  3、必须考试人员

 

的查询语句怎么写呀，自己试了半天写不出来，只能再麻烦您呢

老师，我这样写：

必须考试人员

Dim d As Date = "2018-01-01"
Dim filter As String = "not ([初级#截止日期]>=#" & d & "# or [中级#截止日期]>=#" & d & "# or  [高级#截止日期]>=#" & d & "# or 出生年月 >([初级#截止日期] .AddYears(-50) or 出生年月 >[中级#截止日期] .AddYears(-50)  or 出生年月 >([高级#截止日期] .AddYears(-50))"
Tables("test").filter = filter

执行命令显示未定义>[初级#截止日期] ....>[中级#截止日期].....>[高级#截止日期]

您帮我修改一下，看这样做行不。就是出生日期加50年后与每一个截止日期作比较，没有超过截止日期的就可以免考。

身份证号已经提取出来了，就是没明白您说的辅助列怎么弄。麻烦您写个代码吧，自己试了好多变都不对。我边学边用，有点不懂，请原谅。

不好意思呀老师，这个数据不能外传，按您说的我把出生日期已经提取出来了。现在增加了三个列【初级年龄】【中级年龄】【高级年龄】，这三个的DataColChanged事件怎么写呀，拜托了，下午领导就要结果了。这三个列的数据写入了我就可以按您之前给的命令查询出来了。谢谢，拜托

If e.DataCol.Name = "初级#截止日期" OrElse e.DataCol.name = "出生年月" Then
    Dim dr As DataRow = e.DataRow
    If dr.IsNull("初级#截止日期") Then
        dr("初级年龄") = Nothing
    Else
        Dim d As Date = dr("出生年月")
        Dim d1 As Date = dr("初级#截止日期")
        Dim y As Integer = d.year
        If format(d, "MMdd") <= Format(d1, "MMdd") Then
            e.DataRow("年龄") = d1.year - y
        Else
            e.DataRow("年龄") = d1.Year - y -1
        End If
    End If
End If
老师，运行这个程序时，截止日期为空时，调用目标发生异常，从字符串“”到类型“date”的转换无效，这是怎么回事？

出生日期我全部计算出来了，是因为截止日期，如果考试成绩没有合格的话那么“截止日期”（所取得的证书的有效期）就是空的。完了出现如图的问题。
此主题相关图片如下：qq图片20180524145341.jpg

Dim d As Date = "2018-01-01"
Dim filter As String = "[初级#截止日期]>=#" & d & "# or [中级#截止日期]>=#" & d & "# or  [高级#截止日期]>=#" & d & "# or 初级年龄 >= 50 or 中级年龄 >= 50 or 高级年龄 >= 50"
Tables("总表").filter = filter