主题：加载条件

在下边这段代码中，还想增加一个条件（员工信息表中有个“离职日期”列，若没有填写，就加载，否则填写了离职日期，就不加载）请帮忙写个代码，谢谢！

DataTables("考勤表").LoadFilter = "日期 = '" & Date.Today & "'"
DataTables("考勤表").Load
If DataTables("考勤表").DataRows.count <= 0 Then
For Each dr As DataRow In DataTables("员工信息表").DataRows
        Dim dr2 As DataRow
        dr2 = DataTables("考勤表").AddNew()
        dr2("岗位代码") =  dr("岗位代码")
        dr2("岗位") =  dr("岗位")
        dr2("姓名") =  dr("姓名")
    Next
End If