Posted By

Gompje on 11/10/11


Tagged

Net 10distinctdatatable


Versions (?)

Distinct datatable 1.0


 / Published in: VB.NET
 

  1. Public Function DistinctRows_Int32_Key(ByVal dt As DataTable, ByVal keyfield As String) As DataTable
  2. Dim newTable As DataTable = dt.Clone
  3. Dim keyval As Int32 = 0
  4. Dim dv As DataView = dt.DefaultView
  5.  
  6. dv.Sort = keyfield
  7. If dt.Rows.Count > 0 Then
  8. For Each drv As DataRowView In dv '.ToTable.Rows
  9. If drv("mark") <> "PG" Then
  10. newTable.ImportRow(drv.Row)
  11. ElseIf Not drv.Item(keyfield) = keyval Then
  12. newTable.ImportRow(drv.Row)
  13. keyval = drv.Item(keyfield)
  14. End If
  15. Next
  16. Else
  17. newTable = dt.Clone
  18. End If
  19. Return newTable
  20. End Function

Report this snippet  

You need to login to post a comment.