复制代码代码如下:
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
Выход
еще
Flag = false
эндиф
Следующий
CheckFields = Flag
Конечная функция