-- 作者:唐尸三摆手
-- 发布时间:2013/12/29 15:11:00
--
\'datacolchanged事件
select case e.datacol.name
case "减合格工序"
if e.newvalue isnot nothing then
dim gxs as string = e.newvalue
if gxs.contains(",") then
Dim bl As String For i As Integer = 0 To gxs.Split(",").Length - 1 bl = bl & ",1" Next e.datarow("比例1") = bl.Trim(",")
else
e.datarow("比例1") = "1"
end if
end if
end select
大概如此,未经测试,楼主可亲自试验一下。
|