楼主，你应该在 成本核算表 的datacolchanged事件里加入下面这段代码的
If e.DataCol.Name = "订单数量" Then
Dim r As DataRow = e.DataRow
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
End If
加好友 
发短信
Post By：2014/2/26 19:22:00 [显示全部帖子]
