title: Option Strict Set to ON issue of late binding
body: <pre><code>' 1St step
  Dim irregularWeldSpots = From row In spotsTable.AsEnumerable()
                       Where (CStr(row("FUNCJOINTCODE")) = currentJointKey
          And ((Convert.ToDecimal(row("RESULTUNIT")) / Convert.ToDecimal(row("LENSDIAMUNIT"))) &gt;= defectiveSpotIfSizeLessThanPercent
          And (Convert.ToDecimal(row("RESULTUNIT")) / Convert.ToDecimal(row("LENSDIAMUNIT"))) &lt; insufficientSpotIfSizeLessThanPercent)
          Or (Convert.ToDecimal(row("RESULTUNIT")) / Convert.ToDecimal(row("LENSDIAMUNIT")) &lt; defectiveSpotIfSizeLessThanPercent))
          Select Case row
          , IsInsufficient = ((Convert.ToDecimal(row("RESULTUNIT")) / Convert.ToDecimal(row("LENSDIAMUNIT"))) &gt;= defectiveSpotIfSizeLessThanPercent
          And (Convert.ToDecimal(row("RESULTUNIT")) / Convert.ToDecimal(row("LENSDIAMUNIT"))) &lt; insufficientSpotIfSizeLessThanPercent)
          , IsDefect = (Convert.ToDecimal(row("RESULTUNIT")) / Convert.ToDecimal(row("LENSDIAMUNIT"))) &lt; defectiveSpotIfSizeLessThanPercent
  
  ' 2nd step      
  EvaluateDistanceBetweenIrregularSpots(resultTable,definitionsTable,currentJointKey,allWeldSpots,allWeldSpotsCount,defectiveWeldSpotsCount,
                                      insufficientWeldspotsCount,irregularWeldSpots)
  
  ' 3rd step                                      
  Private Sub EvaluateDistanceBetweenIrregularSpots(ByRef resultTable As DataTable, ByRef definitionsTable As DataTable, As String, allWeldSpots As IEnumerable, allWeldSpotsCount As Integer, As Integer, insufficientWeldspotsCount As Integer,
                                                  As IEnumerable)
      If Not ((insufficientWeldspotsCount + defectiveWeldSpotsCount) &gt; 1) Then Return
      For Each spot1 In irregularWeldSpots
          If spot1.row("XUNIT") Is Nothing Then Continue For
  
          For Each spot2 In irregularWeldSpots
              If spot1.row("SPOTDESC") = spot2.row("SPOTDESC") Then Continue For
  
              Dim x0 As Double = spot1.row("XUNIT")
              Dim x As Double = spot2.row("XUNIT")
              Dim y0 As Double = spot1.row("YUNIT")
              Dim y As Double = spot2.row("YUNIT")
              Dim z0 As Double = spot1.row("ZUNIT")
              Dim z As Double = spot2.row("ZUNIT")
              Dim distance As Double = Math.Sqrt((x - x0) ^ 2 + (y - y0) ^ 2 + (z - z0) ^ 2)
  
              If distance &gt;= spot1.row("LENSDIAMUNIT") Then Continue For
  
              Dim message As String = String.Empty
              If spot1.IsDefect And spot2.IsDefect Then
                  message = "One defect spot was found inside the sphere around another defect spot"
              ElseIf (spot1.IsDefect And spot2.IsInsufficient) Or (spot1.IsInsufficient And spot2.IsDefect) Then
                  message = "One insufficient spot was found inside the sphere around a defect spot"
              End If
  
              If message.Length &gt; 0 Then
                  Dim newRow As DataRow = resultTable.NewRow()
                  newRow("JointNo") = jointNumber
                  newRow("StatusMessage") = message
                  newRow("SpotCount") = allWeldSpotsCount
                  newRow("Insufficient") = insufficientWeldspotsCount
                  newRow("Defective") = defectiveWeldSpotsCount
                  newRow("SphereRadius") = "-"
                  resultTable.Rows.Add(newRow)
              End If
  
          Next
      Next
  End Sub
  </code></pre>
  
  <hr>
  
  <p>Issue on 3rd step of late binding after option strict is set to ON on "spot1.row(..) &amp; spot2.row(..)"</p>