topic Re: Bind attribute field to drop down list in ArcObjects SDK Questions

Bind attribute field to drop down list

NehayaArabeiat — Thu, 20 May 2010 07:59:31 GMT

Hi,

How can I bind attribute field to drop down list in .net application.

Thanks alot

Re: Bind attribute field to drop down list

JamesCrandall — Thu, 20 May 2010 08:51:47 GMT

Hi,

How can I bind attribute field to drop down list in .net application.

Thanks alot

You will have to be a bit more specific in what you would like to do, as well as the project type (a .NET application can be many different things). Isn't a "DropDownList" is an ASP.NET control (not totally sure on that)? Or are you referring to a ComboBox Control that is placed on a Windows Form or UserControl?

I'm not a immediately aware of any specific methods that allow you to bind fields from an attribute table to an ASP.NET DropDownList control, but I'm sure there is a solution to get it done.

Re: Bind attribute field to drop down list

NehayaArabeiat — Thu, 20 May 2010 09:42:21 GMT

Yes you are right I building ArcGIS windows application and it is a combobox not a dropdownlist.

Thanks for your reply

Re: Bind attribute field to drop down list

JamesCrandall — Thu, 20 May 2010 09:52:24 GMT

Yes you are right I building ArcGIS windows application and it is a combobox not a dropdownlist.

Thanks for your reply

This seems to be a popular topic lately 🙂

Here is a recent thread (as of yesterday) where someone is populating a ComboBox Control with the unique values of a particular layer's attribute field:

http://forums.arcgis.com/threads/4766-DataStatistics-Interface-and-System.Collection.IEnumerator

While this is not necessarily a "DataBinding" solution, it should at least get you started.

Good luck!

Re: Bind attribute field to drop down list

NehayaArabeiat — Thu, 20 May 2010 11:01:22 GMT

Thanks james but can I use it to access data from file geodatabase not from map layers.

Re: Bind attribute field to drop down list

JamesCrandall — Thu, 20 May 2010 11:12:57 GMT

Thanks james but can I use it to access data from file geodatabase not from map layers.

If the GDB FeatureClass is loaded in ArcMap's TOC, then just set pTable (from the code sample in the other thread) to this. Otherwise, you will have to setup an IFeatureWorkspace and specify the GDB that contains the Tables/FeatureClasses.

http://edndoc.esri.com/arcobjects/9.2/ComponentHelp/esriGeoDatabase/IFeatureWorkspace.htm

Re: Bind attribute field to drop down list

NehayaArabeiat — Thu, 20 May 2010 11:24:26 GMT

I have setup FileGDBWorkspaceFactory and define where the geodatabase file path but I how can I get the feature layer from it ??

Re: Bind attribute field to drop down list

JamesCrandall — Sat, 11 Dec 2021 20:55:59 GMT

I have setup FileGDBWorkspaceFactory and define where the geodatabase file path but I how can I get the feature layer from it ??

I'm away from my dev workstation at the moment, but I think it's something like this:

Dim pTable As ITable
pTable = pFeatureWorkspace.OpenTable("Feature Class Name Goes here")

Or if it's a Layer I think you want something like this:

Dim pFeatureLayer As IFeatureClass
pFeatureLayer =  pFeatureWorkspace.OpenFeatureClass("Feature Class Name Here")

Re: Bind attribute field to drop down list

NehayaArabeiat — Sun, 23 May 2010 08:38:20 GMT

Hi James,

I'm trying to use the function in the previous thread but it displays this error:
Unable to cast COM object of type 'System.__ComObject' to interface type 'ESRI.ArcGIS.Carto.IFeatureLayer'
because the function needs featurelayer parameter and I have accessed to it featureclass, I cannot find a method to convert the featureclass to featurelayer

Here is the function code and button code:

Public Sub Sort_Unique(ByVal pLayer As IFeatureLayer, ByVal fieldname As String, ByVal condition As IQueryFilter)

        Dim pTable As ITable
        Dim pTableSort As ITableSort
        Dim sFieldName As String = fieldname
        Dim pCursor As ICursor

        Dim pFeatureLayer As IFeatureLayer
        pFeatureLayer = New FeatureLayer

        ' Gets the attribute table from the passed layer
        pTable = pLayer.FeatureClass

        ' This example sorts the specificed field name
        pTableSort = New TableSort
        With pTableSort
            .Fields = sFieldName
            .Ascending(sFieldName) = True
            .Table = pTable
        End With

        ' sort the table
        pTableSort.Sort(Nothing)

        ' Loop through sorted records and add to a listbox
        pCursor = pTableSort.Rows

        Dim pData As IDataStatistics
        pData = New DataStatistics
        pData.Field = fieldname
        pCursor = pLayer.Search(condition, False)
        pData.Cursor = pCursor
        Dim pEnumVar As System.Collections.IEnumerator
        Dim value As Object

        pEnumVar = pData.UniqueValues
        value = pEnumVar.MoveNext

        For i = 0 To pData.UniqueValueCount - 1
            Dist_List.Items.Add(CStr(pEnumVar.Current)) '<--- this should add the values to your cmbLot Control
            value = pEnumVar.MoveNext
        Next
    End Sub

    Private Sub Fill_Dist_List_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Fill_Dist_List.Click

        Dim pGDBWSF As IWorkspaceFactory
        pGDBWSF = New FileGDBWorkspaceFactory

        Dim pWorkSpace As IWorkspace
        pWorkSpace = pGDBWSF.OpenFromFile("E:\ArcGis Engine Projects\Data Layers\SDE GDB\sde_gdb.gdb", 0)

        Dim pEnumDataset As IEnumDataset

        pEnumDataset = pWorkSpace.Datasets(esriDatasetType.esriDTFeatureDataset)


        Dim pDataset As IDataset

        pDataset = pEnumDataset.Next

        Dim FCN As String
        FCN = Gov_List.SelectedText

        Dim pFeatureworkspace As IFeatureWorkspace
        pFeatureworkspace = pGDBWSF.OpenFromFile("E:\ArcGis Engine Projects\Data Layers\SDE GDB\sde_gdb.gdb", 0)

        Dim pFeatureclass As IFeatureClass
        pFeatureclass = pFeatureworkspace.OpenFeatureClass("amman_dist")
        Dim pFeaturelayer As IFeatureLayer
        'pFeaturelayer = pFeatureclass
        Dim Fieldname As String
        Fieldname = "DIST_NA"
        Dim pQFilter As IQueryFilter
        pQFilter = New QueryFilter
        pQFilter.WhereClause = "DIST_NA = 'ا�?جا�?عة' OR DIST_NA = 'ا�?ج�?زة' OR DIST_NA = 'ا�?ج�?ز�?' OR DIST_NA 'ا�?�?�?�?س�?�?'"

        Sort_Unique(pFeatureclass, Fieldname, pQFilter)

    End Sub

Thanks alot

Re: Bind attribute field to drop down list

JamesCrandall — Sat, 11 Dec 2021 20:56:02 GMT

Untested and I cannot remember exactly, but I think you need something like this:

Set pFeatureLayer = New FeatureLayer
Set pFeatureLayer.FeatureClass = pFeatureClass

So in the click event that sends the pFeatureLayer to your Sort_Unique Sub, you can try to set your pFeatureLayer as below. (You'll have to test this as I am away from my dev workstation and just going off of a guess):

Private Sub Fill_Dist_List_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Fill_Dist_List.Click

        Dim pGDBWSF As IWorkspaceFactory
        pGDBWSF = New FileGDBWorkspaceFactory

        Dim pWorkSpace As IWorkspace
        pWorkSpace = pGDBWSF.OpenFromFile("E:\ArcGis Engine Projects\Data Layers\SDE GDB\sde_gdb.gdb", 0)

        Dim pEnumDataset As IEnumDataset
      
        pEnumDataset = pWorkSpace.Datasets(esriDatasetType.esriDTFeatureDataset)

      
        Dim pDataset As IDataset
       
        pDataset = pEnumDataset.Next

        Dim FCN As String
        FCN = Gov_List.SelectedText

        Dim pFeatureworkspace As IFeatureWorkspace
        pFeatureworkspace = pGDBWSF.OpenFromFile("E:\ArcGis Engine Projects\Data Layers\SDE GDB\sde_gdb.gdb", 0)

        Dim pFeatureclass As IFeatureClass
        pFeatureclass = pFeatureworkspace.OpenFeatureClass("amman_dist")

        Dim pFeaturelayer As IFeatureLayer = New FeautureLayer 
        pFeaturelayer.FeatureClass = pFeatureclass 

        Dim Fieldname As String
        Fieldname = "DIST_NA"
        Dim pQFilter As IQueryFilter
        pQFilter = New QueryFilter
        pQFilter.WhereClause = "DIST_NA = 'ا�?جا�?عة' OR DIST_NA = 'ا�?ج�?زة' OR DIST_NA = 'ا�?ج�?ز�?' OR DIST_NA 'ا�?�?�?�?س�?�?'"

        Sort_Unique(pFeatureclass, Fieldname, pQFilter)

    End Sub

Thanks alot

Re: Bind attribute field to drop down list

NehayaArabeiat — Sun, 23 May 2010 12:58:10 GMT

Hi James,

Thanks for your reply the code works but I have another problem I want towant to concatenate a string with a featureclass name I try gov = String.Concat(govlist, "_dist") but it displays

"not found table name"

Re: Bind attribute field to drop down list

JamesCrandall — Sun, 23 May 2010 13:20:30 GMT

Hi James,

Thanks for your reply the code works but I have another problem I want towant to concatenate a string with a featureclass name I try gov = String.Concat(govlist, "_dist") but it displays

"not found table name"

You will have to provide the exact code you are trying to implement. I cannot tell what it is you are attempting from the code snippet you provided.

Do you need to get the String value of the FeatureClass's name?

Re: Bind attribute field to drop down list

NehayaArabeiat — Mon, 24 May 2010 05:29:10 GMT

Here is the full code for the function and form load, I want to get the featureclass name and concatenate it with a string:

Public Sub FillDistricts(ByVal pclass As String, ByVal fieldname As String, ByVal pQF As String)

        pWorkSpace = pGDBWSF.OpenFromFile("E:\ArcGis Engine Projects\Data Layers\SDE GDB\sde_gdb.gdb", 0)

        ' pEnumDataset = pWorkSpace.get_datasets(ESRI.ArcGIS.Geodatabase.esriDatasetType.esriDTFeatureDataset)
        pEnumDataset = pWorkSpace.Datasets(esriDatasetType.esriDTFeatureDataset)

        ' pEnumDataset = pWorkSpace.Datasets(esriDatasetType.esriDTFeatureDataset)

        'pEnumDataset.Reset()
        pDataset = pEnumDataset.Next

        Dim FCN As String
        FCN = Gov_List.SelectedText

        pFeatureworkspace = pGDBWSF.OpenFromFile("E:\ArcGis Engine Projects\Data Layers\SDE GDB\sde_gdb.gdb", 0)

        Dim pTable As ITable
        Dim pTableSort As ITableSort
        Dim sFieldName As String = fieldname
        Dim pCursor As ICursor

        Dim pFeatureclass As IFeatureClass
        pFeatureclass = pFeatureworkspace.OpenFeatureClass(pclass)

        ' Gets the attribute table from the passed layer
        pTable = pFeatureclass

        ' This example sorts the specificed field name
        pTableSort = New TableSort
        With pTableSort
            .Fields = sFieldName
            .Ascending(sFieldName) = True
            .Table = pTable
        End With

        ' sort the table
        pTableSort.Sort(Nothing)

        ' Loop through sorted records and add to a listbox
        pCursor = pTableSort.Rows
        Dim pQFilter As IQueryFilter
        pQFilter = New QueryFilter
        pQFilter.WhereClause = pQF

        Dim pData As IDataStatistics
        pData = New DataStatistics
        pData.Field = fieldname
        pCursor = pFeatureclass.Search(pQFilter, False)
        'pCursor = pLayer
        pData.Cursor = pCursor
        Dim pEnumVar As System.Collections.IEnumerator
        Dim value As Object

        pEnumVar = pData.UniqueValues
        value = pEnumVar.MoveNext

        For i = 0 To pData.UniqueValueCount - 1
            Dist_List.Items.Add(CStr(pEnumVar.Current)) '<--- this should add the values to your cmbLot Control
            value = pEnumVar.MoveNext
        Next
    End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim govlist As String
        govlist = Gov_List.SelectedText
        Dim gov As String = ""
        gov = String.Concat(govlist, "_dist")

        'gov = govlist & "_dist"

        FillDistricts(gov, "DIST_NA", "Dist_NE <>' '")

    End Sub

Re: Bind attribute field to drop down list

JamesCrandall — Sat, 11 Dec 2021 20:56:05 GMT

Here is the full code for the function and form load, I want to get the featureclass name and concatenate it with a string:

Use .AliasName of the FeatureClass to access the name. So in the portion of your code you supplied, just setup a string variable and set it to the .aliasname, which you can then use to concatenate.

Dim pFClassName As String
Dim pFeatureclass As IFeatureClass
pFeatureclass = pFeatureworkspace.OpenFeatureClass(pclass)
pFClassName = pFeatureClass.AliasName

Now you can use pFClassName in your concatenation:

Dim SomeOtherVariableStringValue As String
Dim ConcatenatedStr As String = pFClassName & "_" & SomeOtherVariableStringValue