以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]函数代码  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=127781)
--  作者：无限5180
--  发布时间：2018/11/21 22:57:00
--  [求助]函数代码
老师，我有下面这段代码需要重复调用，想放入函数中，但做了后无法显示，请帮忙改写一下
        Dim url1 As String = "process.htm?page=" & e.getvalues("page") & "&oid=" & e.getvalues("oid") & "&sublc=" & 0 \'传递页码和编号
        With wb.AddButtonGroup("form1","btg1",False)
            .Add("btn2", "提交流程","button",url1)\'.Attribute="" \'调用js函数
            .Add("btn3", "返回", "button","list.htm?LCTJ=0&lc=1") \'返回列表
        End With
放入函数中的代码是这样的
Dim e As RequestEventArgs = args(0)
Dim wb As New weui
Dim url1 As String = "process.htm?page=" & e.getvalues("page") & "&oid=" & e.getvalues("oid") & "&sublc=" & 0 \'传递页码和编号
With wb.AddButtonGroup("form1","btg1",False)
    .Add("btn2", "提交流程","button",url1)\'.Attribute="" \'调用js函数
    .Add("btn3", "返回", "button","list.htm?LCTJ=0&lc=1") \'返回列表
End With
--  作者：有点甜
--  发布时间：2018/11/21 23:04:00
--  

把e和wb一起传递到函数里面。不要再在函数里面new weui
--  作者：无限5180
--  发布时间：2018/11/21 23:35:00
--  
好的谢谢！