|
Select Case e.DataCol.Name
Case "价格","客户等级" '判断触发的列名
Dim dr As DataRow
dr = DataTables("折扣").find("客户等级 = '" & e.DataRow("客户等级") & "'") '折扣表找到客户等级等于当前行客户等级的行
If dr IsNot Nothing Then '判断DR不是空也就是确认有找到行
If e.DataRow("价格") > 1000 Then ＇判断一下当前行的价格是否大于１０００
e.DataRow("折扣后") = e.DataRow("价格") * dr("折扣一") ＇是的话折扣后等于 价格*找到的行的折扣一
Else
e.DataRow("折扣后") = e.DataRow("价格") * dr("折扣二") '否则,也就是小于1000 *找到行的折扣二
End If
End If
End Select
|
加好友 
发短信
Post By：2015/5/13 9:10:00 [显示全部帖子]
