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

把数据导入到foxtable，然后查询。

1、有效期大于2018-1-1的人员

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

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

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

3、必须考试人员

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

运行代码，参考

http://www.foxtable.com/webhelp/scr/0213.htm

1、出生年月从身份证提取，请提前处理

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=118957&skin=0

2、同时你应该加入辅助列【初级年龄】【中级年龄】【高级年龄】

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=118957&skin=0

3、根据辅助列、截止日期列，编写条件，如

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

1、出生年月从身份证提取，请提前处理

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=118957&skin=0

2、同时你应该加入辅助列【初级年龄】【中级年龄】【高级年龄】

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=118957&skin=0

以下是引用wddh121在2018/5/22 13:31:00的发言：
身份证号已经提取出来了，就是没明白您说的辅助列怎么弄。麻烦您写个代码吧，自己试了好多变都不对。我边学边用，有点不懂，请原谅。

增加三个列【初级年龄】【中级年龄】【高级年龄】，然后计算截止日期-出生年月的值，得到年龄值。

不会做，请把你的foxtable项目发上来。

 
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

应该是你出生年月列为空导致的吧？

If e.DataCol.Name = "初级#截止日期" OrElse e.DataCol.name = "出生年月" Then
    Dim dr As DataRow = e.DataRow
    If dr.IsNull("初级#截止日期") orElse 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

试试改成这样

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

或者

Dim d As Date = "2018-01-01"
Dim filter As String = "[初级#截止日期]>=#" & d & "# or [中级#截止日期]>=#" & d & "# or  [高级#截止日期]>=#" & d & "# or 初级年龄 >= 50 or 中级年龄 >= 50 or 高级年龄 >= 50"
Dim str = Tables("总表").DataTable.GetComboListString("_Identify", filter).replace("|", ",")
Tables("总表").filter = "_Identify not in (" & str & ")"

1、

If e.DataCol.Name.contains("截止日期") Then
    Dim dr As DataRow = e.DataRow
    If dr.IsNull(e.DataCol.Name) Then

    Else
        Dim d As Date = "2018-1-1"
        Dim d1 As Date = dr(e.datacol.name)
        If d1 >= d Then
            e.datarow("备注1") = "长期有效"
        End If
    End If
End If

2、

If e.DataCol.Name.contains("截止日期") OrElse e.DataCol.name = "出生年月" Then
    Dim dr As DataRow = e.DataRow
    If dr.IsNull(e.DataCol.Name) orElse dr.IsNull("出生年月")  Then

    Else
        Dim d As Date = dr("出生年月")
        Dim d1 As Date = dr(e.datacol.name)
        Dim y As Integer = d.year

        Dim nl As Integer
        If format(d, "MMdd") <= Format(d1, "MMdd") Then
            nl = d1.year - y
        Else
            nl = d1.Year - y -1
        End If

        If nl >= 50 Then e.datarow("备注2") = "年满50周岁"
    End If
End If