[Taha Okla]

انسخ الكود التالي إلى برنامجك : 

كود :

Private Sub ReplaceInDataGridView(pDataGridView As DataGridView, pFind As String, pReplacenent As String)
    For i = 0 To pDataGridView.Columns.Count - 1
        For Each row As DataGridViewRow In pDataGridView.Rows
            row.Cells(i).Value = Replace(row.Cells(i).Value, pFind, pReplacenent)
        Next
    Next
End Sub

وللاستبدال أستخدم أمر النداء التالي :

كود :

ReplaceInDataGridView(DataGridView1, "أ", "ا")
ReplaceInDataGridView(DataGridView1, "إ", "ا")
ReplaceInDataGridView(DataGridView1, "آ", "ا")
ReplaceInDataGridView(DataGridView1, "ة", "ه")
ReplaceInDataGridView(DataGridView1, "ي", "ى")