以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  e.GetValues("oid")的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=171384)

--  作者:BG小白
--  发布时间:2021/8/28 5:14:00
--  e.GetValues("oid")的问题
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后面的东西

--  作者:有点蓝
--  发布时间:2021/8/28 9:42:00
--  
这里不能加单引号

.Add("btn1", "查看详情","","phdmx.htm?oid=" & e.GetValues("oid"))