This is a migrated thread and some comments may be shown as answers.

Placing filtered grid rows into a datatable

3 Answers 13 Views
Grid
This is a migrated thread and some comments may be shown as answers.
Acadia
Top achievements
Rank 1
Acadia asked on 20 Jan 2020, 08:32 PM

Hoping somebody can help me here.  I am following an example posted by Telerik on how to do this in this forum.  I am getting "" returned as the value for every column value (.Text).  All of my grid columns are GridtTmplateColumns and the column values are labels within the template.

 

How do accomplish this with GridTemplateColumns?  I have been struggling with this for the entire day.  Can I somehow use item.findcontrol here?

 

            Dim dtRecs As DataTable = New DataTable

            For Each col As GridColumn In rgbt.Columns
                If (col.ColumnType = "GridTemplateColumn") Then
                    Dim colstring As String
                    colstring = col.UniqueName
                    dtRecs.Columns.Add(colstring)
                End If
            Next

            For Each item As GridDataItem In rgbt.Items
                Dim newRow As DataRow = dtRecs.NewRow()
                For Each column As GridColumn In rgbt.Columns
                    If (column.ColumnType = "GridTemplateColumn") Then
                        newRow(column.UniqueName) = item.(column.UniqueName).Text    'RETURNS ""
                        dtRecs.Rows.Add(newRow)
                    End If
                Next
            Next

 

Thanks!

3 Answers, 1 is accepted

Sort by
0
Acadia
Top achievements
Rank 1
answered on 21 Jan 2020, 11:42 AM

here is my actual grid column:.  This code is just in a function.

 

 <telerik:GridTemplateColumn DataField="TE_SYSCODE" HeaderText="Sys Code" UniqueName="TE_SYSCODE"
                                SortExpression="TE_SYSCODE">
                                <HeaderStyle HorizontalAlign="Center" Width="67px" Wrap="False" Font-Size="Smaller" />
                                <ItemStyle HorizontalAlign="Right" Width="67px" Wrap="False" />
                                <ItemTemplate>
                                    <asp:Label runat="server" ID="lblSyscode" CssClass="NormalNarrow" Width="63px" Text='<%#DataBinder.Eval(Container, "DataItem.TE_SYSTEMCODE") %>'></asp:Label>
                                </ItemTemplate>
                            </telerik:GridTemplateColumn>

0
Acadia
Top achievements
Rank 1
answered on 21 Jan 2020, 12:08 PM

I converted this to a gridboundcolumn with the same result.  Except instead of "" the item.(column.UniqueName).Text value is "&nbsp;"

 

Not sure what I am doing wrong....

0
Acadia
Top achievements
Rank 1
answered on 22 Jan 2020, 04:25 PM

For what it's worth to anyone else, here is how I ended up looping through my filtered grid and copying the filtered rows into a datatable.  I know it isn't pretty but it works perfectly:

 

Private Function getFilteredRows(ByVal formattedBatchId As String) As DataTable

            Dim dtRecs As New DataTable
            Dim R As DataRow
            Dim addRowFlag As Boolean

            For Each item As GridItem In rgbt.MasterTableView.Items

                Dim lblEmpMsg As Label = CType(item.FindControl("lblEmpMsg"), Label)
                Dim empMsgVal As String = lblEmpMsg.Text

                Dim lblAmt As Label = CType(item.FindControl("lblExpAmount"), Label)
                Dim amtVal As String = Replace(lblAmt.Text, "$", "")

                Dim lblSeqNum As Label = CType(item.FindControl("lblSeqNum"), Label)
                Dim seqNumVal As String = lblSeqNum.Text
                Dim lblJobNum As Label = CType(item.FindControl("lblJobNum"), Label)
                Dim jobNumVal As String = lblJobNum.Text
                Dim lblPhase As Label = CType(item.FindControl("lblPhase"), Label)
                Dim phaseVal As String = lblPhase.Text
                Dim lblCategory As Label = CType(item.FindControl("lblCategory"), Label)
                Dim categoryVal As String = lblCategory.Text
                Dim lblVendor As Label = CType(item.FindControl("lblVendor"), Label)
                Dim vendorVal As String = lblVendor.Text

                Dim lblWed As Label = CType(item.FindControl("lblCurWkEndDte"), Label)
                Dim wedVal As String = lblWed.Text

                Dim lblInvoiceNum As Label = CType(item.FindControl("lblInvoiceNum"), Label)
                Dim invoiceNumVal As String = lblInvoiceNum.Text
                invoiceNumVal = Replace(invoiceNumVal, "BATCH#", "-" & formattedBatchId)

                R = dtRecs.NewRow
                addRowFlag = False

                For Each column As GridColumn In rgbt.Columns


                    If (column.ColumnType = "GridTemplateColumn") Then
                        If (column.ColumnGroupName = "fileField") Then

                            Dim colstring As String = column.UniqueName

                            If (dtRecs.Columns.Contains(colstring) = False) Then
                                Dim newcolumn = New DataColumn()
                                newcolumn.DataType = System.Type.GetType("System.String")
                                newcolumn.ColumnName = colstring
                                dtRecs.Columns.Add(newcolumn)

                                'set the data table column to it's appropriate label value
                                If (colstring = "TE_SEQUENCE_NO") Then
                                    R(colstring) = seqNumVal
                                    addRowFlag = True
                                End If
                                If (colstring = "TE_JOB_NUMBER") Then
                                    R(colstring) = jobNumVal
                                    addRowFlag = True
                                End If
                                If (colstring = "TE_PHASE") Then
                                    R(colstring) = phaseVal
                                    addRowFlag = True
                                End If
                                If (colstring = "TE_CATEGORY") Then
                                    R(colstring) = categoryVal
                                    addRowFlag = True
                                End If
                                If (colstring = "Vendor") Then
                                    R(colstring) = vendorVal
                                    addRowFlag = True
                                End If
                                If (colstring = "InvoiceNum") Then
                                    R(colstring) = invoiceNumVal
                                    addRowFlag = True
                                End If
                                If (colstring = "emp_msg") Then
                                    R(colstring) = empMsgVal
                                    addRowFlag = True
                                End If
                                If (colstring = "TE_EXP_AMOUNT") Then
                                    R(colstring) = amtVal
                                    addRowFlag = True
                                End If
                                If (colstring = "TE_CURRENTWEEKEND_DATE") Then
                                    R(colstring) = wedVal
                                    addRowFlag = True
                                End If

                            Else
                                If (colstring = "TE_SEQUENCE_NO") Then
                                    R(colstring) = seqNumVal
                                    addRowFlag = True
                                End If
                                If (colstring = "TE_JOB_NUMBER") Then
                                    R(colstring) = jobNumVal
                                    addRowFlag = True
                                End If
                                If (colstring = "TE_PHASE") Then
                                    R(colstring) = phaseVal
                                    addRowFlag = True
                                End If
                                If (colstring = "TE_CATEGORY") Then
                                    R(colstring) = categoryVal
                                    addRowFlag = True
                                End If
                                If (colstring = "Vendor") Then
                                    R(colstring) = vendorVal
                                    addRowFlag = True
                                End If
                                If (colstring = "InvoiceNum") Then
                                    R(colstring) = invoiceNumVal
                                    addRowFlag = True
                                End If
                                If (colstring = "emp_msg") Then
                                    R(colstring) = empMsgVal
                                    addRowFlag = True
                                End If
                                If (colstring = "TE_EXP_AMOUNT") Then
                                    R(colstring) = amtVal
                                    addRowFlag = True
                                End If
                                If (colstring = "TE_CURRENTWEEKEND_DATE") Then
                                    R(colstring) = wedVal
                                    addRowFlag = True
                                End If
                            End If
                        End If
                    End If

                Next

                If (addRowFlag) Then
                    dtRecs.Rows.Add(R)
                End If

            Next

            Return dtRecs

        End Function

 

 

Tags
Grid
Asked by
Acadia
Top achievements
Rank 1
Answers by
Acadia
Top achievements
Rank 1
Share this question
or