复制代码代码如下:
FunctionCheckFields (FieldSname, TableName)
ธง = เท็จ
sql = "select*จาก" & tablename
setRs = conn.execute (SQL)
fori = 0tors.fields.count-1
ifrs.fields (i) .name = fieldsnamethen
ธง = จริง
ออกจาก
อื่น
ธง = เท็จ
endif
ต่อไป
checkfields = Flag
endfunction