如题，图片
在DataColChanged事件中将
Select case e.DataCol.Name
Case "客户ID","折扣"
dim dr as DataRow = e.DataRow
Dim pr as DataRow = DataTables("客户").Find("客户ID = '" & dr("客户ID") & "'")
IF pr IsNot Nothing AndAlso pr("客户等级") = "vip"
if dr("折扣") > 0.2 then
dr("折扣") = 0.2
end if
elseIf dr("折扣") > 0.15 then
dr("折扣") = 0.15
endif
end select
改到DataColChanging事件中
Select case e.DataCol.Name
Case "客户ID","折扣"
dim dr as DataRow = e.DataRow
Dim pr as DataRow = DataTables("客户").Find("客户ID = '" & dr("客户ID") & "'")
IF pr IsNot Nothing AndAlso pr("客户等级") = "vip"
if e.NewValue > 0.2 then
e.NewValue = 0.2
end if
elseif e.NewValue > 0.15 then
e.NewValue = 0.15
endif
end select
不就行了吗？麻烦吗？还是另有它意？
@狐狸爸爸 周老师说这部分是您写的，请您明示。
[此贴子已经被作者于2019/2/27 10:03:00编辑过]
加好友 
发短信
Post By：2019/2/26 17:07:00 [显示全部帖子]
