复制代码代码如下::
Funktionscheckfields (FieldsName, TableName)
Flag = Falsch
Sql = "Select*aus" & TableName
Setrs = conn.execute (SQL)
fei = 0Tors.Fields.Count-1
ifrs.fields (i) .name = fieldsnamethen
Flag = wahr
Ausgehen
anders
Flag = Falsch
Endif
Nächste
Checkfields = Flag
Endfunktion