检查表中的值是否与 ArrayList 中的值匹配并以下一个形式显示它们

Question

我正在尝试检查表的一列中的记录是否与 ArrayList 的至少一个值匹配，如果是，则显示在下一个表单中匹配的记录

我有一个充满字符串的 ArrayList，但我不知道如何检查表中的记录并将其插入下一种形式的文本框，其中一列的至少一个记录数据与 ArrayList 中的一个值匹配。

这不起作用：

Public Sub Command42_Click()
   
   Dim NotTrained As ArrayList
   Set NotTrained = New ArrayList
   NotTrained.Add "value1"
   NotTrained.Add "value2"

   DoCmd.OpenForm "form_name", WhereCondition:=NotTrained.Contains(handover_No) = True

End Sub

我不知道我是否能够在 WhereCondition 中执行此操作，或者我需要打开下一个表单并将数据插入 NextForm.Load() Sub 的文本框中。

在下一个表单中，文本框将源代码控制设置为我希望从中获取记录的表中的列。

Answer 1

部分解决方案是：

您可以像这样遍历范围单元格并在 Arraylist 中查找现有的单元格

Public Sub Command42_Click()
   Dim NotTrained As ArrayList
   Set NotTrained = New ArrayList
    Dim I As Long, LR As Long
    Dim rng As Range
   NotTrained.Add "value1"
   NotTrained.Add "value2"

  LR = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
   Set rng = Range("A1")
   For I = 0 To LR
   If NotTrained.IndexOf(rng.Offset(I, 0).Value, 0) = -1 Then
        ' the value is not in ArrayList
       ' Do Something
    Else
       ' the value is in ArrayList
'      Do Something Else
   End If
   Next I
   'DoCmd.OpenForm "form_name", WhereCondition:=NotTrained.Contains(handover_No) = True

End Sub

我不知道你的表格是什么结构，所以我不能建议你如何填写。