如果是空值，这个条件不成立 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如果是空值，这个条件不成立

共有3170人关注过本帖树形打印复制链接主题：如果是空值，这个条件不成立

有点蓝

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

加好友

发短信

等级：超级版主帖子：109489 积分：557107 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/11/11 15:03:00 [显示全部帖子]

if dr.isnull("权限条件一")

Tables("了").OpenLoadTree(dr("权限加载列名"),dr("权限加载尺寸"), , ," 日期 >= #" & Date.Today.AddDays(dr("权限加载时间")) & "#")

else

Tables("了").OpenLoadTree(dr("权限加载列名"),dr("权限加载尺寸"), , ," 日期 >= #" & Date.Today.AddDays(dr("权限加载时间")) & "# And 第三列 = '" & (dr("权限条件一")) & "' ")

end if

有点蓝

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

加好友

发短信

等级：超级版主帖子：109489 积分：557107 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/11/11 15:24:00 [显示全部帖子]

http://www.foxtable.com/webhelp/topics/0223.htm

有点蓝

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

加好友

发短信

等级：超级版主帖子：109489 积分：557107 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/11/11 16:32:00 [显示全部帖子]

For Each dr As DataRow In DataTables("表权限").Select(" 表名 = '了'" )

If dr.isnull("权限条件一") Then

If dr.isnull("权限条件二") Then

Tables("了").OpenLoadTree(dr("权限加载列名"),dr("权限加载尺寸"), , ," 日期 >= #" & Date.Today.AddDays(dr("权限加载时间")) & "#")

Else

Tables("了").OpenLoadTree(dr("权限加载列名"),dr("权限加载尺寸"), , ," 日期 >= #" & Date.Today.AddDays(dr("权限加载时间")) & "# And 第四列 = '" & (dr("权限条件二")) & "' ")

End If

ElseIf dr.isnull("权限条件二") Then

Else

Tables("了").OpenLoadTree(dr("权限加载列名"),dr("权限加载尺寸"), , ," 日期 >= #" & Date.Today.AddDays(dr("权限加载时间")) & "# And 第三列 = '" & (dr("权限条件一")) & "' And 第四列 = '" & (dr("权限条件二")) & "' ")

End If

有点蓝

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

加好友

发短信

等级：超级版主帖子：109489 积分：557107 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/11/12 8:44:00 [显示全部帖子]

一样的逻辑，多嵌套几层if判断

有点蓝

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

加好友

发短信

等级：超级版主帖子：109489 积分：557107 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/11/12 10:05:00 [显示全部帖子]

或者考虑参考这里的方法生成查询条件：http://www.foxtable.com/webhelp/topics/1058.htm

有点蓝

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

加好友

发短信

等级：超级版主帖子：109489 积分：557107 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/11/12 10:44:00 [显示全部帖子]

换种方式生成查询条件：http://www.foxtable.com/webhelp/topics/1058.htm

不然每增加一个条件，都要嵌套n层，而且后面每个elseif里也要嵌套判断

If dr.isnull("权限加载时间") Then

If dr.isnull("权限条件一") Then

If dr.isnull("权限条件二") Then

Tables("进货退货").OpenLoadTree(dr("权限加载列名"),dr("权限加载尺寸"), , ," 日期 <= '" & Date.Today.AddDays(dr("权限加载时间")) & "'")

Else

Tables("进货退货").OpenLoadTree(dr("权限加载列名"),dr("权限加载尺寸"), , ," 日期 >='" & Date.Today.AddDays(dr("权限加载时间")) & "' And 对账品名 = '" & (dr("权限条件二")) & "' ")

End If

ElseIf dr.isnull("权限条件二") Then

If dr.isnull("权限条件一") Then

xxxx

else

xxxx

end if

ElseIf dr.isnull("权限条件一") Then

xxxx

Else

Tables("进货退货").OpenLoadTree(dr("权限加载列名"),dr("权限加载尺寸"), , ," 日期 >='" & Date.Today.AddDays(dr("权限加载时间")) & "' And 店名汉字 = '" & (dr("权限条件一")) & "' And 对账品名 = '" & (dr("权限条件二")) & "' ")

End If