【网友问题】∑村里×來滴(107191344) 14:54:28
请教一下：表中有很多字段，不固定，我想删除“ABC”及“DEF”以外的所有字段，这个Select的语句要怎么写啊。

Accessoft-麥田(3002789054)  15:02:12

Private Sub Cmd_All_Click()
    Dim colFields As New Collection
    '循环取得所有要删除的字段名，并保存到集合变量中
    Dim dbs As Object: Set dbs = CurrentDb
    Dim fld As Object
    For Each fld In dbs.TableDefs("员工表").Fields
        Select Case fld.Name
        Case "姓名", "性别"    '要排除不删除的字段
        Case Else: colFields.Add fld.Name
        End Select
    Next
    '删除字段
    Dim varItem As Variant
    For Each varItem In colFields
        CurrentDb.TableDefs("员工表").Fields.Delete CStr(varItem)
    Next
    MsgBox "已删除表中除“姓名”、“性别”字段外所有所有其他字段！"
End Sub

附   件:
点击下载此附件

演   示: