DistrictGroup Code

 

 If QueryDistrict <> gNoPreference Then                If (QueryDistrict > 0) Then                    objCmd.CommandText = "SELECT  DistrictName from District where idDistrict=" + QueryDistrict.ToString()                    objCmd.Connection = objConn                    Dim objAda As SqlDataAdapter = New SqlDataAdapter(objCmd)                    Dim objDSet2 As DataSet = New DataSet                    objAda.Fill(objDSet2)                    Dim PropDistrict As String                    PropDistrict = objDSet2.Tables(0).Rows(0)("DistrictName")                    result &= " in " + "<b>" + PropDistrict + "</b>"                ElseIf QueryDistrict < 0 Then                    objCmd.CommandText = "SELECT  GroupName from DistrictGroup where idDistrictGroup=" + (-QueryDistrict).ToString()                    objCmd.Connection = objConn                    Dim objAda As SqlDataAdapter = New SqlDataAdapter(objCmd)                    Dim objDSet2 As DataSet = New DataSet                    objAda.Fill(objDSet2)                    Dim PropDistrict As String                    PropDistrict = objDSet2.Tables(0).Rows(0)("GroupName")                    result &= " in " + "<b>" + PropDistrict + "</b>"                End If

 

 

'========================================    'Function: PopulateDistrict    'Purpose: Populates the District dropdown    '========================================    Public Sub PopulateDistrict(ByVal iCounty As Integer)        ddDistrict.AppendDataBoundItems = True        'populate the dropdown with groups        BindDropdown(gGetDistrictGroupList(QueryCounty), "GroupName", "idDistrictGroup", ddDistrict)        For Each i As ListItem In ddDistrict.Items            i.Value = -i.Value        Next        If ddDistrict.Items.Count <> 0 Then ddDistrict.Items.Add(New ListItem("------------------", gNoPreference))        'Populate dropdown        BindDropdown(gGetDistrictList(iCounty), "DistrictName", "idDistrict", ddDistrict)        'Default dropdownlist values        ddDistrict.Items.Insert(0, New ListItem("Any District", gNoPreference))        'Set default onload value        ddDistrict.SelectedValue = QueryDistricts    End Sub