CalculatField code_block in VB.net. Please help

HongSun — Thu, 26 Jul 2012 12:34:03 GMT

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

Re: CalculatField code_block in VB.net. Please help

FengZhang2 — Thu, 26 Jul 2012 22:29:27 GMT

You need a space before 'Then'.

Dim blockCode As String = "dim getValue" & vbNewLine & "If [FName] = " & """xxxx""" & " Then" & vbNewLine & "getValue = [Distance] - 40" & vbNewLine & "Else" & vbNewLine & "getValue = [Distance]" & vbNewLine & "End If"

topic CalculatField code_block in VB.net. Please help in ArcObjects SDK Questions

CalculatField code_block in VB.net. Please help

Re: CalculatField code_block in VB.net. Please help