topic Re: Multiple line return of multiple VB if then statements in Data Management Questions

Multiple line return of multiple VB if then statements

GrantHaynes — Wed, 19 Apr 2017 14:33:42 GMT

I've been tasked with creating labels for some monitoring wells, the labels are the well name and then a list of a years worth of sulfate concentrations in each well, this is easy enough to do, however they want the text to be red if the sulfate value is above a certain concentration. I wrote a vbscript block with multiple if then statements to try to achieve this, and while it shows no errors, it only returns the results of the last if/then statement. What am I missing? I imagine it may need some kind of instruction to return each individual statement?

Function FindLabel ([Well_Nme], [Total_Sulfate_3_16], [Total_Sulfate_6_16], [Total_Sulfate_9_16], [Total_Sulfate_12_16])
FindLabel="<BOL><UND>"&[Well_Nme]&"</UND></BOL>"
if ( [Total_Sulfate_3_16]=>250000) then
FindLabel= "<CLR red='255'>"& [Total_Sulfate_3_16] &"</CLR>"
elseif ([Total_Sulfate_3_16] <250000) then
Findlabel = [Total_Sulfate_3_16]
end if
if ([Total_Sulfate_6_16] =>250000) then
FindLabel = "<CLR red='255'>"& [Total_Sulfate_6_16] &"</CLR>"
elseif ( [Total_Sulfate_6_16] <250000) then
Findlabel = [Total_Sulfate_6_16]
end if
if ( [Total_Sulfate_9_16] =>250000) then
FindLabel = "<CLR red='255'>"& [Total_Sulfate_9_16] &"</CLR>"
elseif ( [Total_Sulfate_9_16] <250000) then
Findlabel = [Total_Sulfate_9_16]
end if
if ( [Total_Sulfate_12_16]=>250000) then
FindLabel = "<CLR red='255'>"& [Total_Sulfate_12_16] &"</CLR>"
elseif ( [Total_Sulfate_12_16]<250000) then
Findlabel = [Total_Sulfate_12_16]
end if
End Function

Re: Multiple line return of multiple VB if then statements

JimCousins — Wed, 19 Apr 2017 14:57:51 GMT

Rather than stand-alone If statments, use the If...elseif...elseif format structure.

Regards,

Jim

Re: Multiple line return of multiple VB if then statements

AbdullahAnter — Wed, 19 Apr 2017 21:49:59 GMT

What is your program that you use? ArcGIS desktop,Pro , ..?

Re: Multiple line return of multiple VB if then statements

GrantHaynes — Thu, 20 Apr 2017 12:29:27 GMT

Desktop

Re: Multiple line return of multiple VB if then statements

JimCousins — Thu, 20 Apr 2017 13:17:05 GMT

After a second look, I know that arcMap typically uses ">=" instead of "=>", and the "=>" will generate problems with query expression. Perhaps that is preventing you from getting the results you expect?

Re: Multiple line return of multiple VB if then statements

TedKowal — Fri, 10 Dec 2021 20:30:52 GMT

Function FindLabel ([Well_Nme], [Total_Sulfate_3_16], [Total_Sulfate_6_16], [Total_Sulfate_9_16], [Total_Sulfate_12_16])
     FindLabel="<BOL><UND>"&[Well_Nme]&"</UND></BOL>" & vbcr
     if ( [Total_Sulfate_3_16]>=250000) then
          FindLabel= FindLabel & "<CLR red='255'>"& [Total_Sulfate_3_16] &"</CLR>" & vbcr
     else 
          FindLabel = Findlabel & [Total_Sulfate_3_16] & vbcr
     end if 
     if ([Total_Sulfate_6_16] >=250000) then
          FindLabel = FindLabel & "<CLR red='255'>"& [Total_Sulfate_6_16] &"</CLR>" & vbcr
     else 
          FindLabel = FindLabel & [Total_Sulfate_6_16] & vbcr
     end if
     if ( [Total_Sulfate_9_16] >=250000) then
          FindLabel = Findlabel & "<CLR red='255'>"& [Total_Sulfate_9_16] &"</CLR>" & vbcr
     else
          FindLabel = Findlabel & [Total_Sulfate_9_16] & vbcr
     end if
     if ( [Total_Sulfate_12_16]>=250000) then
          FindLabel = FindLabel & "<CLR red='255'>"& [Total_Sulfate_12_16] &"</CLR>"
     else
          FindLabel = FindLabel & [Total_Sulfate_12_16] 
     end if
End Function‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍

In your code every time you set FindLabel you are erasing the previous values.... you only needed to set FindLabel = Findlabel & "whatever else you wanted to add on"