| 12
 3
 4
 5
 6
 7
 8
 9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 
 |  Protected Sub GridVB_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles GridVB.SelectedIndexChanged
 
        Try
            Dim bnqMgr As New Banque
            If (GridVB.SelectedDataKey.Value <> Nothing) Then
                Session("CodeBanque") = GridVB.SelectedDataKey.Value
 
                If GridVB.SelectedDataKey.Value <> -1 Then
                    bnq.getBanquebycode(GridVB.SelectedDataKey.Value)
 
                    txtdesign.Text = bnqMgr.getDesigniation
                    txtadr.Text = bnqMgr.getAdresse
 
                    DDLvilleBnq.SelectedItem.Text = bnqMgr.getville
                    txtmail.Text = bnqMgr.getMail
                    txttel.Text = bnqMgr.getTel
                    txtfax.Text = bnqMgr.getFax
 
                    GridVB.DataBind()
 
                End If
 
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
 
    End Sub | 
Partager