topic Re: how to get the value of IField ???? in ArcObjects SDK Questions

how to get the value of IField ????

AbdulrahmanAlqasim — Fri, 09 Jul 2010 13:39:25 GMT

i want to get the field value of a feature class using this code:

pFeature = pFeatureCursor.NextFeature();
pField = pFeature.Fields.get_Field(0);

how i can get the value of pField.
thank you

Re: how to get the value of IField ????

JamesCrandall — Sun, 12 Dec 2021 02:08:48 GMT

You could just get the value right from pFeature:

Dim value as String
pFeature = pFeatureCursor.NextFeature
Do Until pFeature Is Nothing
  value = pFeature.Value(pFeature.Fields.FindField("TheFieldName"))
  pFeature = pFeatureCursor.NextFeature
Loop

Re: how to get the value of IField ????

AbdulrahmanAlqasim — Fri, 09 Jul 2010 20:39:39 GMT

thanks man
that was very helpful

Re: how to get the value of IField ????

JamesCrandall — Fri, 09 Jul 2010 23:09:42 GMT

No problem -- glad I could help.

Re: how to get the value of IField to Word document ????

pavankalvala — Tue, 17 May 2011 16:14:04 GMT

I am able to get the value of a field name "FID" in a message box. I am trying to put this value into a word doc Bookmark.

How can I do this. Any help.

Code I used to get the field value of "FID":

M = pFeat.Value(pFeat.Fields.FindField("FID"))
pFeat = pEnumFeat.Next
MsgBox(M) /// I need this value shown in message box pulled into a word doc bookmark.

Re: how to get the value of IField ????

pavankalvala — Tue, 17 May 2011 16:14:53 GMT

Is there a code to loop through the field names from a selected feature?

Re: how to get the value of IField ????

AlexanderGray — Tue, 17 May 2011 16:37:21 GMT

If you just want to loop through all the values you could do something like this

feature = get feature with the method of your choice
i = 0
for i to feature.fields.count -1
theValue = feature.value(i)
theFieldName = feature.fields.field(i)

Of course you have to be careful the way you handle the field values, you will be getting objectids, shapes, integers, strings and probably dbnulls.

Cheers

Re: how to get the value of IField ????

pavankalvala — Tue, 17 May 2011 19:14:30 GMT

I am able to get the field name through the loop as below:

pEnumFeat = pMxdoc.FocusMap.FeatureSelection
        pFeat = pEnumFeat.Next

        ' loop through each field and add the field name to a list
        For ii = 0 To fields.FieldCount - 1
            Field = fields.Field(ii)
            fieldname = Field.Name
            fieldvalue = Field.VarType
            ' fieldvalue = pFeat.Value(pFeat.Fields.Field)       '' trying to get the field value
            'value = Field.DefaultValue                               '' trying to get the field value

            namelist = namelist & fieldname & fieldvalue & Chr(13)
        Next
MsgBox(namelist, , "field names")

This displays all the fields from the selected feature. How do I get the field value from the above loop.

Re: how to get the value of IField ????

AlexanderGray — Tue, 17 May 2011 19:19:54 GMT

pEnumFeat = pMxdoc.FocusMap.FeatureSelection
pFeat = pEnumFeat.Next

' loop through each field and add the field name to a list
For ii = 0 To fields.FieldCount - 1
Field = fields.Field(ii)
fieldname = Field.Name
fieldvalue = pFeat.Value(ii)

Re: how to get the value of IField ????

pavankalvala — Tue, 17 May 2011 19:37:23 GMT

I tried that, but I get an error ' conversion from type '_ComObject' to type 'Long' is not valid'

I set the value as :

Dim value as long. ( I tried using 'string', 'double', 'long' and I get the same error as above)

Any hint?

Re: how to get the value of IField ????

pavankalvala — Tue, 17 May 2011 20:07:26 GMT

Here is the full code: (upon selecting a feature, it should display field name and field values)

Public Overrides Sub OnMouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Integer, ByVal Y As Integer)

        Dim pMxdoc As IMxDocument
        Dim pActiveView As IActiveView
        Dim pEnumLayer As IEnumLayer
        Dim pLayer As ILayer
        Dim pFlayer As IFeatureLayer
        Dim pFeatureSelection As IFeatureSelection
        Dim pSelectionSet As ISelectionSet
        Dim pEnumFeat As IEnumFeature
        Dim pFeat As IFeature
        Dim MC As Double
        Dim pFeatSel As IFeatureSelection
        Dim pMap As IMap
        Dim pfeatureclass As IFeatureClass
        Dim fields As IFields
        Dim C As Long
        Dim ii As Long
        Dim Field As IField
        Dim intFldIndex As Integer
        Dim fieldname As String
        Dim fieldvalue As Integer
        Dim value As Long              // should it be different (string/integer/double or what?)
        Dim a As Integer
        Dim namelist As String

        pMxdoc = m_application.Document
        pActiveView = pMxdoc.FocusMap
        pMap = pMxdoc.FocusMap
        pFlayer = pMxdoc.SelectedLayer
        pfeatureclass = pFlayer.FeatureClass
        fields = pfeatureclass.Fields
        pFeatureSelection = pFlayer
        pSelectionSet = pFeatureSelection.SelectionSet

        ' verify the name of the selected layer
        Dim count As Integer
        count = pSelectionSet.Count
        If pSelectionSet.Count <> 0 Then
            MsgBox("You have have selected:   " & pFlayer.Name)
        End If

        ' get the field count
        C = fields.FieldCount
        MsgBox("There are:   " & C & "fields in this layer")

        pEnumFeat = pMxdoc.FocusMap.FeatureSelection
        pFeat = pEnumFeat.Next

        ' loop through each field and add the field name to a list
        For ii = 0 To fields.FieldCount - 1
            Field = fields.Field(ii)
            fieldname = Field.Name
            fieldvalue = Field.VarType
            value = pFeat.Value(ii)               // having trouble in getting the value
            namelist = namelist & fieldname & value & Chr(13)
        Next

        ' diaplay the list of field names in a messagebox
        MsgBox(namelist, , "field names")

        ' loop to get the field value
        'For a = 0 To pFeat.Fields.FieldCount - 1
        '    value = pFeat.Value(a)
        '    namelist = namelist & value & Chr(13)
        'Next

        'MsgBox(namelist, , "field value")


    End Sub

Re: how to get the value of IField ????

AlexanderGray — Wed, 18 May 2011 12:55:47 GMT

Yes the value could be any type. In fact different fields will have different types. The IField.Type will get you the field type and allow you do what you need to with the value. If you need to deal with all the values in the same way, string is probably the most flexible type you can use. However casting a shape or a blob to a string can yield unpredictable results, you need to check the field type and handle those (I usually just use the word "Shape" or "Blob" or "raster" if I need a string.) Dates also need to be converted to string with the pattern of your choice.

Further mode. if any of your rows have null values in them, the code won't work, you need to declare the value variable as object and check if the it is dbnull.value (in .net), trying to cast dbnull value to string causes an exception.

Re: how to get the value of IField through config file ????

pavankalvala — Wed, 08 Jun 2011 22:44:24 GMT

I have code below to pull field value from a feature selction onto a word document template. Instead of hard coding the field names, I would like to go through config file. How can this be done.

Here is the code below:

Public Overrides Sub OnMouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Integer, ByVal Y As Integer)

        Dim pMxdoc As IMxDocument
        Dim pActiveView As IActiveView
        Dim pEnumLayer As IEnumLayer
        Dim pLayer As ILayer
        Dim pFlayer As IFeatureLayer
        Dim pFeatureSelection As IFeatureSelection
        Dim pSelectionSet As ISelectionSet
        Dim pEnumFeat As IEnumFeature
        Dim pEnumFeatSet As IEnumFeatureSetup
        Dim pFeat As IFeature
        Dim A As Double
        Dim B As String
        Dim B1 As String

        Dim pFeatSel As IFeatureSelection
        Dim pMap As IMap
        Dim pfeatureclass As IFeatureClass
        Dim fields As IFields
        Dim C As Long
        Dim ii As Long
        Dim Field As IField
        Dim intFldIndex As Integer
        Dim fieldname As String
        Dim fieldvalue As Integer
        Dim value As String
        Dim namelist As String
        Dim wdApp As Microsoft.Office.Interop.Word.Application
        Dim mydoc As Microsoft.Office.Interop.Word.Document
        Dim mywdRange As Microsoft.Office.Interop.Word.Range

        pMxdoc = m_application.Document
        pActiveView = pMxdoc.FocusMap
        pMap = pMxdoc.FocusMap
        pFlayer = pMxdoc.SelectedLayer
        pfeatureclass = pFlayer.FeatureClass
        fields = pfeatureclass.Fields
        pFeatureSelection = pFlayer
        pSelectionSet = pFeatureSelection.SelectionSet


        ' Verify that there is at least 1 layer in the TOC
        If pMap.LayerCount < 1 Then
            MsgBox("Must have at least 1 layer in your map.")
            Exit Sub
        End If

        ' verify the name of the selected layer
        Dim count As Integer
        count = pSelectionSet.Count
        If pSelectionSet.Count <> 0 Then
            MsgBox("You have have selected:   " & pFlayer.Name)
        End If

        ' get the field count
        C = fields.FieldCount
        MsgBox("There are:   " & C & "fields in this layer")

        pEnumFeat = pMxdoc.FocusMap.FeatureSelection
        'pFeat = pEnumFeat.Next

        pEnumFeatSet = pEnumFeat
        pEnumFeatSet.AllFields = True
        pFeat = pEnumFeat.Next

        ' loop through each field and add the field name to a list
        For ii = 0 To fields.FieldCount - 1
            Field = fields.Field(ii)
            fieldname = Field.Name                  ' this gives the field name
            value = pFeat.Value(ii).ToString      ' this gives the field value
            namelist = namelist & fieldname & value & Chr(13)
        Next

        ' diaplay the list of field names in a messagebox
        MsgBox(namelist, , "field names and value")


        ' loop through to get value of FID
        Do While (Not pFeat Is Nothing)
A = pFeat.Value(pFeat.Fields.FindField("UFO_ID"))    // @@@@ want to get this through config file
B = pFeat.Value(pFeat.Fields.FindField("DATECREATE"))

            pFeat = pEnumFeat.Next
            'MsgBox(A)
        Loop

        ' opening word doc with the field values inside the word bookmarks
        wdApp = New Microsoft.Office.Interop.Word.Application
        With wdApp
            .Visible = True
            .WindowState = WdWindowState.wdWindowStateMaximize
        End With

        mydoc = wdApp.Documents.Add(Template:="C:\Documents and Settings\ZQ3079\Mobile project\ExportWord(VB)\Audit Form Final.doc")
        With mydoc.Bookmarks
            .Item("A").Range.InsertAfter(A)   ' "A" is bookmark name in word document
            .Item("C").Range.InsertAfter(B)   ' "C" is bookmark name in word document

        End With
    End Sub

Let me know.

Re: how to get the value of IField ????

pavankalvala — Mon, 13 Jun 2011 23:24:01 GMT

I am populating field values from selected features onto a word document bookmark. I need code help in assigning the value to the bookmark range in c#.

Here is the code I am currently working with C#.

// opening word application
wdApp = new Microsoft.Office.Interop.Word.Application();
wdApp.Visible = true;
wdApp.WindowState = WdWindowState.wdWindowStateMaximize;

// opening the word document from config file
wddoc = wdApp.Documents.Add(ConfigurationSettings.AppSettings["WordDocumentPath"]);

{
   var with = wddoc.Bookmarks;

with.item("A").Range.InsertAfter(A);    // @@@ help here:
                         }
        }

with.item is not acceptable in the c#. getting error at . item. What do I write In order to make it work in C#. Please help.