- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 昨天没有解决的遗留问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=23846)
-- 发布时间：2012/9/21 15:34:00
-- 昨天没有解决的遗留问题
lin大说要建个数据,关于提到的解决方法都新建。帮忙看怎么写表达式
（更正还得到了muhua 的帮忙 表示感谢）
-- 发布时间：2012/9/21 15:48:00
--
表达式的话，比较麻烦，还是写一小段代码解决的比较好。
-- 发布时间：2012/9/21 15:58:00
-- 回复：（lin_hailun） 表达式的话，比较麻烦，还...
代码也可以。希望lin大指教
-- 发布时间：2012/9/21 16:04:00
--
增加了这段代码
Select Case e.DataCol.Name
Case "产品名称", "客户名称"
If e.DataRow("产品名称") <> "" AndAlso e.DataRow("客户名称") <> "" Then
Dim dr As DataRow = DataTables("特殊价格表").Find("特殊客户 = \'" & e.DataRow("客户名称") & "\' And 特殊品种 = \'" & e.DataRow("产品名称") & "\'", "_Identify desc")
If dr Is Nothing Then
Dim pdr As DataRow = e.DataRow.GetParentRow("产品表")
e.DataRow("单价") = pdr("价格")
Else
e.DataRow("单价") = dr("特殊单价")
End If
End If
End Select
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:实验.table |
-- 发布时间：2012/9/21 16:29:00
-- 回复：（lin_hailun） 增加了这段代码Select Cas...
lin大在哪里添加的？
（脸红中）
-- 发布时间：2012/9/21 16:39:00
--
如下图所示。
此主题相关图片如下：qq截图20120921163834.png
-- 发布时间：2012/9/21 16:59:00
--
lin大的修改中将原有的折扣除去了。
可不可以做个改进？
如果特殊价格表中没有特殊价格 则执行：全价*客户表里的折扣？
-- 发布时间：2012/9/21 17:22:00
--
lin大，如果这样修改一下会不会有问题？刚刚测试好像没什么问题 求理论
Select Case e.DataCol.Name
Case "产品名称", "客户名称"
If e.DataRow("产品名称") <> "" AndAlso e.DataRow("客户名称") <> "" Then
Dim dr As DataRow = DataTables("特殊价格表").Find("特殊客户 = \'" & e.DataRow("客户名称") & "\' And 特殊品种 = \'" & e.DataRow("产品名称") & "\'", "_Identify desc")
If dr Is Nothing Then
Dim pdr As DataRow = e.DataRow.GetParentRow("产品表")
Dim odr As DataRow = e.DataRow.getparentrow("客户表")
e.DataRow("单价") = pdr("价格") * odr("折扣")
Else
e.DataRow("单价") = dr("特殊单价")
End If
End If
End Select
-- 发布时间：2012/9/21 17:33:00
--
嗯嗯，楼主高明...
