1 2 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