主题：请高手帮我看一下，这段代码哪里有错误。

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

上面这段代码，我要表达的意思是：

如果 订单数量≤附加费下限 则 单价=供应商报价+放样费+小缸费+描稿费+开版费
如果 附加费下限<订单数量≤附加费上限， 则 单价=供应商报价+放样费+描稿费+开版费
如果 订单数量 >附加费上限 则 单价=供应商报价

请狐狸爸爸 和各为高手帮我看一下，代码哪里出现了错误？谢谢

错误提示，如上所示
此主题相关图片如下：qq截图20140226151613.png

写错了，应该是：

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

但还是出现这样的错误提示：

 

此主题相关图片如下：qq截图20140226152139.jpg

成本核算单_编辑 窗口 的 AfterLoad 中 想实现这样的效果：

如果 订单数量≤附加费下限 则 单价=供应商报价+放样费+小缸费+描稿费+开版费
如果 附加费下限<订单数量≤附加费上限， 则 单价=供应商报价+放样费+描稿费+开版费
如果 订单数量 >附加费上限 则 单价=供应商报价

 

 

请狐狸爸爸和各为高手帮我看一下。谢谢！

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:cptims.foxdb

狐狸爸爸，帮我看一下啊，这是帮公司做的一个东西，十万火急！谢谢

狐狸爸爸 在吗？

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

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

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

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

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

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

窗口中 输入数字测试 没有任何反应，请问这是怎么回事？

是列啊，不是行啊