Guides (SDK /API)Technical ReferenceBBDNHow-to Documentation

You are here: Custom Parts Example: Constituent Search > Button Click for Search

Button Click for Search

Code sample project: Custom Individual (Blackbaud CRM Constituent) Search

Add code to perform an individual search based on the part's content (which constituency).

    Protected Sub ButtonSearch_Click(ByVal sender As Object, ByVal e As EventArgs) Handles ButtonSearch.Click
        Dim IndividualIDs() As String
        Dim ConstituentID As System.Guid
        Dim ConstituentSummary As Blackbaud.AppFx.Constituent.Catalog.WebApiClient.ViewForms.Constituent.ConstituentSummaryProfileViewFormData
        Dim ConstituentName As Blackbaud.AppFx.Constituent.Catalog.WebApiClient.ViewForms.Constituent.ConstituentFirstNameLastNameViewFormData

        ListBoxOtherResults.Items.Clear()

        'ReturnIndividualSearchIDs returns results for all constituencies or 
        'results for just one depending on whether you specify a constituency ID.
        If MyContent.SearchAll Then
            IndividualIDs = ReturnIndividualSearchIDs()
        Else
            IndividualIDs = ReturnIndividualSearchIDs(MyContent.ConstituencyID)
        End If

        'Logic for when the button is clicked.
        If IndividualIDs.Length = 0 Then
            LabelName.Text = "No results"
        ElseIf IndividualIDs.Length = 1 Then
            ConstituentID = New System.Guid(IndividualIDs(0))
            ConstituentSummary = GetConstituentSummary(ConstituentID)
            ConstituentName = GetConstituentName(ConstituentID)
            DisplayIndividualInformation(ConstituentSummary, ConstituentName)
        Else
            ConstituentID = New System.Guid(IndividualIDs(0))
            ConstituentSummary = GetConstituentSummary(ConstituentID)
            ConstituentName = GetConstituentName(ConstituentID)
            DisplayIndividualInformation(ConstituentSummary, ConstituentName)
            For Each IndResult In IndividualIDs
                ConstituentID = New System.Guid(IndResult)
                ConstituentName = GetConstituentName(ConstituentID)
                ListBoxOtherResults.Items.Add(ConstituentName.FIRSTNAME + " " + ConstituentName.KEYNAME)
            Next
        End If

    End Sub