专注于互联网--专注于架构

判断字段是否存在:判断字段是否在表中

@#判断个字段是否在表中 Function BlnField(sTblName As String, sFldName As String) As Boolean @#sTblName　源表名 @#要查找字段名 Dim fld As Field Dim rs As DAO.Record BlnField = False Set rs = CurrentDb.OpenRecord(sTblName) rs.Fields.Refresh For [阅读全文] [PDF]