Dim RKGUID As String = e.Values("RKGUID")
Dim rkd As String = e.Values("rkd")
If RKGUID > "" Then
Dim Book As New XLS.Book(ProjectPath & "Attachments\入库单.xls")
Dim fl As String = ProjectPath & "入库单" & e.Values("rkd") & ".xls"
Book.AddDataTable("产品入库", "服务器", "Sel ect * from 产品入库 where GUID='" & RKGUID & "'") '添加父表入库
Book.AddDataTable("产品入库明细", "服务器", "Sel ect * from 产品入库明细 where 入库ID='" & RKGUID & "'") '添加子表
Book.AddRelation("产品入库", "GUID", "产品入库明细", "入库ID") '建立关联
Book.PreBuild = True '非报表模请将PreBuild 属性设置为False
' e.WriteBook(Book, "入库单" & e.Values("rkd") & ".xls", False)
Book.Build() '生成细节区
Book.Save(fl) '保存工作簿
Dim App As New Excel.Application
Dim Wb As Excel.Workbook = App.Workbooks.Open(fl)
Wb.SaveAs(fl.Replace("xls", "html"), Excel.XlFileFormat.xlHtml)
App.Quit()
网页 js 代码
function rkPrint() {
var row = $('#rktable').datagrid('getSelected');
if (!row) {
$.messager.alert("警告", "请选择要打印的单据!", 'warning');
} else {
var rowIndex = $('#rktable').datagrid('getRowIndex', row);
if (rowIndex >= -1) {
location = "../downExcel?RKGUID=" + row.入库ID + "&rkd="+ row.入库单号;
console.log("../downExcel?RKGUID=" + row.入库ID + "&rkd="+ row.入库单号);
}
}
}
这个直接打开这个生成的网页应该怎么改?
加好友 
发短信
Post By：2019/11/8 10:25:00 [只看该作者]
