- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 最低收费 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=175144)
-- 发布时间：2022/2/22 10:10:00
-- 最低收费
老师，请问：
<!--[if !supportLists]-->1、<!--[endif]-->代垫税金项下的值如果是490元，那么手续费则是490*0.1=49。问题是手续费的最低收费为50元。
<!--[if !supportLists]-->2、<!--[endif]-->代垫税金项下的值如果是510元，那么手续费则是510*0.1=51。按实际的金额。
<!--[if !supportLists]-->3、<!--[endif]-->代码该怎么写，谢谢！
-- 发布时间：2022/2/22 10:13:00
--
加一个判断，如果计算的结果小于50，就等于50
IIF(代垫税金 * 0.1 < 50,50,代垫税金 * 0.1)
-- 发布时间：2022/2/22 10:14:00
--
谢谢老师
-- 发布时间：2022/2/22 10:41:00
-- 请老师指点
-- 发布时间：2022/2/22 10:55:00
--
把代码文字发上来，截图没法直接改
e.datarow("手续费") = xxx计算
if e.datarow("手续费") < 50 then
e.datarow("手续费") = 50
end if
-- 发布时间：2022/2/22 10:58:00
--
Select Case e.DataCol.Name
Case "代垫税金","手续费","报关费","续页费","商检费","其他费用","应收","应付","毛利"
e.DataRow("手续费") = e.DataRow("代垫税金") * 0.1
e.DataRow("应收") = e.DataRow("代垫税金") + e.DataRow("手续费") + e.DataRow("报关费") + e.DataRow("续页费") + e.DataRow("商检费") + e.DataRow("其他费用")
e.DataRow("毛利") = e.DataRow("应收") - e.DataRow("应付")
End Select
IIf(代垫税金 * 0.1 < 50,50,代垫税金 * 0.1) \'加一个判断,如果计算的结果小于50,就等于50
-- 发布时间：2022/2/22 11:00:00
--
e.DataRow("手续费") = e.DataRow("代垫税金") * 0.1
if e.datarow("手续费") < 50 then
e.datarow("手续费") = 50
end if
-- 发布时间：2022/2/22 11:47:00
--
Select Case e.DataCol.Name
Case "代垫税金","手续费","报关费","续页费","商检费","其他费用","应收","应付","毛利"
e.DataRow("应收") = e.DataRow("代垫税金") + e.DataRow("手续费") + e.DataRow("报关费") + e.DataRow("续页费") + e.DataRow("商检费") + e.DataRow("其他费用")
e.DataRow("毛利") = e.DataRow("应收") - e.DataRow("应付")
If e.DataRow("手续费") < 50 Then
e.DataRow("手续费") = 50
End If
e.DataRow("手续费") = e.DataRow("代垫税金") * 0.1
End Select
\'IIf(代垫税金 * 0.1 < 50,50,代垫税金 * 0.1) \'加一个判断,如果计算的结果小于50,就等于50
是什么地方出错了！！！请老师帮修改一下，万分感谢！
-- 发布时间：2022/2/22 12:27:00
--
Select Case e.DataCol.Name
case "代垫税金"
e.DataRow("手续费") = e.DataRow("代垫税金") * 0.1
If e.DataRow("手续费") < 50 Then
e.DataRow("手续费") = 50
End If
end select
Select Case e.DataCol.Name
case "应收","应付"
e.DataRow("毛利") = e.DataRow("应收") - e.DataRow("应付")
Case "代垫税金","手续费","报关费","续页费","商检费","其他费用"
e.DataRow("应收") = e.DataRow("代垫税金") + e.DataRow("手续费") + e.DataRow("报关费") + e.DataRow("续页费") + e.DataRow("商检费") + e.DataRow("其他费用")
End Select
-- 发布时间：2022/2/22 13:22:00
--
可以了，谢谢老师！