加载条件 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 加载条件

共有2248人关注过本帖树形打印复制链接主题：加载条件

g1j2h3

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：354 积分：4345 威望：0 精华：0 注册：2016/4/30 10:41:00

加载条件

Post By：2016/8/8 22:53:00 [显示全部帖子]

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

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