Changement du selectedindex dans une dropdownlist

**thierry007** · 19/10/2007, 14h21

Je souhaite modifier les donnees dans les dropdownlist en fonction du chois de la dropdownlist10. Je prend l'evenement dropdownlist.SelectedIndexChanged, recupere l'index de la liste pour en faire un requete, je ne vois aucun changement why

ou je dois faire autre chose ou d'une autre maniere?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
    Protected Sub DropDownList10_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DropDownList10.SelectedIndexChanged
 
 
        ' Charge les donnees du template Hardware
        CnxStaging.Open() ' Ferme la connexion
 
        Dim StrSqlHardwareTemplate = "SELECT * FROM TblHardwareTemplate WHERE IdHarwareTemplate=" & DropDownList10.SelectedIndex
        Dim CmdHardware As New SqlCommand(StrSqlHardwareTemplate, CnxStaging)
        Dim DrHardware As SqlDataReader = CmdHardware.ExecuteReader
        If DrHardware.Read Then
            If IsDBNull(DrHardware("Hardware_MemoryBase")) = False Then DropDownList3.Text = DrHardware("Hardware_MemoryBase").ToString
            If IsDBNull(DrHardware("Hardware_CpuType")) = False Then DropDownList4.Text = DrHardware("Hardware_CpuType").ToString
            If IsDBNull(DrHardware("Hardware_CpuNumber")) = False Then DropDownList5.Text = DrHardware("Hardware_CpuNumber").ToString
            If IsDBNull(DrHardware("Hardware_NetWorkLinks")) = False Then DropDownList6.Text = DrHardware("Hardware_NetWorkLinks").ToString
        End If
        DrHardware.Close() ' Ferme le datareader
        CnxStaging.Close() ' Ferme la connexion
 
    End Sub

**aloisio11** · 19/10/2007, 14h31

Salut,

<asp

ropDownList ID="ddlDevise" AutoPostBack="true" runat="server" >

Il faut pas oublié le AutoPostBack="true"[/

**thierry007** · 19/10/2007, 14h41

Mais quand je met le postback a true pour le drodownlist10, il me reaffiche tout le temps la valeur qu'il a par defaut de la liste

**aloisio11** · 19/10/2007, 14h50

JE peux voir le code du loadde la page STP ?

**lutecefalco** · 19/10/2007, 14h54

Envoyé par thierry007

Mais quand je met le postback a true pour le drodownlist10, il me reaffiche tout le temps la valeur qu'il a par defaut de la liste

Tu dois initialiser ta ddl10 dans le OnLoad je pense.
Si c'est le cas, un ptit If Not IsPostBack et le tour est joué

**thierry007** · 19/10/2007, 15h16

Ok merci vais essayer ce soir en attendant voici le code
Merci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
Imports System.Data
Imports System.Data.Sql
Imports System.Data.SqlClient
Imports Infragistics.WebUI.WebControls
Imports System.Web.UI.HtmlControls
Imports Infragistics.WebUI.WebDataInput
 
Partial Class RequestStaging
 
    Inherits System.Web.UI.Page
    Dim CnxStaging As New SqlConnection("Data Source=LLUXSAPP311;Initial Catalog=Staging2;Integrated Security=True")
    Dim StrRequest As String
 
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
 
        'Construction de la chaine avec les parametres de la page default
        StrRequest = Me.Request.Params("Id1") & " - "
        StrRequest &= Me.Request.Params("Id2") & " - "
        StrRequest &= Me.Request.Params("Id3")
        Label3.Text = StrRequest
 
        CnxStaging.Open() ' Ouvre la connexion
 
        ' Charge les donnees domaine dans la droplist
        Dim StringSqlDomaine = "SELECT * FROM TblDomain"
        Dim Da As New SqlDataAdapter(StringSqlDomaine, CnxStaging)
        Dim Ds As New DataSet("TblDomain")
        Da.Fill(Ds, "TblDomain")
        DropDownList1.DataSource = Ds
        DropDownList1.DataValueField = Ds.Tables("TblDomain").Columns(0).ToString
 
        DropDownList1.DataBind()
 
 
        ' Charge les donnees d environement
        Dim StringSqlEnvironement = "SELECT * FROM TblEnvironment"
        Dim DaEnvironement As New SqlDataAdapter(StringSqlEnvironement, CnxStaging)
        Dim DsEnvironement As New DataSet("TblEnvironment")
        DaEnvironement.Fill(DsEnvironement, "TblEnvironment")
        DropDownList2.DataSource = DsEnvironement
        DropDownList2.DataValueField = DsEnvironement.Tables("TblEnvironment").Columns(0).ToString
 
        DropDownList2.DataBind()
 
        ' Charge les donnees de memoire
        Dim StringSqlMemory = "SELECT * FROM TblMemory"
        Dim DaMemory As New SqlDataAdapter(StringSqlMemory, CnxStaging)
        Dim DsMemory As New DataSet("TblMemory")
        DaMemory.Fill(DsMemory, "TblMemory")
        DropDownList3.DataSource = DsMemory
        DropDownList3.DataValueField = DsMemory.Tables("TblMemory").Columns(0).ToString
 
        DropDownList3.DataBind()
 
 
        ' Charge les donnees de type de Cpu
        Dim StringSqlCpuType = "SELECT * FROM TblTypeCpu"
        Dim DaCpuType As New SqlDataAdapter(StringSqlCpuType, CnxStaging)
        Dim DsCpuType As New DataSet("TblTypeCpu")
        DaCpuType.Fill(DsCpuType, "TblTypeCpu")
        DropDownList4.DataSource = DsCpuType
        DropDownList4.DataValueField = DsCpuType.Tables("TblTypeCpu").Columns(0).ToString
        DropDownList4.Text = Nothing
        DropDownList4.DataBind()
 
        ' Charge les donnees de type de Network links
        Dim StringSqlNetWorkLinks = "SELECT * FROM TblNetWorkLinks"
        Dim DaNetWorkLinks As New SqlDataAdapter(StringSqlNetWorkLinks, CnxStaging)
        Dim DsNetWorkLinks As New DataSet("TblNetWorkLinks")
        DaNetWorkLinks.Fill(DsNetWorkLinks, "TblNetWorkLinks")
        DropDownList6.DataSource = DsNetWorkLinks
        DropDownList6.DataValueField = DsNetWorkLinks.Tables("TblNetWorkLinks").Columns(0).ToString
 
        DropDownList6.DataBind()
 
 
        ' Charge les donnees du template 
        Dim StringSqlServerTemplate = "SELECT * FROM TblServerTemplate WHERE IdServerTemplate=1" '& CInt(Me.Request.Params("Id1"))
        Dim Cmd As New SqlCommand(StringSqlServerTemplate, CnxStaging)
        Dim DrServerTemplate As SqlDataReader = Cmd.ExecuteReader
        If DrServerTemplate.Read Then
            ' Tabs Template
            If IsDBNull(DrServerTemplate("Template_ServerName")) = False Then TextBox1.Text = DrServerTemplate("Template_ServerName").ToString
            If IsDBNull(DrServerTemplate("Template_ConfigType")) = False Then TextBox2.Text = DrServerTemplate("Template_ConfigType").ToString
            If IsDBNull(DrServerTemplate("Template_Domaine")) = False Then DropDownList1.Text = DrServerTemplate("Template_Domaine").ToString
            If IsDBNull(DrServerTemplate("Template_OU")) = False Then TextBox4.Text = DrServerTemplate("Template_OU").ToString
            If IsDBNull(DrServerTemplate("Template_InventoryOwner")) = False Then TextBox5.Text = DrServerTemplate("Template_InventoryOwner").ToString
            If IsDBNull(DrServerTemplate("Template_Environement")) = False Then DropDownList2.Text = DrServerTemplate("Template_Environement").ToString
            If IsDBNull(DrServerTemplate("Template_ServerDescription")) = False Then TextBox6.Text = DrServerTemplate("Template_ServerDescription").ToString
            If IsDBNull(DrServerTemplate("Template_PatchingPhase")) = False Then TextBox7.Text = DrServerTemplate("Template_PatchingPhase").ToString
            If IsDBNull(DrServerTemplate("Template_RebootTimeFrame")) = False Then TextBox8.Text = DrServerTemplate("Template_RebootTimeFrame").ToString
            If IsDBNull(DrServerTemplate("Template_MaintenanceTimeFrame")) = False Then TextBox9.Text = DrServerTemplate("Template_MaintenanceTimeFrame").ToString
            If IsDBNull(DrServerTemplate("Template_Comments")) = False Then TextBox10.Text = DrServerTemplate("Template_Comments").ToString
            CheckBox1.Checked = DrServerTemplate("Template_Confidenciality")
            If IsDBNull(DrServerTemplate("TargetInstallationDate")) = False Then TextBox11.Text = DrServerTemplate("TargetInstallationDate").ToString
            DrServerTemplate.Close() ' Ferme le datareader
        End If
 
 
        ' Charge les donnees Hardware dans la droplist
        Dim StringSqlHardwareTemplate = "SELECT * FROM TblHardwareTemplate"
        Dim DaHardwareTemplate As New SqlDataAdapter(StringSqlHardwareTemplate, CnxStaging)
        Dim DsHardwareTemplate As New DataSet("TblHardwareTemplate")
        DaHardwareTemplate.Fill(DsHardwareTemplate, "TblHardwareTemplate")
        DropDownList10.DataSource = DsHardwareTemplate
        DropDownList10.DataValueField = DsHardwareTemplate.Tables("TblHardwareTemplate").Columns(1).ToString
        DropDownList10.DataBind()
 
 
        CnxStaging.Close() ' Ferme la connexion
 
    End Sub
 
    Protected Sub DropDownList10_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DropDownList10.SelectedIndexChanged
 
 
        ' Charge les donnees du template Hardware
        CnxStaging.Open() ' Ferme la connexion
 
        Dim StrSqlHardwareTemplate = "SELECT * FROM TblHardwareTemplate WHERE IdHardwareTemplate=" & DropDownList10.SelectedIndex
        TextBox3.Text = DropDownList10.SelectedIndex
        Dim CmdHardware As New SqlCommand(StrSqlHardwareTemplate, CnxStaging)
        Dim DrHardware As SqlDataReader = CmdHardware.ExecuteReader
        If DrHardware.Read Then
            If IsDBNull(DrHardware("Hardware_MemoryBase")) = False Then DropDownList3.Text = DrHardware("Hardware_MemoryBase").ToString
            If IsDBNull(DrHardware("Hardware_CpuType")) = False Then DropDownList4.Text = DrHardware("Hardware_CpuType").ToString
            If IsDBNull(DrHardware("Hardware_CpuNumber")) = False Then DropDownList5.Text = DrHardware("Hardware_CpuNumber").ToString
            If IsDBNull(DrHardware("Hardware_NetWorkLinks")) = False Then DropDownList6.Text = DrHardware("Hardware_NetWorkLinks").ToString
        End If
        DrHardware.Close() ' Ferme le datareader
        CnxStaging.Close() ' Ferme la connexion
 
 
 
 
    End Sub
 
    Protected Sub DropDownList10_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DropDownList10.TextChanged
 
 
    End Sub
End Class

**lutecefalco** · 19/10/2007, 15h26

C'est bien ce que j'ai dit

Changement du selectedindex dans une dropdownlist

ASP.NET

Vue hybride

Discussions similaires

Partager

Partager