Select Case e.DataCol.name
Case "形不成竞争","面试排名","职位数","备注","进入体检比例","面试加权成绩"
dim lng as integer = math.round(e.DataRow("职位数")*e.DataRow("进入体检比例"),0)
If e.DataRow("形不成竞争") = False Then
e.DataRow("是否进入体检") = e.DataRow("面试排名")<= lng
else
if e.datarow.isnull("备注") = false then
e.DataRow("是否进入体检") = e.DataRow("面试加权成绩") >= e.DataRow("备注")
end if
end if
End Select