هذه هي طريقه التعامل مع ال dropdownlist لعرض اسم المصنع مثلا بينما اابرايماري كي يكون مخفي

الطريقه:

		 If Not Page.IsPostBack Then

			Dim connection1 As OleDbConnection
			Dim factoryReader As OleDbDataReader
			Dim sql1 As String
			Dim connectionString1 As String

			Dim Factories = New SortedList

			connectionString1 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\App_Data\ZonesCorp2.mdb"
			connection1 = New OleDbConnection(connectionString1)

			connection1.Open()
			sql1 = "SELECT factory_id,factory_name from factory_details"

			Dim cmd As New OleDbCommand(sql1, connection1)

			factoryReader = cmd.ExecuteReader()

			DDL_Factories.DataBind()
			factoryReader.Close()
			connection1.Close()


		End If

بعض التعديلات على الطريقه بحيث يكون اسماء المصانع مرتبه من الالف الى الياء

		If Not Page.IsPostBack Then

			Dim connection1 As OleDbConnection
			Dim factoryReader As OleDbDataReader
			Dim sql1 As String
			Dim connectionString1 As String

			Dim Factories = New SortedList

			connectionString1 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\App_Data\ZonesCorp2.mdb"
			connection1 = New OleDbConnection(connectionString1)

			connection1.Open()
			sql1 = "SELECT factory_id,factory_name from factory_details"

			Dim cmd As New OleDbCommand(sql1, connection1)

			factoryReader = cmd.ExecuteReader()
			Factories.Add(0, "Select Factory")
			While factoryReader.Read()
			Factories.Add(CInt(factoryReader("factory_id")), factoryReader("factory_name"))
			End While
			DDL_Factories.DataSource = Factories
			DDL_Factories.DataValueField = "Key"
			DDL_Factories.DataTextField = "Value"

			DDL_Factories.DataBind()
			factoryReader.Close()
			connection1.Close()


		End If