以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- js多了个函数,按钮就不正常了。 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=157818) |
||||||
-- 作者:lihe60 -- 发布时间:2020/10/30 8:09:00 -- js多了个函数,按钮就不正常了。 scan.js多了个函数 function export(){ var result= submitAjaxFileds(\'export\',\'\',\'rq\',\'cp\',false); document.getElementById("p1").innerHTML = result; // history.go(-1); } 打开127.0.1.1,点查询没有反应。如果没有上述函数,点查询网页正常。
|
||||||
-- 作者:有点蓝 -- 发布时间:2020/10/30 9:10:00 -- export是js的关键字,不要用来做变量,函数名称 |
||||||
-- 作者:lihe60 -- 发布时间:2020/10/30 9:42:00 -- 需要点一下导出,把电子表以文件形式
下载到客户端电脑。 |
||||||
-- 作者:lihe60 -- 发布时间:2020/10/30 9:48:00 -- Dim Book As New XLS.Book(ProjectPath & "Attachments\\导出表.xls") book.AddDataTable("导出表","","Sel\\ect * from {表A} where 第一列 = \'" & e.postvalues("cp") & "\'") e.WriteBook(book,"导出表.xls",False) [此贴子已经被作者于2020/10/30 9:49:56编辑过]
|
||||||
-- 作者:有点蓝 -- 发布时间:2020/10/30 9:58:00 -- js文件没有改好, function 请不要使用export这个名称,另外和后台代码里的调用函数名不一致(){ var result= submitAjaxFileds(\'export这里和后台的e.path对应不上\',\'\',\'rq\',\'cp\',false); document.getElementById("p1").innerHTML = result; // history.go(-1); } |
||||||
-- 作者:lihe60 -- 发布时间:2020/10/30 10:22:00 -- 把export1改成port1,还是导不出来。
|
||||||
-- 作者:有点蓝 -- 发布时间:2020/10/30 10:28:00 -- 这种不能使用ajax,必须直接访问页面 function ort1(){ location="ort1?rq=" + document.getElementById("rq").value + "&cp=" + document.getElementById("cp").value ; } |
||||||
-- 作者:lihe60 -- 发布时间:2020/10/30 10:42:00 -- function ort1(){ location="ort1?rq=" + document.getElementById("rq").value + "&cp=" + document.getElementById("cp").value ; } 导出成功了,但需要修改文件名和格式,日程表.xls,代码如何改?
|
||||||
-- 作者:有点蓝 -- 发布时间:2020/10/30 10:45:00 -- 你们平时看帮助都不知道在看啥: e.WriteBook(book,"日程表.xls",False) WriteBook 为彻底解决上述问题,我们为HttpRequest事件增加了一个WriteBook方法,此方法专门用于发送Excel报表,其语法为: WriteBook(Book,FileName,InLine)
|
||||||
-- 作者:lihe60 -- 发布时间:2020/10/30 13:01:00 -- Dim Book As New XLS.Book(ProjectPath & "Attachments\\导出表.xls") book.AddDataTable("导出表","","Sel\\ect * from {表A} where 第一列 = \'" & e.postvalues("cp") & "\'") e.WriteBook(book,"导出表.xls",False) 这个代码导“出表.xls”有什么问题。
[此贴子已经被作者于2020/10/30 13:01:03编辑过]
|