以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  关于&字符的问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=110637)
--  作者：allan303
--  发布时间：2017/12/6 20:44:00
--  关于&字符的问题
各位老师，遇到个奇怪的问题，如下：
    Dim rp As String = "http://xxx.cn/report.html?id=" & dr("_Identify") & "&&wq=" & dr("设计") & "&&sj=" & dr("实际")
    
    With wb.AddButtonGroup("","btg1",False)
  
        
        .Add("btnmail","邮件发送报告链接",True,"mailto:?subject=report&body="& rp &"")

因为是通过Get判断wq和sj的值才能提供下载，不过我反复测试了各种表达式方法，居然都是到标黄的&这里就断了，输出的链接到id=XX就结束了
试过
“&&”
“&wq=”
。。
请问怎么可以解决，谢谢！
--  作者：allan303
--  发布时间：2017/12/6 20:45:00
--  
或者有没有什么办法可以再微信浏览器下，直接调用邮件分享发送writebook写的Excel？
--  作者：有点甜
--  发布时间：2017/12/6 21:13:00
--  

这样处理

 

Select Case e.Path
    Case "test.htm",""
        Dim wb As new weui
        Dim rp As String = "http://xxx.cn/report.html?id=1&wq=2&bb=3&cc=中文"
        With wb.AddButtonGroup("","btg1",True)
            .Add("btn1", "确定", "", "mailto:aaa@bbb.com?subject=ccc&body=" & UrlEncode(rp))
        End With
        e.WriteString(wb.Build)
End Select