复制代码代码如下:FunctionCheckFields(FieldsName,TableName) Flag=False sql="select*from"&TableName SetRS=Conn.Execute(sql) fori=0toRS.Fields.Count-1 ifRS.Fields(i).Name=FieldsNamethen Flag=True ExitFor else Flag=False endif Next CheckFields=Flag EndFunction