Dim gp2 As Geoprocessor = New Geoprocessor() Dim CalcField As ESRI.ArcGIS.DataManagementTools.CalculateField = New ESRI.ArcGIS.DataManagementTools.CalculateField() CalcField.in_table = pflayer CalcField.field = "Fault" CalcField.expression_type = "VB" CalcField.expression = "text" CalcField.code_block = "Dim text as String" & vbNewLine & _ "If [LOWEST_VAL] >-3 Then" & vbNewLine & _ "text = """ & vbNewLine & _ "ElseIf (( ([INSIDE_EDI]<=-3) OR ([OUTSIDE_ED] <=-3) ) AND ( ([NEARSIDE_C]>-3) AND ([FARSIDE_CO] >-3))) Then " & vbNewLine & _ "text = Edilon" & vbNewLine & _ "ElseIf (( ([NEARSIDE_C]<=-3) OR ([FARSIDE_CO] <=-3)) AND (( [INSIDE_EDI]>-3) AND ([OUTSIDE_ED] >-3)) )Then " & vbNewLine & _ "text = Concrete" & vbNewLine & _ "ElseIf ((( [NEARSIDE_C]<=-3) OR ([FARSIDE_CO] <=-3)) AND ( ([INSIDE_EDI]<=-3) OR ([OUTSIDE_ED] <=-3)) )Then " & vbNewLine & _ "text = Both" & vbNewLine & _ "end if" gp2.Execute(CalcField, Nothing)
Solved! Go to Solution.