Filter Duplicate Data

[Stanley]

How do I remove duplicate DataRow from a DataTable?
I tried the DataTable.Select but the parameter not accept the "Distinct"
keyword.

Please advice.
Thanks

[Cor Ligthert]

Hi Stanley,

There is no Distinct in select as a lot of us wish there was.

You can only use a real fill with a select in the connection string or a
more generic routine. I made once as a sample for this, try it and tell if
it works because I never used it. (dist is the field name in the table)

I hope this helps?

Cor

\\
Public Class Selectclass
Public Function distinct(ByVal dt As DataTable, _
ByVal dist As String) As DataTable
Dim dtclone As DataTable = dt.Clone
Dim dv As New DataView(dt)
dv.Sort = dist
Dim myselold As String = ""
For i As Integer = 0 To dv.Count - 1
If myselold <> dv(i)(dist).ToString Then
Dim drn As DataRow = dtclone.NewRow
For y As Integer = 0 To dv.Count - 1
drn(y) = dv(i)(y)
Next
myselold = dv(i)(dist).ToString
dtclone.Rows.Add(drn)
End If
Next
Return dtclone
End Function
End Class

[Cor Ligthert]

Hi Stanley,

There is no Distinct in select as a lot of us wish there was.

You can only use a real fill with a select in the connection string or a
more generic routine. I made once as a sample for this, try it and tell if
it works because I never used it. (dist is the field name in the table)

I hope this helps?

Cor

\\
Public Class Selectclass
Public Function distinct(ByVal dt As DataTable, _
ByVal dist As String) As DataTable
Dim dtclone As DataTable = dt.Clone
Dim dv As New DataView(dt)
dv.Sort = dist
Dim myselold As String = ""
For i As Integer = 0 To dv.Count - 1
If myselold <> dv(i)(dist).ToString Then
Dim drn As DataRow = dtclone.NewRow
For y As Integer = 0 To dv.Count - 1
drn(y) = dv(i)(y)
Next
myselold = dv(i)(dist).ToString
dtclone.Rows.Add(drn)
End If
Next
Return dtclone
End Function
End Class