else 字段是其它类型 fieldType = left(fieldName, typeDelimPos - 1) fieldName = mid(fieldName, typeDelimPos + 1) 把字段名加入名称列表 nStr = nStr & fieldName & ", " 把字段类型变成大写以确保匹配 select case uCase(fieldType) case "NUM" vStr = vStr & fieldData & ", " 把不明类型按文本型处理 case else vStr = vStr & "" & fieldData & ", " end select end if end i上一页 [1] [2] [3] [4] [5] [6] 下一页
|