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
   |  
Sub ConstruireGV()
		LogageOW("Je passe dans le ConstruireGV")
		Dim idcampagne, libelle, objet, regie, boolactif As New BoundField
		With idcampagne
			.HeaderText = "ID"
			.DataField = "Id_Campagne"
		End With
		With libelle
			.HeaderText = "Libellé"
			.DataField = "Libelle"
			.SortExpression = "Libelle"
		End With
		With objet
			.HeaderText = "Objet"
			.DataField = "Objet"
			.SortExpression = "Objet"
		End With
		With regie
			.HeaderText = "Régie"
			.DataField = "Regie"
			.SortExpression = "Regie"
		End With
 
		Dim apercu, actif As New TemplateField
		With apercu
			.ItemTemplate = New TemplatePopup(DataControlRowType.DataRow, "Id_Campagne", "Apercu")
			.HeaderTemplate = New TemplatePopup(DataControlRowType.Header, "Aperçu", "Apercu")
		End With
		With actif
			.ItemTemplate = New TemplatePopup(DataControlRowType.DataRow, "Actif", "Actif")
			.HeaderTemplate = New TemplatePopup(DataControlRowType.Header, "Actif", "Actif")
		End With
 
		Dim test, envoi, segment, modif As New ButtonField
		With test
			.HeaderText = "Test"
			.ButtonType = ButtonType.Image
			.ImageUrl = "~/App_Themes/" & GetNomsite() & "/lettresinfo.png"
			.CommandName = "Test"
		End With
		With envoi
			.HeaderText = "Envoi"
			.ButtonType = ButtonType.Image
			.ImageUrl = "~/App_Themes/" & GetNomsite() & "/lettresinfo.png"
			.CommandName = "EnvoiMail"
		End With
		With segment
			.HeaderText = "@"
			.ButtonType = ButtonType.Image
			.ImageUrl = "~/App_Themes/" & GetNomsite() & "/lettresinfo.png"
			.CommandName = "Segment"
		End With
		With modif
			.HeaderText = "Modif"
			.ButtonType = ButtonType.Image
			.ImageUrl = "~/App_Themes/" & GetNomsite() & "/modifier_16.png"
			.CommandName = "Modif"
		End With
 
		Dim StatutEnvoi As New ImageField
		With StatutEnvoi
			.HeaderText = "Envoi"
			.DataImageUrlField = "Envoi"
			.DataImageUrlFormatString = "~/App_Themes/" & GetNomsite() & "/{0}.png"
		End With
 
		With gvCampagne
			With .Columns
				.Clear()
				.Add(idcampagne)
				.Add(libelle)
				.Add(objet)
				.Add(regie)
				.Add(apercu)
				.Add(test)
				.Add(envoi)
				.Add(actif)
				.Add(StatutEnvoi)
				.Add(modif)
			End With
			.DataSourceID = "sdsGvCampagne"
		End With
	End Sub | 
Partager