老师，我有下面这段代码需要重复调用，想放入函数中，但做了后无法显示，请帮忙改写一下
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
加好友 
发短信
Post By：2018/11/21 22:57:00 [只看该作者]
