Webpart en VB.net

Webpart en VB.net - C#/.NET managed - Programmation

Marsh Posté le 31-08-2005 à 11:28:13    

J'ai fais une webpart pour un site WSS
elle est de type dropdownlist
j'ai un message d'erreur lorsque je renseigne la propriété "fieldname"
si je ne renseigne que la propriété "listname" cela ne pose pas de pb
je pense donc que le pb vient de la fonction "GetListData"
 
Ci-dessous le code, si quelqu'un a une idée.
 
D'avance merci à tous...  :jap:  
 
 
 
 

Code :
  1. Imports System
  2. Imports System.ComponentModel
  3. Imports System.Web.UI
  4. Imports System.Web.UI.WebControls
  5. Imports System.Xml.Serialization
  6. Imports Microsoft.SharePoint
  7. Imports Microsoft.SharePoint.Utilities
  8. Imports Microsoft.SharePoint.WebPartPages
  9. Imports Microsoft.SharePoint.WebControls
  10. Imports System.Collections             
  13. 'Description for WebPart1.
  14. <DefaultProperty("listName" ), ToolboxData("<{0}:WebPart1 runat=server></{0}:WebPart1>" ), XmlRoot(Namespace:="WebPartDropDown" )> _
  15. Public Class WebPart1
  17.     Inherits Microsoft.SharePoint.WebPartPages.WebPart
  19.     Private Const _defaultText As String = ""
  20.     Dim _text As String = _defaultText
  22.     Protected myList As DropDownList
  24.     Dim _listName As String
  25.     Dim _fieldName As String
  26.     Dim _displayText As String
  28.     'Property : Nom de la liste... [ListName]
  29.     <Browsable(True), Category("Définitions" ), DefaultValue("" ), WebPartStorage(Storage.Personal), FriendlyName("Nom de la liste" ), Description("Indiquer le nom de la liste SharePoint du site courant" )> _
  30.     Property [ListName]() As String
  31.         Get
  32.             Return _listName
  33.         End Get
  35.         Set(ByVal Value As String)
  36.             _listName = Value
  37.         End Set
  38.     End Property
  40.     'Property : Nom du champ de la liste... [FieldName]
  41.     <Browsable(True), Category("Définitions" ), DefaultValue("" ), WebPartStorage(Storage.Personal), FriendlyName("Nom du champ" ), Description("Indiquer le nom du champ de la liste SharePoint" )> _
  42.     Property [FieldName]() As String
  43.         Get
  44.             Return _fieldName
  45.         End Get
  46.         Set(ByVal Value As String)
  47.             _fieldName = Value
  48.         End Set
  49.     End Property
  51.     'Property : Libellé à afficher... [DisplayText]
  52.     <Browsable(True), Category("Définitions" ), DefaultValue("" ), WebPartStorage(Storage.Personal), FriendlyName("Libellé" ), Description("Indiquer le libellé à afficher" )> _
  53.     Property [DisplayText]() As String
  54.         Get
  55.             Return _displayText
  56.         End Get
  57.         Set(ByVal Value As String)
  58.             _displayText = Value
  59.         End Set
  60.     End Property
  62.     Protected Overrides Sub RenderWebPart(ByVal output As System.Web.UI.HtmlTextWriter)
  63.         output.Write(SPEncode.HtmlEncode([DisplayText]))
  64.     End Sub
  66.     Protected Overrides Sub CreateChildControls()
  68.         'Initialisation du controle DropDownList
  69.         Dim myList As New DropDownList
  70.         myList.ID = "myList1"
  71.         Me.Controls.Add(myList)
  73.         AddHandler Me.PreRender, New EventHandler(AddressOf Me.WebPart1_PreRender)
  75.     End Sub
  77.     Private Sub WebPart1_PreRender(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.PreRender
  78.         'La liste est "bindée" ici...
  79.         Bind_ddlist()
  80.     End Sub
  82.     Private Sub Bind_ddlist()
  84.         'Si le composant WebPart n'est pas configuré...
  86.         If (ListName = "" Or FieldName = "" ) Then
  87.             Return
  88.         Else
  89.             If (myList.Items.Count = 0) Or (CStr(ViewState("ListName" )) <> ListName) Or (CStr(ViewState("FieldName" )) <> FieldName) Then
  90.                 ViewState("ListName" ) = ListName
  91.                 ViewState("FieldName" ) = FieldName
  92.                 myList.Items.Clear()
  93.                 myList.DataSource = GetListData(ListName, FieldName)
  94.                 myList.DataBind()
  95.             End If
  96.         End If
  97.     End Sub
  99.     Private Function GetListData(ByVal listName As String, ByVal fieldName As String) As ArrayList
  101.         'Ajout d'un array list de type ArrayList
  103.         Dim aList As New ArrayList
  104.         Dim mySite As SPWeb = SPControl.GetContextWeb(Context)
  105.         Dim myList As SPList = mySite.Lists(listName)
  107.         For Each myItem As SPListItem In myList.Items
  108.             aList.Add(myItem(fieldName))
  109.         Next
  111.         Return aList
  112.         'GetListData = aList
  114.     End Function
  119. End Class


Message édité par Sven_64 le 31-08-2005 à 11:31:40
Reply

Marsh Posté le 31-08-2005 à 11:28:13   

Reply

Marsh Posté le 31-08-2005 à 14:17:17    

chti up...  :bounce:

Reply

Marsh Posté le 01-09-2005 à 10:40:10    

remplace : aList.Add(myItem(fieldName)) par un truc du genre deja :
par
If (myItem(fieldName)) <> nothing Then
  aList.Add(myItem(fieldName))
else
   ' je sé c est deguelasse mais c est le plus rapide
  Dim ctrl as new TextBox()
  ctrl.text == "item  " & myItem.ToString & " - prop " & fieldmane & " vide !!!"
  Me.Controls.Add(ctrl)
End IF


Message édité par siestounet le 01-09-2005 à 10:42:16
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed