想要讓DropDownList的子選項(DataTextField),出現兩個欄位
如果您透過 SqlDataSource的精靈來作,DataTextField只能放一個欄位。
必須自己寫程式來處理才行。作法有兩種:
第一,是透過 SQL指令來處理。
第二,是寫程式慢慢處理每一個「子選項」
想要讓DropDownList的子選項(DataTextField),出現兩個欄位
如果您透過 SqlDataSource的精靈來作,DataTextField只能放一個欄位。
必須自己寫程式來處理才行。
這是在論壇上看見的發問,參考資料如下:
http://www.blueshop.com.tw/board/FUM20041006161839LRJ/BRD20101114072706MJM.html
http://social.msdn.microsoft.com/forums/zh-TW/236/thread/94722bd1-8701-4e64-90e6-de9ade86b733
作法有兩種。
因為要撰寫 ADO.NET程式,所以比較適合放在本書「上集」的第十四章
首先,NameSpace都要自己宣告這些
Imports System
Imports System.Web.Configuration
Imports System.Data
Imports System.Data.SqlClient
第一,是透過 SQL指令來處理。
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim Conn As SqlConnection = New SqlConnection
Conn.ConnectionString = WebConfigurationManager.ConnectionStrings("存在Web.Config裡面的連結字串").ConnectionString
Dim dr As SqlDataReader = Nothing
'==重點!!== 透過SQL指令解決!==
Dim cmd As New SqlCommand("select id, title, author, title+author as NewField from test", Conn)
Try '==== 以下程式,只放「執行期間」的指令!=====================
Conn.Open() '---- 這時候才連結DB
'---- 這時候執行SQL指令,取出資料。
dr = cmd.ExecuteReader()
'dr.Read()
DropDownList1.DataTextField = "NewField" '==重點!!==
DropDownList1.DataValueField = "id"
DropDownList1.DataSource = dr
DropDownList1.DataBind()
Catch ex As Exception '---- 如果程式有錯誤或是例外狀況,將執行這一段
Response.Write("<b>Error Message---- </b>" + ex.ToString() + "<HR/>")
Finally
If Not (dr Is Nothing) Then
cmd.Cancel()
dr.Close()
End If
If (Conn.State = ConnectionState.Open) Then
Conn.Close()
Conn.Dispose()
End If
End Try
End Sub
第二,是寫程式慢慢處理每一個「子選項」
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim Conn As SqlConnection = New SqlConnection
Conn.ConnectionString = WebConfigurationManager.ConnectionStrings("存在Web.Config裡面的連結字串").ConnectionString
Dim dr As SqlDataReader = Nothing
Dim cmd As New SqlCommand("select id, title, author from test", Conn)
Try '==== 以下程式,只放「執行期間」的指令!=====================
Conn.Open() '---- 這時候才連結DB
'---- 這時候執行SQL指令,取出資料。
dr = cmd.ExecuteReader()
Dim i As Integer = 0
'====== 重 點!!======================
While dr.Read()
DropDownList1.Items.Add(dr("title") & " / " & dr("author"))
DropDownList1.Items(i).Value = dr("id")
i = i + 1
End While
'===================================
Catch ex As Exception '---- 如果程式有錯誤或是例外狀況,將執行這一段
Response.Write("<b>Error Message---- </b>" + ex.ToString() + "<HR/>")
Finally
If Not (dr Is Nothing) Then
cmd.Cancel()
dr.Close()
End If
If (Conn.State = ConnectionState.Open) Then
Conn.Close()
Conn.Dispose()
End If
End Try
End Sub
以上程式使用的 ADO.NET (DataReader),其實是從這個範本修改而來。
很簡單。 http://www.dotblogs.com.tw/mis2000lab/archive/2008/04/24/3446.aspx
範例很簡單了,所以不附上 C#範例。
我將思想傳授他人, 他人之所得,亦無損於我之所有;
猶如一人以我的燭火點燭,光亮與他同在,我卻不因此身處黑暗。----Thomas Jefferson
線上課程教學,遠距教學 (Web Form 約51hr) https://dotblogs.com.tw/mis2000lab/2016/02/01/aspnet_online_learning_distance_education_VS2015
線上課程教學,遠距教學 (ASP.NET MVC 約75~100hr) https://dotblogs.com.tw/mis2000lab/2018/08/14/ASPnet_MVC_Online_Learning_MIS2000Lab
ASP.NET MVC線上課程 第一天 免費看 (5.5小時) 寫信給我,不要私訊 -- mis2000lab (at) yahoo.com.台灣 或 school (at) mis2000lab.net
ASP.NET遠距教學、線上課程(Web Form + MVC)。 第一天課程, "完整" 試聽。
......... facebook社團 https://www.facebook.com/mis2000lab ......................
......... YouTube (ASP.NET) 線上教學影片 https://www.youtube.com/channel/UC6IPPf6tvsNG8zX3u1LddvA/
Blog文章 "附的範例" 無法下載,請看 https://dotblogs.com.tw/mis2000lab/2016/03/14/2008_2015_mis2000lab_sample_download
請看我們的「售後服務」範圍(嚴格認定)。
......................................................................................................................................................
[遠距教學、教學影片] ASP.NET (Web Form) 課程 上線了!MIS2000Lab.主講 事先錄製好的影片,並非上課側錄! 觀看時,有如「一對一」跟您面對面講課。

ASP.NET MVC 5 => .NET Core MVC 線上教學 累積時數約 100小時...... 第一天(5.5小時)完整內容,"免費"讓您評估
