- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 请高手帮我看一下，这段代码哪里有错误。 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=46632)
-- 发布时间：2014/2/26 15:09:00
-- 请高手帮我看一下，这段代码哪里有错误。
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
上面这段代码，我要表达的意思是：
如果 订单数量≤附加费下限 则 单价=供应商报价+放样费+小缸费+描稿费+开版费
如果 附加费下限<订单数量≤附加费上限， 则 单价=供应商报价+放样费+描稿费+开版费
如果 订单数量 >附加费上限 则 单价=供应商报价
请狐狸爸爸 和各为高手帮我看一下，代码哪里出现了错误？谢谢
-- 发布时间：2014/2/26 15:12:00
--
这一大坨,看得好晕. 能不能说下出现什么错误? 最好能上个例子.
-- 发布时间：2014/2/26 15:14:00
--
全部是DataCols和DataCols比较相加？
楼主最基本的概念还没有掌握，回头看三遍帮助再动手吧。
看帮助一定要按顺序，头一两遍可以不求甚解，第三遍开始要将每个例子实际操作演练一遍，不明白的就上论坛求助。
三遍之后才开始做系统，先设计好表，想做什么功能，就做什么功能，遇到问题在帮助找答案，找不到的在论坛提问，不断遇到问题，不断解决问题，慢慢就熟悉了。
此外一定要先掌握《使用指南》，然后再看《开发指南》
-- 发布时间：2014/2/26 15:17:00
--
错误提示，如上所示
此主题相关图片如下：qq截图20140226151613.png
-- 发布时间：2014/2/26 15:22:00
--
写错了，应该是：
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
-- 发布时间：2014/2/26 15:28:00
--
成本核算单_编辑 窗口 的 AfterLoad 中 想实现这样的效果：
如果 订单数量≤附加费下限 则 单价=供应商报价+放样费+小缸费+描稿费+开版费
如果 附加费下限<订单数量≤附加费上限， 则 单价=供应商报价+放样费+描稿费+开版费
如果 订单数量 >附加费上限 则 单价=供应商报价
请狐狸爸爸和各为高手帮我看一下。谢谢！
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:cptims.foxdb |
-- 发布时间：2014/2/26 15:42:00
--
狐狸爸爸，帮我看一下啊，这是帮公司做的一个东西，十万火急！谢谢
-- 发布时间：2014/2/26 15:49:00
--
狐狸爸爸 在吗？
-- 发布时间：2014/2/26 15:50:00
--
你要算到哪里去了? 该窗口密密麻麻各种控件.
-- 发布时间：2014/2/26 15:51:00
--
错误提示已经告诉你了，DataTable没有DataRow成员。
这样的代码：
DataTables("成本核算表").DataRow("面料_附加费上限")
我真不知道如何帮你改，你用的时间也不短了，感觉就像今天才开始用一样。