请高手帮我看一下，这段代码哪里有错误。 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请高手帮我看一下，这段代码哪里有错误。

共有3900人关注过本帖树形打印复制链接主题：请高手帮我看一下，这段代码哪里有错误。

akzzwj

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

加好友

发短信

等级：二尾狐帖子：529 积分：3605 威望：0 精华：0 注册：2011/10/11 17:20:00

Post By：2014/2/26 16:00:00 [只看该作者]

If Tables("成本核算表").Rows("订单数量") < Tables("成本核算表").Rows("面料_附加费下限") Or Tables("成本核算表").Rows("订单数量") = Tables("成本核算表").Rows("面料_附加费下限") Then
    Tables("成本核算表").Rows("单价") = Tables("成本核算表").Rows("面料_供应商报价") + Tables("成本核算表").Rows("面料_放样费")+Tables("成本核算表").Rows("面料_小缸费")+Tables("成本核算表").Rows("面料_描稿费")+Tables("成本核算表").Rows("面料_开版费")
ElseIf Tables("成本核算表").Rows("订单数量") > Tables("成本核算表").Rows("面料_附加费下限") Or Tables("成本核算表").Rows("订单数量") < Tables("成本核算表").Rows("面料_附加费上限") Or Tables("成本核算表").Rows("订单数量") = Tables("成本核算表").Rows("面料_附加费上限")    Then
    Tables("成本核算表").Rows("单价") = Tables("成本核算表").Rows("面料_供应商报价") + Tables("成本核算表").Rows("面料_放样费")+Tables("成本核算表").Rows("面料_描稿费")+Tables("成本核算表").Rows("面料_开版费")
Else
     Tables("成本核算表").Rows("单价") = Tables("成本核算表").Rows("面料_供应商报价")
End If

那这样写，怎么还是出错啊。

长时间没有用，很多都忘记了。

狐狸爸爸，各为高手，帮我看一下！谢谢

akzzwj

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

加好友

发短信

等级：二尾狐帖子：529 积分：3605 威望：0 精华：0 注册：2011/10/11 17:20:00

Post By：2014/2/26 16:02:00 [只看该作者]

If Tables("成本核算表").Cols("订单数量") < Tables("成本核算表").Cols("面料_附加费下限") Or Tables("成本核算表").Cols("订单数量") = Tables("成本核算表").Cols("面料_附加费下限") Then
    Tables("成本核算表").Cols("单价") = Tables("成本核算表").Cols("面料_供应商报价") + Tables("成本核算表").Cols("面料_放样费")+Tables("成本核算表").Cols("面料_小缸费")+Tables("成本核算表").Cols("面料_描稿费")+Tables("成本核算表").Cols("面料_开版费")
ElseIf Tables("成本核算表").Cols("订单数量") > Tables("成本核算表").Cols("面料_附加费下限") Or Tables("成本核算表").Cols("订单数量") < Tables("成本核算表").Cols("面料_附加费上限") Or Tables("成本核算表").Cols("订单数量") = Tables("成本核算表").Cols("面料_附加费上限")    Then
    Tables("成本核算表").Cols("单价") = Tables("成本核算表").Cols("面料_供应商报价") + Tables("成本核算表").Cols("面料_放样费")+Tables("成本核算表").Cols("面料_描稿费")+Tables("成本核算表").Cols("面料_开版费")
Else
     Tables("成本核算表").Cols("单价") = Tables("成本核算表").Cols("面料_供应商报价")
End If

这样写，怎么还是出错啊？？

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47448 积分：251054 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2014/2/26 16:06:00 [只看该作者]

呵呵，我只能蒙一下了：

For Each r As Row In Tables("成本核算表").Rows
    If r("订单数量") < r("面料_附加费下限") Or r("订单数量") = r("面料_附加费下限") Then
        r("单价") = r("面料_供应商报价") + r("面料_放样费")+r("面料_小缸费")+r("面料_描稿费")+r("面料_开版费")
    ElseIf r("订单数量") > r("面料_附加费下限") Or r("订单数量") < r("面料_附加费上限") Or r("订单数量") = r("面料_附加费上限")    Then
        r("单价") = r("面料_供应商报价") + r("面料_放样费")+r("面料_描稿费")+r("面料_开版费")
    Else
        r("单价") = r("面料_供应商报价")
    End If
Next