Select Case e.Path
Case "test.htm"
Dim txt As String = "由各种物质组成的巨型球状天体,叫做星球.星球有一定的形状,有自己的运行轨道."
'增加三个页面,一个按钮
With wb.AddTabBar("", "tb1", 1)
.AddPage("page1","销售信息","./images/Report32.ico")
.AddPage("page2","销售明细","./images/Relation32.ico")
.AddPage("page3","销售旧金","./images/OuterTable32.ico")
End With
'为第一个页面增加内容
……
'为第三个页面增加内容
With wb.AddArticle("page3","ar1")
Dim cmd As new SQLCommand
cmd.C
cmd.CommandText= "select *From 销售回收换款旧金 where 编号 = '" & e.GetValues("pv") & "'"
Dim dt As DataTable = cmd.ExecuteReader
For Each r As DataRow In dt.DataRows
With wb.AddPreview("page3","pv" & r("_Identify")," ","<span style='font-family:宋体;font-size:20px'>" & r("对账品名")+"|"+ r("旧金备注")+r("旧金品名")+r("旧金店名") & "</span>" )
'.AddItem("商品条码:" , r("商品条码"))
.AddItem("<span style='font-family:宋体;font-size:20px'>" & "金重:" & r("金重") & "</span>","<span style='font-family:宋体;font-size:20px'>" & "标签价格:" & r("标签价格") & "</span>")
.Addbutton("详情", "", 1)
End With
wb.AppendHTML("<br/>")
Next
End With
If e.GetValues.ContainsKey("p") Then
wb.AppendHTML("<script>hide('page1');show('" & e.GetValues("p") & "')</script>")
End If
Case "filter2.htm"
wb.AddForm("","form1","test.htm")
With wb.AddInputGroup("form1","ipg1","销售明细详情")
……
With wb.AddButtonGroup("","btg1")
.Add("btn1", "返回", "button","test.htm?p=page2")
End With
End Select
加好友 
发短信
Post By：2021/7/25 22:17:00 [只看该作者]
此主题相关图片如下：qq浏览器截图20210725221342.png
