Forループ - 特定の状況

Question

のロジックを探すのに苦労しています。テーブルをループして、1〜4の値を含む特定の列が4行あるかどうかを確認する必要があります。

テーブルの例：

| cty | st | val |

| 03 | 23 | 1 |

| 03 | 23 | 2 |

| 03 | 23 | 3 |

| 03 | 23 | 4 |

カラムvalに1〜4の値が含まれているかどうかを確認する必要があります。テーブルは常にval ASCによってソートされますが、テーブルには常に4つの値がすべて含まれているとは限りません。この表に1〜4がない場合は、ユーザーにエラーメッセージを発行する必要があります。 （問題ではない）。

私の問題はこれをチェックするループロジックです。

私はいくつかの方法を試しましたが、これは現在私が探しているものが得られていません。

For i As Integer = 1 To 4 Step 1 
    For Each dr As DataRow In dt.Rows 

     'if not all 4 growing season per county are entered, show error message 
     If i <> dr("grows") Then 

      FillErrorResultObject("ERROR00139", "", "", strCountyName, "", "", "", "", "", dtErrorTable, objErrorResult) 
      blnError = True 
      Exit For 

     End If 

    Next 
    If blnError = True Then Exit For 
Next 

****私のサンプルテーブルのEDIT - 'val'は、コード例で 'grows'と同じ列です。私はそれをそのまま残して、このコメントを追加することを考えました。

Answer 1

4つの値がすべて表に存在するかどうかを知る必要があるので、4つの値が存在するかどうかを調べる必要があります。