怎样判断一条记录在两个不同的集合中

zhu320211

怎样判断subctl.name包含在两个不同的集合中，如果包含在('配件代号','配件名称','产品编号','产品名称')中，则subctl.ColumnHidden=False,如果包含在rs记录集中，则subctl.ColumnHidden=False,如果都不包含，则subctl.ColumnHidden=true。
下面的代码可以运行，但感觉不太妥，第一个集合中的字段名设置了两次属性，请教大家有没有更好的办法
Private Sub Combo10_AfterUpdate()
    Dim rs As Recordset
    Dim subctls As Controls
    Dim subctl As Control
    Set subctls = Me.加工单价表_子窗体.Form.Controls
    Set rs = CurrentDb.OpenRecordset("select [工序名称] from [单价组成表] where [部门代号] = '" & DLookup("[部门代号]", "[部门信息]", "[部门] = '" & Combo10.Value & "'") & "' ")
     For Each subctl In subctls
        If subctl.ControlType = acTextBox And IsNull(Eval("'" & subctl.Name & "' in ('配件代号','配件名称','产品编号','产品名称') ")) = False Then
            rs.FindFirst " 工序名称='" & subctl.Name & "'"
            If rs.NoMatch Then
                subctl.ColumnHidden = True
            Else
                subctl.ColumnHidden = False
            End If
            If Eval("'" & subctl.Name & "' in ('配件代号','配件名称','产品编号','产品名称') ") Then
                subctl.ColumnHidden = False
            End If
        End If
    Next
    rs.Close
End Sub

andymark

一时看不明白楼主为啥要这样
感觉有更好的方法，楼主可以尝试把上面的功能在一个SQL中体现，这样只打开记录集就OK了

zhu320211

andymark 发表于 2012-6-12 21:39
一时看不明白楼主为啥要这样
感觉有更好的方法，楼主可以尝试把上面的功能在一个SQL中体现，这样只打开记录 ...

谢谢管理员，[单价组成表]中没有这四条记录，怎样集中到一个SQL中？
可以
ElseIf DLookup(" 工序名称 ", "rs", "[工序名称]='" & subctl.Name & "' '") <> Null Then
             subctl.ColumnHidden = False
但就是不对，如果成功就很容易了，如果用dlookup，该怎么写

Henry D. Sy

我也看不明白！

layaman_999

1.将subctl.name保存在数组a()
2.将rs记录集和('配件代号','配件名称','产品编号','产品名称')填充入另一个数组b()
循环两个数组进行判断