select case e.datacol.name
case "从业人员","营业收入","行业名称"
dim cy as integer = e.datarow("从业人员")
dim yy as integer = e.datarow("
营业收入")
select case e.datarow("
行业名称")
case "工业"
if cy >= 200 andalso yy >= 40000 then
e.datarow("行业规模") = "大型"
elseif cy >= 20 andalso cy <200 andalso yy>=2000 andalso yy < 40000 then
e.datarow("
行业规模") = "
中型"
……
case "批发业"
if cy >= 1000 andalso yy >= 40000 then
e.datarow("行业规模") = "大型"
elseif cy >= 300 andalso cy <1000 andalso yy>=5000 andalso yy < 40000 then
e.datarow("
行业规模") = "
中型"
……