62,046
社区成员
发帖
与我相关
我的任务
分享
Imports System
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Text
Imports System.Web
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports Soonet.Data
Namespace WebControls
<ToolboxData("<{0}:DMKDropDownList runat=server></{0}:DMKDropDownList>")> _
<DefaultProperty("ListType")> _
Public Class DMKDropDownList
Inherits System.Web.UI.WebControls.DropDownList
Protected Overrides Sub OnInit(ByVal e As System.EventArgs)
MyBase.OnInit(e)
CreatedListItem()
End Sub
Private Sub CreatedListItem()
Dim dbaccess As New SqlServer(SqlServer.GetConnectionStringFromWebConfig(Me.DataConnName))
Dim reader As SqlDataReader
reader = dbaccess.ExecSqlReturnDR(String.Format("select * from Bas_Dll_{0} order by SortIndex", Me.ListType.ToString))
While reader.Read
Dim _item As ListItem
_item = New ListItem(reader("itemText"), reader("itemValue"))
If reader("itemState") Then
_item.Selected = True
End If
MyBase.Items.Add(_item)
End While
reader.Close()
dbaccess.Dispose()
End Sub
#Region "Public 属性"
Const cntDataConnName As String = "WebDataConn"
Private strDataConnName As String
''' <summary>
''' 设置或返回一个web.config中connectionString配置节的名称
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
<Category("数据"), Description("设置或返回一个web.config中connectionString配置节的名称")> _
Public Property DataConnName() As String
Get
If strDataConnName Is Nothing Then
strDataConnName = cntDataConnName
End If
Return strDataConnName
End Get
Set(ByVal value As String)
strDataConnName = value
End Set
End Property
<Category("数据")> _
<Description("关联的数据内容")> _
Public Property ListType() As ListType
Get
Dim _type As Object = ViewState("ListType")
If _type Is Nothing Then
Return WebControls.ListType.Ability
End If
Return CType(_type, ListType)
End Get
Set(ByVal value As ListType)
ViewState("ListType") = value
End Set
End Property
#End Region
End Class
End Namespace