免费视频淫片aa毛片_日韩高清在线亚洲专区vr_日韩大片免费观看视频播放_亚洲欧美国产精品完整版

    表中有很多字段，不固定，我想刪除“ABC”及“DEF”以外的所有字段，這個Select的語句要怎么寫??？

Private Sub Cmd_All_Click()
    Dim colFields As New Collection
    '循環(huán)取得所有要刪除的字段名，并保存到集合變量中
    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