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

--鍵下GridView的編輯鍵時
    Protected Sub GVQuery_RowEditing(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewEditEventArgs)
       
        '秀出該被編輯該行值
        'Response.Write(e.NewEditIndex)
        
        Dim strLabCompID As Label = 
                Me.GVQuery.Rows(e.NewEditIndex).FindControl("LabCompID")
        Dim strLabEmpID As Label = 
                Me.GVQuery.Rows(e.NewEditIndex).FindControl("LabEmpID")

         '利用function將要放入listbox的資料組好後
        Dim strlistbox As String = 
                ChgClassKind("2", strLabCompID.Text, strLabEmpID.Text)
        Dim strlistarray As String()
        Dim strlistCKD As ListBox = 
                Me.GVQuery.Rows(e.NewEditIndex).FindControl("ListCKD")
        Dim i As Integer
       --先將ListBox的值清除
        strlistCKD.Items.Clear()
       --判斷是否有要放入ListBox的資料，有才執行
        If Trim(strlistbox) <> "" Then
             --是利用；來作為一筆資料，故要先將所有的資料拆成一筆一筆的
            strlistarray = Split(strlistbox, ";")
             --UBound(strlistarray)算出該陣列的最大值
            For i = 0 To UBound(strlistarray)
                strlistCKD.Items.Add(strlistarray(i))
            Next
        End If
  
        --按下編輯後，設定游標停留的地方
        Me.GVQuery.Rows(e.NewEditIndex).FindControl("TxtOnTheJobDate").Focus()
       
    End Sub

----以下為在GridView中按下button後所會觸發的事件---------------------------------------------------

----加入鍵
    Protected Sub ButAppend_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        '找出執行的該行的row_index
        Dim strAppend As Button = sender
        Dim Row As GridViewRow = strappend.NamingContainer
        'Response.Write(bb.RowIndex)

        Dim strClassFlag As RadioButtonList = 
                GVQuery.Rows(Row.RowIndex).FindControl("RBClassFlag")
        Dim strDPCKD As DropDownList = 
                GVQuery.Rows(Row.RowIndex).FindControl("DPCKD")
        Dim strListCKD As ListBox = 
                GVQuery.Rows(Row.RowIndex).FindControl("ListCKD")

        strListCKD.Items.Add(strClassFlag.SelectedValue & "-" 
                & strDPCKD.Items(strDPCKD.SelectedIndex).Value 
                & "-"   & strDPCKD.Items(strDPCKD.SelectedIndex).Text)
    End Sub
    

----移除鍵
    Protected Sub ButRemove_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        '找出執行的該行的row_index
        Dim strAppend As Button = sender
        Dim Row As GridViewRow = strAppend.NamingContainer
        'Response.Write(bb.RowIndex)

        Dim strListCKD As ListBox = 
                GVQuery.Rows(Row.RowIndex).FindControl("ListCKD")
        strListCKD.Items.Remove(strListCKD.SelectedValue)
    End Sub