Passing Selected Data Between WebParts in SharePoint: Listing 1
Code to add a DataSet to a Visual WebPart project and drag a table into it.
<ToolboxItemAttribute(false)> _
Public Class SampleParameters
Inherits WebPart
Implements IWebPartParameters
Private Const _ascxPath As String = "…path to ascx file…"
Protected Overrides Sub CreateChildControls()
Dim control As Control = Page.LoadControl(_ascxPath)
Controls.Add(control)
End Sub
Private _nwTB As New Northwind.OrdersDataTable
Public Property nwTB As Northwind.OrdersDataTable
Get
Return _nwTB
End Get
Set(value As Northwind.OrdersDataTable)
_nwTB = value
End Set
End Property
Protected Overrides Sub OnPreRender(e As System.EventArgs)
MyBase.OnPreRender(e)
Dim nwtba As New NorthwindTableAdapters.OrdersTableAdapter
nwTB = nwtba.GetData
End Sub
<ConnectionProvider("Selected Data", _
"ConnectionPointIWebpartParameters", _
AllowsMultipleConnections:=True)> _
Public Function MyConsumerMethodForParameters() As IWebPartParameters
Return Me
End Function
About the Author
Peter Vogel is a system architect and principal in PH&V Information Services. PH&V provides full-stack consulting from UX design through object modeling to database design. Peter tweets about his VSM columns with the hashtag #vogelarticles. His blog posts on user experience design can be found at http://blog.learningtree.com/tag/ui/.