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

 

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

 

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

不好意思呀老师，这个数据不能外传，按您说的我把出生日期已经提取出来了。现在增加了三个列【初级年龄】【中级年龄】【高级年龄】，这三个的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

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”的转换无效，这是怎么回事？

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

 

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

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

试试改成这样

 

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 & ")"

好的，这回调出来了，之前是因为没有判断空值。老师牛人。