Dim wb As New weui
Select Case e.Path
Case "test.htm"
wb.AddPage("","page1") '增加两个page
wb.AddPage("","page2",False) '第二个
With wb.AddArticle("page1","ar1")
Dim i As Integer = 0
'For Each dr As DataRow In dt.DataRows
With wb.AddPreview("page1","pv" & i ,"含税金额:","元")
.AddItem("单据编号",("单据编号"))
.AddItem("物料名称",("物料名称"))
.AddItem("供应商",("供应商"))
.Addbutton("详细","" , 1,"onclick=""gotopage2('" & "0001" & "')""")
i = i + 1
End With
'Next
End With
With wb.AddArticle("page2","ar2")
wb.InsertHTML("page2","<div id='p1' style='margin:0.5em'></div>")
End With
wb.AppendHTML("<script src='./lib/gotopage2.js'></script>") '引入脚本文件
e.WriteString(wb.Build) '生成网页
Case "other.htm"
With wb.AddTable("","Table1")
.Highlight = -1
.CreateFromDataTable(DataTables("表A"),False)
End With
e.WriteString(wb.Build)
End Select
---------------
function gotopage2(bh){
alert(bh) //弹出什么内容
var result = sendAjaxText(bh,"other.htm","",false);
alert(result)//弹出什么内容
document.getElementById("p1").innerHTML=result;
hide('page1');
show('page2');
}
加好友 
发短信
Post By：2019/7/22 16:54:00 [只看该作者]
此主题相关图片如下：33.png
