Public Sub BuildAccordion()
Dim dt As DataTable = ListData1.DefaultView.ToTable("MyPanes", True, New [String]() {"Screen_no", "Screen_desc"})
For Each row As DataRow In dt.Rows
Dim myStrExpr As String
myStrExpr = "screen_no = " & row("Screen_no").ToString
Dim lbScreen As New ListBox
For Each row1 As DataRow In ListData1.Select(myStrExpr)
lbScreen.Items.Add(New ListItem(row1("Floor/Location/Position").ToString, "Seat_no"))
Next
CreateAccPane(row("Screen_desc").ToString, row("Screen_desc").ToString, lbScreen)
Next
End Sub
Public Sub CreateAccPane(ByVal PaneID As String, ByVal PaneHeader As String, ByVal PaneContent As ListBox)
Dim panel1 As AccordionPane = New AccordionPane
panel1.ID = PaneID
panel1.HeaderContainer.Controls.Add(New LiteralControl(PaneHeader))
panel1.ContentContainer.Controls.Add(PaneContent)
AccPositions.Panes.Add(panel1)
End Sub
Experts Exchange always has the answer, or at the least points me in the correct direction! It is like having another employee that is extremely experienced.
When asked, what has been your best career decision?
Deciding to stick with EE.
Being involved with EE helped me to grow personally and professionally.
Connect with Certified Experts to gain insight and support on specific technology challenges including:
We've partnered with two important charities to provide clean water and computer science education to those who need it most. READ MORE