Visual Basic

Imports Microsoft.VisualBasic

Imports Microsoft.VisualBasic

Dim row, col As Integer
Dim cellID As String
 
For row = 1 to 10
    For col = 1 to 10
        cellID = Chr(64+row) & col.ToString("##")
        If sourceWorksheetObject.Range(cellID).Value <> _
           compareWorksheetObject.Range(cellID).Value Then
               ' Cells are not equal, do something about it...
        Else
               ' Cells ARE equal
        End If
    Next
Next

    Dim numRows As Integer
    Dim dt As DataTable         ' This is the table returned from the database
    Dim dv As New DataView(dt)  ' Creates a new DataView for the table
 
    DataGird1.DataSource = dv   ' bind the grid to the dataview
    DataGrid.DataBind()
 
    numRows = dv.Count()

Private Sub mnuFileCheck_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuFileCheck.Click
    Dim frmOneInstance As New frmOne() 'instance of form to mark this form against
    Dim intErrorCount As Integer = 0 'to keep an error count 
 
    If lblSID.Text <> frmOneInstance.lblID.Text Then
        intErrorCount += 1
    End If
 
    If lblSName.Text <> frmOneInstance.lblName.Text Then
        intErrorCount += 1
    End If
 
    If intErrorCount > 0 Then
        MessageBox.Show("Error count total: " & intErrorCount, "Result", MessageBoxButtons.OK, MessageBoxIcon.Information)
    Else
        MessageBox.Show("All Correct!", "Result", MessageBoxButtons.OK, MessageBoxIcon.Information)
    End If
End Sub