Dim TBLRow As New TableRow Dim TBLCell As New TableCell If DistinctSubAssy.Rows.Count > 0 Then For a = 0 To DistinctSubAssy.Rows.Count - 1 ' Afli prima denumire Dim SubAssy As String = DistinctSubAssy(a).SubAssy Dim GetRowSpanForThisSubAssy As Integer = Adapter.DistinctProductType(SelectedCategory, SubAssy) Dim DistinctProductType As MV_SamplesOrders.SelectionsDataTable = Adapter.GetDistinctProductType(SelectedCategory, SubAssy) TBLCell = New TableCell TBLCell.RowSpan = GetRowSpanForThisSubAssy TBLCell.Text = SubAssy TBLRow.Cells.Add(TBLCell) For b = 0 To DistinctProductType.Rows.Count - 1 Dim ProductType As String = DistinctProductType(b).ProductType Dim GetSelection As MV_SamplesOrders.SelectionsDataTable = Adapter.GetDataByCategoryAndSubAssyAndProductType(SelectedCategory, SubAssy, ProductType) TBLCell = New TableCell TBLCell.Text = ProductType TBLRow.Cells.Add(TBLCell) TBLCell = New TableCell For c = 0 To GetSelection.Rows.Count - 1 Dim Selection As String = GetSelection(c).Selection Dim SelectControlPlan As String = GetSelection(c).ControlType TBLCell.Controls.Add(New LiteralControl(Selection)) '----------------HERE------------ TBLCell.Controls.Add(New LiteralControl("<br />")) TBLRow.Cells.Add(TBLCell) Next TBL_Selections.Rows.Add(TBLRow) TBLRow = New TableRow Next Next End If
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)