Dynamic Add User Control To The Tab Control

cheer · February 25th, 2009, 04:51 AM

Anyone can suggest what's wrong to the code below as the User Control objects ONLY appear in the first tab and NOT in the balance tabs ?

1) User Control name - usRFQDetail
2) Tab Control name - tcRFQDetail

Quote:

Dim tcPage As New TabPage
Dim ucRFQDetailInstance As usRFQDetail() = New usRFQDetail(100) {}

Dim sdrReader As SqlDataReader = cmdReader.ExecuteReader(CommandBehavior.CloseConne ction)

With sdrReader
If .HasRows Then
ucRFQDetailInstance(intTotalTab) = New usRFQDetail
.Read()
tcRFQDetail.TabPages(intCurrentTab).Text = .GetString(.GetOrdinal("DrawingNo"))
While .Read
intCurrentTab += 1
tcPage.Text = .GetString(.GetOrdinal("DrawingNo"))
tcRFQDetail.TabPages.Add(tcPage) tcRFQDetail.TabPages(intCurrentTab).Controls.Add(u cRFQDetailInstance(intCurrentTab))
End While

cheer · February 25th, 2009, 10:48 PM

I have found the answer at the end. Below are the codes. Share with you all

While .Read
Dim tcPage As New TabPage()
Dim ucRFQDetailInstance As New usRFQDetail()
tcPage.Text = .GetString(.GetOrdinal("DrawingNo"))
tcPage.Controls.Add(ucRFQDetailInstance)
tcRFQDetail.TabPages.Add(tcPage)
With ucRFQDetailInstance
.Dock = DockStyle.Fill
End With
intCurrentTab += 1
End While