以文本方式查看主题

-  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,点查询没有反应。如果没有上述函数,点查询网页正常。
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.rar


--  作者:有点蓝
--  发布时间:2020/10/30 9:10:00
--  
export是js的关键字,不要用来做变量,函数名称
--  作者:lihe60
--  发布时间:2020/10/30 9:42:00
--  
需要点一下导出,把电子表以文件形式
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.rar

下载到客户端电脑。
--  作者: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,还是导不出来。
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.rar


--  作者:有点蓝
--  发布时间: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)

Book要发送的Excel报表
FileName客户端浏览器下载此报表时使用的文件名
InLine可选参数,逻辑型,是否直接在浏览器显示报表,默认为True,设为False将下载报表。
实际上除了iOS设备,其他设备不管如何设置,都会下载报表。

--  作者: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编辑过]