Foxtable(狐表)用户栏目专家坐堂 → e.GetValues("oid")的问题


  共有3515人关注过本帖树形打印复制链接

主题:e.GetValues("oid")的问题

帅哥哟,离线,有人找我吗?
BG小白
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:603 积分:4102 威望:0 精华:0 注册:2019/11/14 23:06:00
e.GetValues("oid")的问题  发帖心情 Post By:2021/8/28 5:14:00 [只看该作者]

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后面的东西

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/8/28 9:42:00 [只看该作者]

这里不能加单引号

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

 回到顶部