Question

我有一个工具，其中有15个是/否字段。用户检查事件中使用的工具。可以是一个或多个，或者没有。表中还有其他字段，但所有相关字段名称都以tblTool

开头

在报告中，我希望以单行显示工具，例如＆＃39;使用的工具：锤子，凿子......＆＃39;

我目前的解决方案是一堆if语句，检查每个项目并将其添加到变量中，如果它是正面的。我的问题是，有更简单的方法吗？某种循环会检查某个表中以相同字符串开头的所有字段名称吗？

Answer 1

可能已经解决了这个问题

txt = ""
Set db = CurrentDb()
Set rs1 = db.OpenRecordset("Select * from ops where opID = " & Me.opID)
Dim fld As DAO.Field
For Each fld In rs1.Fields
    If Left(fld.Name, 5) = "opImp" Then
        If fld = True Then
        txt = txt & fld.Name
        End If
        End If
Next
Set fld = Nothing

在单行中显示多个是/否字段

1 个答案: