老师，请看
Select Case e.DataCol.name
Case "网站显示_分店" ‘第一步：'提取门店结算码
If e.DataRow.IsNull("网站显示_分店") Then '是否为空
e.DataRow("门店结算码") = Nothing '如果为空,则清除
Else
Dim na As String = e.DataRow("网站显示_分店")
If na.Contains("分店合计") Then
na = na.Replace("分店合计:", "")
e.DataRow("门店结算码") = na
End If
End If
Case "门店结算码" 第二步：根据第一步提取的门店结算码来计算销售额 请教2：这一步的时候我需要重置此列才行，有没有办法改写下代码不用手动重置啊？
If e.newvalue Is Nothing Then
e.DataRow("后台销售统计_含税销售额") = Nothing
e.DataRow("后台销售统计_折扣率") = Nothing
e.DataRow("后台销售统计_折扣金额") = Nothing
e.DataRow("后台销售统计_开piao金额") = Nothing
e.DataRow("前台销售统计_含税销售额") = Nothing
e.DataRow("前台销售统计_折扣金额") = Nothing
e.DataRow("前台销售统计_折扣率") = Nothing
Else
Dim dr As DataRow
dr = DataTables("门店信息").Find("门店结算编号 = '" & e.newvalue & "'")
e.DataRow("后台销售统计_含税销售额") = e.DataRow("网站显示_不含税金额") * 1.13
e.DataRow("后台销售统计_折扣率") = dr("fa piao扣点_后台扣点")
e.DataRow("后台销售统计_折扣金额") = e.DataRow("后台销售统计_含税销售额") * e.DataRow("后台销售统计_折扣率")
e.DataRow("后台销售统计_开piao金额") = e.DataRow("后台销售统计_含税销售额") - e.DataRow("后台销售统计_折扣金额")
e.DataRow("前台销售统计_含税销售额") = e.DataRow("网站显示_不含税金额") / 0.84 * 1.13
e.DataRow("前台销售统计_折扣金额") = e.DataRow("前台销售统计_含税销售额") - e.DataRow("后台销售统计_含税销售额")
e.DataRow("前台销售统计_折扣率") = e.DataRow("前台销售统计_折扣金额") / e.DataRow("前台销售统计_含税销售额")
End If
End Select
加好友 
发短信
Post By：2015/11/3 22:49:00 [显示全部帖子]
