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

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

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

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

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

这一大坨,看得好晕. 能不能说下出现什么错误?  最好能上个例子.

全部是DataCols和DataCols比较相加？
 
楼主最基本的概念还没有掌握，回头看三遍帮助再动手吧。
 
看帮助一定要按顺序，头一两遍可以不求甚解，第三遍开始要将每个例子实际操作演练一遍，不明白的就上论坛求助。
三遍之后才开始做系统，先设计好表，想做什么功能，就做什么功能，遇到问题在帮助找答案，找不到的在论坛提问，不断遇到问题，不断解决问题，慢慢就熟悉了。
此外一定要先掌握《使用指南》，然后再看《开发指南》

错误提示，如上所示
此主题相关图片如下：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

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

狐狸爸爸 在吗？

你要算到哪里去了? 该窗口密密麻麻各种控件.

错误提示已经告诉你了，DataTable没有DataRow成员。

 

这样的代码：

DataTables("成本核算表").DataRow("面料_附加费上限")  

 

 

我真不知道如何帮你改，你用的时间也不短了，感觉就像今天才开始用一样。