if e.DataCol.Name = "单位" then dim dr as datarow = DataTables("学籍注册").Find("[单位] = '" & e.datarow("单位") & "'") if dr isnot nothing then e.datarow("毕业人数") = dr("毕业人数") else e.datarow("毕业人数") = nothing end if dim bys as Integer = DataTables("tja").Compute("Sum(毕业人数)") dim syzx as Integer = DataTables("tja").Compute("Sum(毕业人数)", "[高中招生学校] = '实验中学'") dim pjzx as Integer = DataTables("tja").Compute("Sum(毕业人数)", "[高中招生学校] = '屏锦中学'") dim yyzx as Integer = DataTables("tja").Compute("Sum(毕业人数)", "[高中招生学校] = '袁驿中学'") dim flzx as Integer = DataTables("tja").Compute("Sum(毕业人数)", "[高中招生学校] = '福禄中学'") if e.datarow("高中招生学校") = "实验中学" then e.datarow("实验中学") = 170 / syzx * e.datarow("毕业人数") elseif e.datarow("高中招生学校") = "屏锦中学" then e.datarow("屏锦中学") = 270 / pjzx * e.datarow("毕业人数") elseif e.datarow("高中招生学校") = "袁驿中学" then e.datarow("袁驿中学") = 120 / yyzx * e.datarow("毕业人数") elseif e.datarow("高中招生学校") = "福禄中学" then e.datarow("福禄中学") = 120 / flzx * e.datarow("毕业人数") end if end if
|