好久没来了，100个有关问题？数据导出excel有关问题

2013-02-03

好久没来了，100高分求教个问题？数据导出excel问题 Set rstData conn.execute(strSql)if not rstData.EOF

好久没来了，100高分求教个问题？数据导出excel问题

Set rstData =conn.execute(strSql)
if not rstData.EOF and not rstData.BOF then

    dim  trLine,responsestr
    strLine=""
    For each x in rstData.fields
        strLine = strLine & cnname(x.name) & chr(9)  ''''''''''
   Next

'--将表的列名先写入EXCEL
    myfile.writeline strLine

    Do while Not rstData.EOF
        strLine=""

        for each x in rstData.Fields
            if x.name="idcard" then''''''''修改对应的身份证字段名称
              strLine = strLine &"'"& x.value & "'"& chr(9)
            else
              strLine = strLine & x.value & chr(9)
            end if
        next
        myfile.writeline  strLine

        rstData.MoveNext
    loop

end if

Response.Write  "生成EXCEL文件成功，点击<a href=""/pqyg/date/pqyg_"&a&".xls"" target=""_blank"">下载</a>！"

rstData.Close
set rstData = nothing
Conn.Close
Set Conn = nothing

[解决办法]
你可以加一个判断，如果字段名称是身份证，就加单引号，如果不是就不加
for each x in rstData.Fields
  if x.name="身份证" then
    strLine = strLine & "'"
  end if
  strLine = strLine & x.value & chr(9)
next

热点排行

ASP

好久没来了，100个有关问题？数据导出excel有关问题