replace duplicate values with string.empty

Question

1.00/5 (1 vote)

See more:

Hi, im having data populate in:
EG1001 S1
EG1001 S2
EG1001 S3

i want it achieve:
EG1001 s1
-blank- s2
-blank- s3

EG1002 S2
-blank- S4

populated in datagridview.

tried with this code:
Dim i As Integer

For i = 0 To dgvModStud.Rows.Count - 1
If dgvModStud.Rows(i).Cells(0).Value = True Then
dgvModStud.Rows(i).Cells(0).Value = String.Empty
Else
Continue For

End If
Next

but it doesnt work, why is it so?

thanks in advance!

Posted 7-Jul-13 16:59pm

12345_abcde

Add a Solution

Comments

Sergey Alexandrovich Kryukov 7-Jul-13 23:05pm

If you don't want duplicates, why did you allow them in first place? As to your code, why would you think it remove duplicates? You never compare any values...
—SA

12345_abcde 8-Jul-13 0:00am

i wanted a blank value to the outcome i stated above.
i dont really know how to compare values.

Kuthuparakkal 8-Jul-13 0:52am

Review my solution posted...

12345_abcde 8-Jul-13 0:03am

how about this code?

Dim i As Integer
For Each row As DataGridViewRow In dgvModStud.Rows
Dim obj(row.Cells.Count - 1) As Object
For i = 0 To row.Cells.Count - 1
If obj(i) = row.Cells(i).Value Then
row.Cells(i).Value = String.Empty
Me.dgvModStud.Rows.Add(row.Cells(i).Value)
Else
Continue For
Me.dgvModStud.Rows.Add(obj)
End If
Next

Next

it's not working though ><

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Kuthuparakkal · Answer 1 · 2013-07-07T18:48:00

Try this:

VB

Dim table As New DataTable
' Create four typed columns in the DataTable.
table.Columns.Add("MyKey", GetType(String))
table.Columns.Add("MyValue", GetType(String))
table.Rows.Add("EG1001", "S1")
table.Rows.Add("EG1001", "S2")
table.Rows.Add("EG1001", "S3")
table.Rows.Add("EG2001", "S4")
table.Rows.Add("EG2001", "S5")
table.Rows.Add("EG2001", "S6")
Dim strKey As String
Dim DistinctCol As String()

Dim dtDistinct As New DataTable

DistinctCol = New String() {"MyKey"}

Dim i As Integer

dtDistinct = table.DefaultView.ToTable(True, DistinctCol)

Dim foundRows() As DataRow

For Each row As DataRow In dtDistinct.Rows
    strKey = row(0).ToString()

    foundRows = table.Select("MyKey = '" & strKey & "'")

    If (foundRows.Length > 1) Then
        For i = 1 To foundRows.GetUpperBound(0)
            foundRows(i)("MyKey") = "" ' OR "-blank-" whatever you like
        Next i
    End If

Next row

'Now you can use the datatable "table" as your source for gridview.

Thanks,

Kuthuparakkal