- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]计算代码求助？ (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=109726)
-- 发布时间：2017/11/17 22:24:00
-- [求助]计算代码求助？
在业务估价表中
纸张费=纸张数量*纸张张价
其中，纸张单价有两种情况
1，当纸张名称 = 纸张价格表中的名称列中的值时，纸张张价需通过计算所得值，纸张张价= [纸张长]*0.001* [纸张宽]*0.001 *[克重]*0.001* [吨价]*0.001
2，当纸张名称 不等于 纸张价格表中的名称列中的值时，纸张单价为直接录入的值。
求DataColChanged事件代码设置
[此贴子已经被作者于2017/11/17 22:34:06编辑过]
-- 发布时间：2017/11/17 22:37:00
--
就是查询，然后计算，和其它的Datacolchanged代码有区别吗
Select Case e.DataCol.name
Case "纸张名称" ,"纸张数量"
Dim dr As DataRow
dr = DataTables("纸张价格表").Find("[名称] = \'" & e.DataRow("纸张名称") & "\'")
If dr IsNot Nothing
e.DataRow("纸张费") = e.DataRow("纸张数量") * e.DataRow("纸张长") * e.DataRow("纸张宽") * dr("克重") * dr("吨价") * 0.000000001
End If
End Select
[此贴子已经被作者于2017/11/17 22:37:20编辑过]
-- 发布时间：2017/11/17 22:51:00
--
谢谢老师，是我太笨了，还没完全掌握，基础不牢，我在努力中