专家坐堂-Ajax后端运行的时候，怎么在前端进行状态提醒呢？Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Public Sub form289_word_Aj ax(rq as Request)

Dim e As RequestEventArgs = rq.e

Dim cmd As SQLC ommand = rq.cmd

Dim time As String =Format(Date.now,"yyyyMMddHHmmss")

Dim tm As String = ProjectPath & "Attachments\\谈话通知书.doc" \'指定模板文件

Dim f1 As String = ProjectPath & "Reports\\谈话通知书"& e.Values("创建人") & e.Values("guid") & time &".doc" \'指定目标文件

Dim f2 As String = ProjectPath & "Reports\\谈话通知书"& e.Values("创建人") & e.Values("guid") & time &".pdf" \'指定目标PDF文件

Dim wrt As New WordReport(tm,f1)

wrt.AddDataTable("谈话措施台账","主数据源","Se lect * from {谈话措施台账} where guid = \'" & e.Values("guid") & "\' ")

wrt.Build()

wrt.SaveToPDF(f2) \'保存为PDF文件

wrt.Quit() \'退出

\'返回生产的报表路径

e.WriteString("\\Reports\\谈话通知书"& e.Values("创建人") & e.Values("guid") & time &".pdf")

End Sub

前端代码：

({

button6: {

text: \'{{text}}\', //系统自动匹配标题

visible:true,

click: fun ction () { //按钮单击事件

var data = {};//返回参数到前端

$.p ost("form289_word.Ajax",{guid:e.form.guid,创建人:e.form.user.name},function(res){

var a = document.createElement("a");

a.setAttribute("href", myurl + res);

a.setAttribute("target", "下载excel");

docum ent.body.appendChild(a);

a.click();

a.remove();

})

}

})