复制代码代码如下:
FunctionCheckfields (FieldsName, tableName)
Sinalizador = false
sql = "Selecione*de" & tableName
Setrs = Conn.Execute (SQL)
fori = 0Tors.fields.count-1
ifrs.fields (i) .name = fieldsNamethen
Sinalizador = true
Exitfor
outro
Sinalizador = false
endif
Próximo
Checkfields = sinalizador
Função final