I have trouble placing the VB script that works in the Calculate Field tool in the Toolbox in VB.net Here is the VB script dim getValue if [FName] = "xxxx" then getValue = [Distance] -40 else getValue = [Distance] end if here is my VB.net code. I have trouble to place the "Code Block" in VB.net. Dim gpCalField1 As ESRI.ArcGIS.DataManagementTools.CalculateField = New ESRI.ArcGIS.DataManagementTools.CalculateField() Dim blockCode As String = "dim getValue" & vbNewLine & "If [FName] = " & """xxxx""" & "Then" & vbNewLine & "getValue = [Distance] - 40" & vbNewLine & "Else" & vbNewLine & "getValue = [Distance]" & vbNewLine & "End If" gpCalField1.in_table = pgdbLocate & "\SurveyIntersect_Locate" gpCalField1.field = "FSTA" gpCalField1.expression = "getvalue" 'gpCalField1.code_block = """dim getValue If [FC_Name] = "" & ""Culvert"" & Then getValue = [MEAS] - 40 Else getValue = [MEAS] End If""" gpCalField1.code_block = blockCode gpCalField1.expression_type = "VB" gp.Execute(gpCalField1, Nothing) Thank you in advance. RH
... View more