主题：筛选条件问题

    If e.DataRow.IsNull("身份证号码") Then '身份证号码是否为空
        e.DataRow("出生日期") = Nothing '如果为空,则清除出生日期
    Else
        '否则从身份证号码列中提取出生日期
        e.DataRow("出生日期") = ReadBirthday(e.DataRow("身份证号码"))
    End If
End If

If e.DataCol.Name = "出生日期" Then
    If e.DataRow.IsNull("出生日期") Then '如果没有输入出生日期
        e.DataRow("年龄") = Nothing '则清空年龄
    Else
        '否则计算年龄
        e.DataRow("年龄") = Date.Today.Year - e.DataRow("出生日期").Year
    End If
End If

Filter = "易返贫致贫户监测对象类型 = '突发严重困难户' Or '边缘易致贫户' Or '脱贫不稳定户'  And 年龄 > 6 And 年龄< 15 在校生状况 not（小学 or 七年级 or 八年级 or 九年级） And 失学辍学原因 Is null"