以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  工资htm?pv1=" & e.PostValues("product")&  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=170612)
--  作者：qazlinle6
--  发布时间：2021/8/1 15:33:00
--  工资htm?pv1=" & e.PostValues("product")&

图片点击可在新窗口打开查看此主题相关图片如下：qq浏览器截图20210801152539.png
图片点击可在新窗口打开查看

With wb.AddInputGroup("form1","ipg1","数据筛选")
            Dim bh As String = e.Cookies("username")
            Dim bh2 As String = "[" & e.Cookies("username") & "]"
            \'Group
            Dim ddr As DataRow= DataTables("Users").SQLFind("Name=\'"& e.Cookies("username")  &"\' " )
            If ddr IsNot Nothing AndAlso ddr("Group") = "管理"
                Dim sl2 As String = "|" & DataTables("Users").SQLGetComboListString("Name") & "|"
                sl2 = sl2.replace(bh,bh2).TrimEnd("|")
                .AddSelect("product","用户姓名",sl2 )
            Else
                .AddSelect("product","用户姓名",bh2 )
            End If
            Dim sl3 As String = "" & DataTables("工资明细表").SQLGetComboListString("年") & ""
            .AddSelect("product1","年",sl3 )
            Dim sl4 As String = "" & DataTables("工资明细表").SQLGetComboListString("月") & ""
            .AddSelect("product2","月",sl4 )
        End With
 
 With wb.AddButtonGroup("form1","btg1",True)  
    
.Add("btn1", "确定","submit")   什么改成这样    .Add("btn1", "确定",""，“工资htm?pv1=" & e.PostValues("product")& "&pv2=" & e.PostValues("product1") & "&pv3=" & e.PostValues("product2"))
            .Add("btn2","返回", "","default.htm") \'退出登录
        End With
--  作者：有点蓝
--  发布时间：2021/8/1 20:27:00
--  
没有办法改，也不需要改，提交后直接通过e.PostValues就可以取得提交的数据。