聽說幸福…在山的那邊 (浪機子)

1.        先將GridView的該欄位轉為Template，並且在<EditItemTemplate>裡建立一個DropDownList來秀資料，
 再建立一個label來保留原資料，該Label設為不顯現於GridView上

<asp:TemplateField HeaderText="課程類別序號">
    <EditItemTemplate>   --編輯時使用的欄位
      <asp:DropDownList ID="DpClasskind" runat="server">
      asp:DropDownList>
      <asp:Label ID="LabClassKind" runat="server" Text='<%# Bind("ClassKindID") %>' 
        Visible="False">asp:Label>
    EditItemTemplate>
    <ItemStyle Wrap="False" /> --GridView在秀的時候使用的欄位

        <asp:Label ID="LabClassKind" runat="server" Text='<%# Bind("ClassKindID") %>'>asp:Label>        
        ItemTemplate> 

    asp:TemplateField>

 2.    先建立好連線，並且放在DataTable裡以供DropDownList連接用 

    Public Sub LoadDpList() 
        --取出連線字串的Function，這是我們設定的哦
       Vconn = New SqlConnection(GetSqlConnStr("Certification")) 
       vCmd.Connection = Vconn 
       strSql = " SELECT ClassKIndID ,ClassKindName  from TrainingHour order by ClassKIndID" 
       Try 
            Vconn.Open() 
            vCmd.CommandText = strSql 
            Vreader = vCmd.ExecuteReader() 
            vDT1.Load(Vreader)  --將查出來的資料，先放在DataTable中
            Vreader.Close() 
        Catch ex As Exception 
            Response.Write("READ TrainingHour File Err !! " & ex.Message) 
            Response.End() 
        Finally 
            vCmd.Dispose() 
            Vconn.Dispose() 
            Vconn.Close() 
        End Try
    End Sub 

3.   在按下編輯鍵時會觸發 RowEditing事件，故要在這裡將DropDownList的值放入

    Protected Sub GVQuery_RowEditing(ByVal sender As Object,
                 ByVal e As System.Web.UI.WebControls.GridViewEditEventArgs 

      將dropdownlist與資料連結起來-------------------------------------------
      --由GridView中取出欄位，讓按下編輯鍵時，其dropdownlist 的值會停在原來的資料上
        Dim ddlClasskind As DropDownList = Me.GVQuery.Rows(e.NewEditIndex).FindControl("DpClasskind") 
        ddlClasskind.Items.Clear() 
        ddlClasskind.DataSource = vDT1 --利用datatable的值提供給dropdownlist
        ddlClasskind.DataValueField = "ClassKindID" 
        ddlClasskind.DataTextField = "ClassKindName" 
        ddlClasskind.DataBind()

     '利用label來保留其值後，再供ddl來比對，設定其dropdownlist 的值要停在原來的資料上
       Dim strTxtOnTheJobDate As Label = Me.GVQuery.Rows(e.NewEditIndex).FindControl("LabClassKind")
       If ddlClasskind.Items.FindByValue(Trim(strTxtOnTheJobDate.Text)) Is Nothing Then
          ddlClasskind.Items.Insert(0, "    ")
       Else
          ddlClasskind.Items.FindByValue(Trim(strTxtOnTheJobDate.Text)).Selected = True
       End If
    End Sub