ajaxToolkit:TabContainer ajaxToolkit:TabPanel asp:UpdatePanel postback
Bonjour,
J'ai un problème de récupération de données lors de la validation d'un formulaire.
Je souhaite juste récupérer les valeurs du moteur de recherche de l'USERCONTROL "ListeMembers.ascx"
Mon compte s'imbrique de cette façon :
PAGE ASPX :
PAGE ASPX JAVASCRIPT
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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<script type="text/javascript"> var $jQuery = jQuery.noConflict(); $jQuery(function () { initializer(); }); var prmInstance = Sys.WebForms.PageRequestManager.getInstance(); prmInstance.add_endRequest(function () { //you need to re-bind your jquery events here initializer(); }); function initializer() { var $jQuery = jQuery.noConflict(); $jQuery(document).ready(function () { var hash = window.location.hash; hash && $jQuery('ul.nav-tabs a[href="' + hash + '"]').tab('show'); }); $jQuery(document).ready(function () { setTimeout(function () { <%if Session("TabIndex") <> Nothing Then%> $jQuery('ul.nav-tabs a[href="#<%=Session("TabIndex")%>"]').tab('show'); <%End If%> }, 1000); }); $jQuery("select").chosen({ disable_search_threshold: 11 }); $jQuery(".tabs").tabs({ create: function (event, ui) { $jQuery(this).fadeIn(); } }); $jQuery(".ButtonMiseaJour").click(function () { var Id = $jQuery(this).attr("id"); __doPostBack(Id); }) $jQuery(".SujetLinkButton").click(function () { var Id = $jQuery(this).attr("id"); var Infos = Id.split("Clef_FORUMS_MESSAGES_"); __doPostBack(Id, Infos[1]); }) $jQuery(".link_repondre").click(function () { var Id = $jQuery(this).attr("id"); var Infos = Id.split("AddMessage_"); __doPostBack(Id, Infos[1]); }) $jQuery(".link_ajouter").click(function () { var Id = $jQuery(this).attr("id"); var Infos = Id.split("AddMessage_"); __doPostBack(Id, Infos[1]); }) $jQuery(".link_Modifier").click(function () { var Id = $jQuery(this).attr("id"); var Infos = Id.split("ModifierMessage_"); __doPostBack(Id, Infos[1]); }) $jQuery(".link_Supprimer").click(function () { var Id = $jQuery(this).attr("id"); var Infos = Id.split("SupprimerMessage_"); __doPostBack(Id, Infos[1]); }) $jQuery(".link_Citer").click(function () { var Id = $jQuery(this).attr("id"); var Infos = Id.split("CiterMessage_"); __doPostBack(Id, Infos[1]); }) $jQuery(".retour").click(function () { var Id = $jQuery(this).attr("id"); __doPostBack(Id); }) $jQuery(".chosen_IsDropDownList").chosen().change(function (event) { if (event.target == this) { Val = $jQuery(this).val(); var $Hidden = $jQuery(this).parent(".block_form").find("input[type=hidden]"); $Hidden.val(Val); //$jQuery("input[id*=Clef_MA]").val(Val); //$jQuery(".ID_Fileupload_Medias").val(""); //$jQuery(".CodeEmbedded_MEDIASV2_IsTextBox").val(""); //$jQuery(".BlocMediaVideo").find("iframe").remove(); //$jQuery(".BlocMediaVideo").hide(); //AfficheBlocMedia(Val); } }); } </script>
PAGE ASPX VB :
PAGE ASPX PAGELOAD :
PAGE ASPX VB :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Function ActiveTabChanged :
USERCONTROL ListeMembers.ascx
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
USERCONTROL ListeMembers.ascx.VB
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441Private Sub Members_Private_Projects_WebControls_ListeMembers_Init(sender As Object, e As EventArgs) Handles Me.Init If _Clef_PROJECTS <> Int32.MaxValue Then ListeUsersByProjects(_Clef_PROJECTS) ListeMembersAttenteNotification(_Clef_PROJECTS) End If End Sub Private Sub Members_Private_Projects_WebControls_ListeMembers_Load(sender As Object, e As EventArgs) Handles Me.Load MyErrorValidator = New VALIDATORS(LabelError, LiteralAjaxError, False) If _Clef_PROJECTS <> Int32.MaxValue Then Dim MyPROJECTS As New PROJECTS(MyErrorValidator) MyPROJECTS.LoadInDataMemberByKey(_Clef_PROJECTS) Contact_nonMembers_Hyperlink.NavigateUrl = "/Members/Private/PopupContactMembers.aspx?Clef_PROJECTS=" & _Clef_PROJECTS Dim TopFullResponsable As Boolean = USERSxxPROJECTS.TopResponsableByClefProjetsAndClefUsersAndClefRole(MyErrorValidator, _Clef_PROJECTS, Session("Clef_USERS"), USERS_ROLES.ListeRoles.FullResponsable) If TopFullResponsable Then BlocRechercheMembre_placeholder.Visible = True Else BlocRechercheMembre_placeholder.Visible = False Contact_nonMembers_Hyperlink.Visible = False End If Dim Clef_USERSxxPROJECTS As Int32 = USERSxxPROJECTS.GetClefClef_USERSxxPROJECTSByClefProjetAndClefusers(MyErrorValidator, _Clef_PROJECTS, Session("Clef_USERS")) If Clef_USERSxxPROJECTS = Int32.MaxValue Then Contact_nonMembers_Hyperlink.Visible = False End If If Request("InParent") <> Nothing Then If Request("InParent") <> Int32.MaxValue Then If Clef_USERSxxPROJECTS = Int32.MaxValue Then BlocRechercheMembre_placeholder.Visible = False Contact_nonMembers_Hyperlink.Visible = False Session("TabIndex") = "tabs-2" End If End If End If If MyPROJECTS.TopIsValided_PROJECTS = Int32.MaxValue Then BlocRechercheMembre_placeholder.Visible = False Contact_nonMembers_Hyperlink.Visible = False TextNoActifProjectMembers.Text = "<p>You’re not allowed to add members since your project is still not validated</p>" ElseIf MyPROJECTS.TopEnLigne_PROJECTS = False Then BlocRechercheMembre_placeholder.Visible = False TextNoActifProjectMembers.Text = "<p>You’re not allowed to add members since your project is still not published</p>" Contact_nonMembers_Hyperlink.Visible = False ListeMembersAttenteNotification_Placeholder.Visible = False ListeMembersByProjects_Placeholder.Visible = False End If MyPROJECTS.Dispose() If ViewState("registrar") = False Then Dim MyValidator_Clefactivities_USERSxxACTIVITIES As New VALIDATORS(Clefactivities_USERSxxACTIVITIES_IsDropDownList, LiteralAjaxError, False) Dim MyValidator_ClefCountry_USERS As New VALIDATORS(ClefCountry_USERS_IsDropDownList, LiteralAjaxError, False) Dim MyValidator_Clefstudyareas_USERS As New VALIDATORS(Clefstudyareas_USERS_IsDropDownList, LiteralAjaxError, False) Dim MyValidator_Clefspecies_USERSxxSPECIES As New VALIDATORS(Clefspecies_USERSxxSPECIES_IsDropDownList, LiteralAjaxError, False) Dim MyTabSqlParam_Clefactivities_USERSxxACTIVITIES() As SqlParameter Dim MyACTIVITIES_Clefactivities_USERSxxACTIVITIES As New ACTIVITIES(MyValidator_Clefactivities_USERSxxACTIVITIES) MyACTIVITIES_Clefactivities_USERSxxACTIVITIES.BindWebForms(MyValidator_Clefactivities_USERSxxACTIVITIES, MyACTIVITIES_Clefactivities_USERSxxACTIVITIES.GetListRequete(ACTIVITIES.ACTIVITIES_TypeListRequette.ListDLLTopenLigneTrue), New String(Request("Clefactivities")), "TextValue", MyTabSqlParam_Clefactivities_USERSxxACTIVITIES, "Select an activity", True, False) MyACTIVITIES_Clefactivities_USERSxxACTIVITIES.Dispose() Dim MyTabSqlParam_ClefCountry_USERS() As SqlParameter Dim MyCOUNTRIES_ClefCountry_USERS As New COUNTRIES(MyValidator_ClefCountry_USERS) MyCOUNTRIES_ClefCountry_USERS.BindWebForms(MyValidator_ClefCountry_USERS, MyCOUNTRIES_ClefCountry_USERS.GetListRequete(COUNTRIES.COUNTRIES_TypeListRequette.ListDLLTopenLigneTrue), New String(Request("ClefCountry")), "TextValue", MyTabSqlParam_ClefCountry_USERS, "Select a country", True, False) MyCOUNTRIES_ClefCountry_USERS.Dispose() Dim MyTabSqlParam_Clefstudyareas_USERS(0) As SqlParameter Dim MySTUDY_AREAS_Clefstudyareas_USERS As New AREAS(MyValidator_Clefstudyareas_USERS) Dim myparam3 As New SqlParameter("@Clef_GROUPS_AREA", System.Data.SqlDbType.Int) myparam3.Value = 2 MyTabSqlParam_Clefstudyareas_USERS(0) = myparam3 MySTUDY_AREAS_Clefstudyareas_USERS.BindWebForms(MyValidator_Clefstudyareas_USERS, MySTUDY_AREAS_Clefstudyareas_USERS.GetListRequete(AREAS.AREAS_TypeListRequetteSpecifique.ListDLLByClefGroupsArea), New String(Request("Clefarea")), "TextValue", MyTabSqlParam_Clefstudyareas_USERS, "Select an area", True, False) MySTUDY_AREAS_Clefstudyareas_USERS.Dispose() Dim MyTabSqlParam_Clefspecies_USERSxxSPECIES() As SqlParameter Dim MySPECIES_Clefspecies_USERSxxSPECIES As New SPECIES(MyValidator_Clefspecies_USERSxxSPECIES) MySPECIES_Clefspecies_USERSxxSPECIES.BindWebForms(MyValidator_Clefspecies_USERSxxSPECIES, MySPECIES_Clefspecies_USERSxxSPECIES.GetListRequete(SPECIES.SPECIES_TypeListRequette.ListDLL), New String(Request("Clef_SPECIES")), "TextValue", MyTabSqlParam_Clefspecies_USERSxxSPECIES, "Select a species", True, False) MySPECIES_Clefspecies_USERSxxSPECIES.Dispose() End If If ViewState("registrar") = True Then ViewState("Clefactivities_USERSxxACTIVITIES_IsDropDownList") = Clefactivities_USERSxxACTIVITIES_IsHidden.Value ListeMembersSearch() End If BlocTitre.Text = "Search Netccobams members" If Request.RawUrl.ToLower.Contains(LCase("/Members/Private/Projects/UpdateProjects.aspx")) Then TitreBloc.Attributes.Add("style", "padding:10px;") BlocSearch.Attributes.Add("style", "margin-top:20px;") End If If Request.RawUrl.ToLower.Contains(LCase("/organisations")) Then Activites_Panel.Visible = False BlocTitre.Text = "Search Organisation" End If End If End Sub Sub ListeMembersSearch() Dim _FilterCount As Integer = -1 Dim MyTabSqlParam(-1) As SqlParameter Dim myUSERS As New USERS(MyErrorValidator) Dim myRequette As String = "SELECT * FROM USERS " If Clefactivities_USERSxxACTIVITIES_IsHidden.Value <> "" Then If Clefactivities_USERSxxACTIVITIES_IsHidden.Value <> Int32.MaxValue Then myRequette &= " INNER JOIN USERSxxACTIVITIES ON USERS.Clef_USERS = USERSxxACTIVITIES.Clefusers_USERSxxACTIVITIES " End If End If If Clefstudyareas_USERS_IsDropDownList.SelectedValue <> "" Then If Clefstudyareas_USERS_IsDropDownList.SelectedValue <> Int32.MaxValue Then myRequette &= " INNER JOIN USERS_AREAS_in_GROUPS_AREA ON USERS.Clef_USERS = USERS_AREAS_in_GROUPS_AREA.ClefUsers_USERS_AREAS_in_GROUPS_AREA " myRequette &= " INNER JOIN GROUPS_AREAxxAREAS ON USERS_AREAS_in_GROUPS_AREA.ClefGroupxxarea_USERS_AREAS_in_GROUPS_AREA = GROUPS_AREAxxAREAS.Clef_GROUPS_AREAxxAREAS " End If End If 'myRequette &= " where TopSuppression_USERS = 0 and TopCompteValide_USERS = 1 and EmailNonValide_USERS is null " myRequette &= " where TopSuppression_USERS = 0 and TopCompteValide_USERS = 1 and EmailNonValide_USERS is null and TopEnLigne_USERS = 1 and ClefCategories_USERS=1 and TopCompteValide_USERS=1" Dim ListeClefUsers As String = USERSxxPROJECTS.ListeUsersByClefProjet(MyErrorValidator, _Clef_PROJECTS) If ListeClefUsers.ToString.Length > 0 Then myRequette &= " AND Clef_USERS not in (" & ListeClefUsers & ")" End If myRequette &= " AND Clef_USERS <> " & Session("Clef_USERS") If Users_IsTextBox.Text.ToString.Length > 0 Then myRequette &= " and (FamilyName_USERS like '%' + @Search_TextBox + '%' or FirstName_USERS like '%' + @Search_TextBox + '%')" End If If ClefCountry_USERS_IsDropDownList.SelectedValue <> "" Then If ClefCountry_USERS_IsDropDownList.SelectedValue <> Int32.MaxValue Then myRequette &= " and ClefCountry_USERS = " & ClefCountry_USERS_IsDropDownList.SelectedValue End If End If If Clefactivities_USERSxxACTIVITIES_IsHidden.Value <> "" Then If Clefactivities_USERSxxACTIVITIES_IsHidden.Value <> Int32.MaxValue Then myRequette &= "And USERSxxACTIVITIES.TopSuppression_USERSxxACTIVITIES = 0 And Clefactivities_USERSxxACTIVITIES = " & Clefactivities_USERSxxACTIVITIES_IsHidden.Value End If End If If Clefstudyareas_USERS_IsDropDownList.SelectedValue <> "" Then If Clefstudyareas_USERS_IsDropDownList.SelectedValue <> Int32.MaxValue Then myRequette &= " and TopSuppression_USERS_AREAS_in_GROUPS_AREA = 0 and TopEnLigne_USERS_AREAS_in_GROUPS_AREA = 1 and TopSuppression_GROUPS_AREAxxAREAS = 0 and Clefareas_GROUPS_AREAxxAREAS =" & Clefstudyareas_USERS_IsDropDownList.SelectedValue End If End If If Users_IsTextBox.Text.ToString.Length > 0 Then _FilterCount = _FilterCount + 1 Dim MySQLParameterSearch_TextBox_Project As New SqlParameter("Search_TextBox", SqlDbType.NVarChar) MySQLParameterSearch_TextBox_Project.Value = Users_IsTextBox.Text ReDim Preserve MyTabSqlParam(_FilterCount) MyTabSqlParam(_FilterCount) = MySQLParameterSearch_TextBox_Project End If CountMembers.Text = "0 member found" 'ClefCategories_USERS= '1 An expert '2 An organization 'TopCompteValide_USERS Dim Myds = myUSERS.List(myRequette, "FamilyName_USERS", MyTabSqlParam, False) If Myds Is Nothing Then MyErrorValidator.VALIDATORS_Controles_Error = "Nothing" Else If Myds.Tables.Count > 0 Then If Myds.Tables(0).Rows.Count > 0 Then Dim ThisDataview As DataView = Myds.Tables(0).DefaultView Dim Count As Double = 0 For cpt As Int32 = 0 To ThisDataview.Count - 1 Step 3 'Dim TopValidatedOrganization_USERS As Int32 = ThisDataview(cpt)("TopValidatedOrganization_USERS") Dim TopCompteValide_USERS As Int32 = ThisDataview(cpt)("TopCompteValide_USERS") If cpt Mod 3 = 0 Then Dim Items As New Literal Items.Text = "<div class="" row"">" ListeMembers_Placeholder.Controls.Add(Items) 'If TopValidatedOrganization_USERS = 1 Then Dim BlocMembers As Members_Private_WebControls_BlocMembers = LoadControl("~/Members/Private/WebControls/BlocMembers.ascx") BlocMembers.Clef_USERS = ThisDataview(cpt)("Clef_USERS") ListeMembers_Placeholder.Controls.Add(BlocMembers) 'End If If cpt + 1 <= ThisDataview.Count - 1 Then 'TopValidatedOrganization_USERS = ThisDataview(cpt + 1)("TopValidatedOrganization_USERS") 'If TopValidatedOrganization_USERS = 1 Then Dim BlocMembers2 As Members_Private_WebControls_BlocMembers = LoadControl("~/Members/Private/WebControls/BlocMembers.ascx") BlocMembers2.Clef_USERS = ThisDataview(cpt + 1)("Clef_USERS") ListeMembers_Placeholder.Controls.Add(BlocMembers2) 'End If End If If cpt + 2 <= ThisDataview.Count - 1 Then 'TopValidatedOrganization_USERS = ThisDataview(cpt + 2)("TopValidatedOrganization_USERS") 'If TopValidatedOrganization_USERS = 1 Then Dim BlocMembers2 As Members_Private_WebControls_BlocMembers = LoadControl("~/Members/Private/WebControls/BlocMembers.ascx") BlocMembers2.Clef_USERS = ThisDataview(cpt + 2)("Clef_USERS") ListeMembers_Placeholder.Controls.Add(BlocMembers2) 'End If End If Dim Items2 As New Literal Items2.Text = "</div>" ListeMembers_Placeholder.Controls.Add(Items2) ' Else End If Next Count = ThisDataview.Count If Count < 2 Then CountMembers.Text = Count & " member found" Else CountMembers.Text = Count & " members found" End If End If End If End If End Sub Sub ListeUsersByProjects(ByVal Clef_PROJECTS As Int32) Dim _FilterCount As Integer = -1 Dim MyTabSqlParam(-1) As SqlParameter Dim myUSERS As New USERS(MyErrorValidator) Dim myRequette As String = "SELECT Clef_USERS, FamilyName_USERS FROM USERS INNER JOIN USERSxxPROJECTS ON USERS.Clef_USERS = USERSxxPROJECTS.Clefusers_USERSxxPROJECTS INNER JOIN PROJECTS ON USERSxxPROJECTS.Clefprojects_USERSxxPROJECTS = PROJECTS.Clef_PROJECTS where TopSuppression_PROJECTS = 0 and TopSuppression_USERS = 0 and TopSuppression_USERSxxPROJECTS = 0 and TopEnLigne_USERS = 1 and TopIsValided_PROJECTS = 1 and EmailNonValide_USERS is null and TopCompteValide_USERS = 1 and Clefprojects_USERSxxPROJECTS = @Clef_PROJECTS" _FilterCount = _FilterCount + 1 Dim MySQLParameterClef_PROJECTS As New SqlParameter("@Clef_PROJECTS", SqlDbType.Int) MySQLParameterClef_PROJECTS.Value = Clef_PROJECTS ReDim Preserve MyTabSqlParam(_FilterCount) MyTabSqlParam(_FilterCount) = MySQLParameterClef_PROJECTS Dim Myds = myUSERS.List(myRequette, "FamilyName_USERS", MyTabSqlParam, False) If Myds Is Nothing Then MyErrorValidator.VALIDATORS_Controles_Error = "Nothing" Else If Myds.Tables.Count > 0 Then If Myds.Tables(0).Rows.Count > 0 Then Dim ThisDataview As DataView = Myds.Tables(0).DefaultView Dim Count As Double = 0 Dim Titre As New Literal Titre.Text = "<b>List of members</b><br /><br />" ListeMembersByProjects_Placeholder.Controls.Add(Titre) For cpt As Int32 = 0 To ThisDataview.Count - 1 Step 3 If cpt Mod 3 = 0 Then Dim Items As New Literal Items.Text = "<div class=""row"">" ListeMembersByProjects_Placeholder.Controls.Add(Items) Dim BlocMembers As Members_Private_WebControls_BlocMembers = LoadControl("~/Members/Private/WebControls/BlocMembers.ascx") BlocMembers.Clef_USERS = ThisDataview(cpt)("Clef_USERS") ListeMembersByProjects_Placeholder.Controls.Add(BlocMembers) Count += 1 If cpt + 1 <= ThisDataview.Count - 1 Then Dim BlocMembers2 As Members_Private_WebControls_BlocMembers = LoadControl("~/Members/Private/WebControls/BlocMembers.ascx") BlocMembers2.Clef_USERS = ThisDataview(cpt + 1)("Clef_USERS") ListeMembersByProjects_Placeholder.Controls.Add(BlocMembers2) Count += 1 End If If cpt + 2 <= ThisDataview.Count - 1 Then Dim BlocMembers2 As Members_Private_WebControls_BlocMembers = LoadControl("~/Members/Private/WebControls/BlocMembers.ascx") BlocMembers2.Clef_USERS = ThisDataview(cpt + 2)("Clef_USERS") ListeMembersByProjects_Placeholder.Controls.Add(BlocMembers2) Count += 1 End If Dim Items2 As New Literal Items2.Text = "</div>" ListeMembersByProjects_Placeholder.Controls.Add(Items2) ' Else End If Next End If End If End If End Sub Sub ListeMembersAttenteNotification(ByVal Clef_PROJECTS As Int32) Dim _FilterCount As Integer = -1 Dim MyTabSqlParam(-1) As SqlParameter Dim myNOTIFICATIONS3 As New NOTIFICATIONS3(MyErrorValidator) Dim myRequette As String = "SELECT * FROM NOTIFICATIONS3 where ClefDatatableSource_NOTIFICATIONS3 = @ClefDatatableSource_NOTIFICATIONS3 and ClefLiaisonSource_NOTIFICATIONS3 = @ClefLiaisonSource_NOTIFICATIONS3 and ClefEtats_NOTIFICATIONS3 = @ClefEtats_NOTIFICATIONS3 AND ClefTypes_NOTIFICATIONS3 = @ClefTypes_NOTIFICATIONS3 and TopSuppression_NOTIFICATIONS3 = 0" ClefDatatableSource_NOTIFICATIONS3_IsHidden.Value = DATATABLES.GetClefByLibelle(MyErrorValidator, "PROJECTS") ClefLiaisonSource_NOTIFICATIONS3_IsHidden.Value = Clef_PROJECTS _FilterCount = _FilterCount + 1 Dim MySQLParameter1 As New SqlParameter("@ClefDatatableSource_NOTIFICATIONS3", SqlDbType.Int) MySQLParameter1.Value = ClefDatatableSource_NOTIFICATIONS3_IsHidden.Value ReDim Preserve MyTabSqlParam(_FilterCount) MyTabSqlParam(_FilterCount) = MySQLParameter1 _FilterCount = _FilterCount + 1 Dim MySQLParameter4 As New SqlParameter("@ClefLiaisonSource_NOTIFICATIONS3", SqlDbType.Int) MySQLParameter4.Value = ClefLiaisonSource_NOTIFICATIONS3_IsHidden.Value ReDim Preserve MyTabSqlParam(_FilterCount) MyTabSqlParam(_FilterCount) = MySQLParameter4 _FilterCount = _FilterCount + 1 Dim MySQLParameter5 As New SqlParameter("@ClefEtats_NOTIFICATIONS3", SqlDbType.Int) MySQLParameter5.Value = NOTIFICATIONS_ETATS3.ListeEtat.NonLu ReDim Preserve MyTabSqlParam(_FilterCount) MyTabSqlParam(_FilterCount) = MySQLParameter5 _FilterCount = _FilterCount + 1 Dim MySQLParameter6 As New SqlParameter("@ClefTypes_NOTIFICATIONS3", SqlDbType.Int) MySQLParameter6.Value = NOTIFICATIONS_TYPES3.ListeType.InvitationsProjects ReDim Preserve MyTabSqlParam(_FilterCount) MyTabSqlParam(_FilterCount) = MySQLParameter6 Dim Myds = myNOTIFICATIONS3.List(myRequette, "DateInsertion_NOTIFICATIONS3", MyTabSqlParam, False) If Myds Is Nothing Then MyErrorValidator.VALIDATORS_Controles_Error = "Nothing" Else If Myds.Tables.Count > 0 Then If Myds.Tables(0).Rows.Count > 0 Then Dim ThisDataview As DataView = Myds.Tables(0).DefaultView Dim Count As Double = 0 Dim Titre As New Literal Titre.Text = "<b>List of pending invitations</b><br /><br />" ListeMembersAttenteNotification_Placeholder.Controls.Add(Titre) For cpt As Int32 = 0 To ThisDataview.Count - 1 Step 3 If cpt Mod 3 = 0 Then Dim Items As New Literal Items.Text = "<div class=""row"">" ListeMembersAttenteNotification_Placeholder.Controls.Add(Items) Dim BlocMembers As Members_Private_WebControls_BlocMembers = LoadControl("~/Members/Private/WebControls/BlocMembers.ascx") BlocMembers.Clef_USERS = ThisDataview(cpt)("ClefLiaisonCible_NOTIFICATIONS3") ListeMembersAttenteNotification_Placeholder.Controls.Add(BlocMembers) Count += 1 If cpt + 1 <= ThisDataview.Count - 1 Then Dim BlocMembers2 As Members_Private_WebControls_BlocMembers = LoadControl("~/Members/Private/WebControls/BlocMembers.ascx") BlocMembers2.Clef_USERS = ThisDataview(cpt + 1)("ClefLiaisonCible_NOTIFICATIONS3") ListeMembersAttenteNotification_Placeholder.Controls.Add(BlocMembers2) Count += 1 End If If cpt + 2 <= ThisDataview.Count - 1 Then Dim BlocMembers2 As Members_Private_WebControls_BlocMembers = LoadControl("~/Members/Private/WebControls/BlocMembers.ascx") BlocMembers2.Clef_USERS = ThisDataview(cpt + 2)("ClefLiaisonCible_NOTIFICATIONS3") ListeMembersAttenteNotification_Placeholder.Controls.Add(BlocMembers2) Count += 1 End If Dim Items2 As New Literal Items2.Text = "</div>" ListeMembersAttenteNotification_Placeholder.Controls.Add(Items2) ' Else End If Next Dim Sep As New Literal Sep.Text = "<div class=""divider""></div>" ListeMembersAttenteNotification_Placeholder.Controls.Add(Sep) End If End If End If End Sub
Répondre avec citation
Partager