[求助]能否在循环代码中加一行判断？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]能否在循环代码中加一行判断？

共有1734人关注过本帖树形打印复制链接主题：[求助]能否在循环代码中加一行判断？

magus1123

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

加好友

发短信

等级：幼狐帖子：94 积分：862 威望：0 精华：0 注册：2017/7/9 3:59:00

[求助]能否在循环代码中加一行判断？ 发帖心情

Post By：2017/8/3 15:02:00 [只看该作者]

能否在循环代码中加一行判断？

想要实现的效果是：如果该行的“标签”列是“新品”，那么最后两行代码改成

dr1("库存预警_标准库存量") = dr1("库存预警_标准库存天数") * dr1("最高日销量")

dr1("库存预警_警戒库存量") = dr1("供应商_交货天数") * dr1("最高日销量")

原来的代码这这样的：

For Each dr1 As DataRow In DataTables("采购预警表").Select(filter) '在表格中的每一行都筛选一次

dr1("库存预警_标准订货天数") = dr1("供应商_起订量") / sum

dr1("库存预警_标准库存天数") = dr1("库存预警_标准订货天数") + dr1("供应商_交货天数")

dr1("库存预警_标准库存量") = dr1("库存预警_标准库存天数") * dr1("日均销量")

dr1("库存预警_警戒库存量") = dr1("供应商_交货天数") * dr1("日均销量")

magus1123

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

加好友

发短信

等级：幼狐帖子：94 积分：862 威望：0 精华：0 注册：2017/7/9 3:59:00

Post By：2017/8/3 15:42:00 [只看该作者]

求助

试过用if语句写

If dr1("标记") = "'%新品%'" Then dr1("库存预警_标准库存量") = dr1("库存预警_标准库存天数") * dr1("最高日销量")

If dr1("标记") = "'%新品%'" Then dr1("库存预警_警戒库存量") = dr1("供应商_交货天数") * dr1("最高日销量")

但是行不通。

再写多一个For Each运算就直接卡死了

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/8/3 16:03:00 [只看该作者]

For Each dr1 As DataRow In DataTables("采购预警表").Select(filter) '在表格中的每一行都筛选一次
    dr1("库存预警_标准订货天数") = dr1("供应商_起订量") / sum
    dr1("库存预警_标准库存天数") = dr1("库存预警_标准订货天数") + dr1("供应商_交货天数")
    If dr1("标记") Like "*新品*" Then
        dr1("库存预警_标准库存量") = dr1("库存预警_标准库存天数") * dr1("最高日销量")
        dr1("库存预警_警戒库存量") = dr1("供应商_交货天数") * dr1("最高日销量")
    Else
        dr1("库存预警_标准库存量") = dr1("库存预警_标准库存天数") * dr1("日均销量")
        dr1("库存预警_警戒库存量") = dr1("供应商_交货天数") * dr1("日均销量")
    End If

下一主题 >> << 上一主题

主题：[求助]能否在循环代码中加一行判断？