Dim e As RequestEventArgs = args(0)
Dim wb As New WeUI
Sel ect Case e.Path
Case "phdcx.htm"
Dim s As String = "'" & e.GetValues("oid") & "'"
'获取该页数据
Dim cmd As New SQLCo mmand
cmd.C '记得设置数据源名称
cmd.CommandText = "Se lect Count(*) From {SDPHD}"
cmd.CommandText = "Se lect DJBH AS 单据编号, DM1 AS 店铺代码, SL AS 数量, JE AS 金额 From {SDPHD} Where DJBH =" & s & ""
Dim dt As DataTable = cmd.ExecuteReader
'根据此页数据生成网页
With wb.AddTable("","Table1")
.CreateFromDataTable(dt)
With wb.AddButtonGroup("","btg1", True)
.Add("btn1", "查看详情","","phdmx.htm?oid=" & s)
End With
End With
e.WriteString(wb.Build)
End Select
蓝色的部分没有OID后面的东西
加好友 
发短信
Post By：2021/8/28 5:14:00 [只看该作者]
