以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  weui框架Button代码问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=146746)
--  作者：benwong2013
--  发布时间：2020/3/1 18:43:00
--  weui框架Button代码问题
以下这段代码，我想在点击同意的时候，当前数据 gpr（“审批状态“） = “通过”，点击不同意时，  gpr（“审批状态“） = “不通过”，请问应该如何写，研究了好久还是不行；

Case "qglist.htm"
                Dim PrimaryKey As Integer = e.GetValues("key")
                Dim qgr As DataRow = DataTables("O_QGuoSQ").SQLFind("[_Identify]=" & PrimaryKey)
                If qgr IsNot Nothing Then
                    wb.AddForm("","form1","qlist.htm")
                    With wb.AddInputGroup("form1","ipg1","请购信息")
                        With .AddInput("请购单号","请购单号:","text")
                            .Value = qgr("请购单号")
                            .Readonly= True
                        End With
                        With .AddInput("申请日期","申请日期:","text")
                            .Value = qgr("申请日期")
                            .Readonly= True
                        End With
                        With .AddInput("区域","区域:","text")
                            .Value = qgr("区域")
                            .Readonly= True
                        End With
                        With .AddInput("部门","部门:","text")
                            .Value = qgr("部门")
                            .Readonly= True
                        End With
                        With .AddInput("请购人","请购人:","text")
                            .Value = qgr("请购人")
                            .Readonly= True
                        End With
                    End With
                    Dim wls As List(Of DataRow)
                    wls = DataTables("O_QGouSQList").SQLSelect("请购单号 = \'"& qgr("请购单号") &"\'")
                    Dim i As Integer = 2
                    Dim nms() As String = {"品牌","规格","等级","物品序号","申请数量","单位","用途"}
                    For Each wl As DataRow In wls
                        i = i + 1
                        With wb.AddInputGroup("form1","ipg" & i,wl("物料编号") & " " &  wl("物料名称"))
                            For c As Integer = 0 To nms.length -1
                                With .AddInput("物料清单" & c,nms(c) & ":","text")
                                    .Value = wl(nms(c))
                                    .Readonly= True
                                End With
                            Next
                        End With
                    Next
                    With wb.AddInputGroup("form1","ipg50","审批意见")
                        With wb.AddButtonGroup("form1","btngrp1",False)
                            .Add("btn1", "同意", "submit").Value = "Btn1"
                            .Add("btn2", "不同意", "submit").Value = "Btn2"
                        End With
                    End With
                    e.WriteString(wb.Build)
                End If
--  作者：有点蓝
--  发布时间：2020/3/2 8:57:00
--  
这种逻辑是错误的，想想提示框是在服务器弹出来的，用户怎么看得到？

方法1、放2个按钮，一个同意，一个不同意
2、使用单选框选择：http://www.foxtable.com/mobilehelp/topics/0052.htm，然后放一个提交按钮