DistrictGroup Code

最新推荐文章于 2022-04-22 14:17:39 发布

zhangxiao86

最新推荐文章于 2022-04-22 14:17:39 发布

阅读量281

点赞数

分类专栏： 4pm work summary 文章标签： dataset dropdown integer string function each

本文链接：https://blog.csdn.net/zhangxiao86/article/details/6635342

版权

4pm work summary 专栏收录该内容

42 篇文章 0 订阅

订阅专栏

 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