All pastes #773929 Raw Edit

Miscellany

public text v1 · immutable
·published 2007-11-14 21:35 UTC
rendered paste body
Function FindLabel ( [level1.Object_Nam],[level1.Top_Depth],[level1.Bottom_Dep], [level2.Top_Depth] , [level2.Bottom_Dep], [level3.Top_Depth],[level3.Bottom_Dep],[Level1.Label_leve],[Level1.PCE], [Level1.TCE],[Level2.Label_leve], [Level2.PCE], [Level2.TCE], [Level3.Label_leve] , [Level3.PCE], [Level3.TCE] )

sort1 = [Level1.Label_leve]
sort2 = [Level2.Label_leve]
sort3 = [Level3.Label_leve]

select case sort1
case "1"
FindLabel = [level1.Object_Nam] &vbNewLine & "(" &  [level1.Top_Depth] & " - " & [level1.Bottom_Dep] & "')" &vbNewLine& "<CLR red = '230' green = '0' blue = '0'>PCE: "&[Level1.PCE]&"</CLR>"&vbNewLine& "<CLR red = '230' green = '99' blue = '0'>TCE: " & [Level1.TCE]&"</CLR>"
end select

select case sort2
case "2"
FindLabel = [level1.Object_Nam] &vbNewLine & "(" &  [level1.Top_Depth] & " - " & [level1.Bottom_Dep] & "')" &vbNewLine& "<CLR red = '230' green = '0' blue = '0'>PCE: "&[Level1.PCE]&"</CLR>"&vbNewLine& "<CLR red = '230' green = '99' blue = '0'>TCE: " & [Level1.TCE]&"</CLR>"&vbNewLine&"(" &  [level2.Top_Depth] & " - " & [level2.Bottom_Dep] & "')"&vbNewLine&"<CLR red = '230' green = '0' blue = '0'>PCE: "&[Level2.PCE]&"</CLR>"&vbNewLine& "<CLR red = '230' green = '99' blue = '0'>TCE: " & [Level2.TCE]&"</CLR>"
end select

select case sort3
case "3"
FindLabel = [level1.Object_Nam] & vbNewLine & "(" &  [level1.Top_Depth] & " - " & [level1.Bottom_Dep] & "')" &vbNewLine& "<CLR red = '230' green = '0' blue = '0'>PCE: "&[Level1.PCE]&"</CLR>"&vbNewLine& "<CLR red = '230' green = '99' blue = '0'>TCE: " & [Level1.TCE]&"</CLR>"&vbNewLine&"(" &  [level2.Top_Depth] & " - " & [level2.Bottom_Dep] & "')"&vbNewLine&"<CLR red = '230' green = '0' blue = '0'>PCE: "&[Level2.PCE]&"</CLR>"&vbNewLine& "<CLR red = '230' green = '99' blue = '0'>TCE: " & [Level2.TCE]&"</CLR>" & vbNewLine & "(" &  [level3.Top_Depth] & " - " & [level3.Bottom_Dep] & "')"& vbNewLine & "<CLR red = '230' green = '0' blue = '0'>PCE: "&[Level3.PCE]&"</CLR>"&vbNewLine& "<CLR red = '230' green = '99' blue = '0'>TCE: " & [Level3.TCE]&"</CLR>"
end select


End Function