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
加好友 
发短信
Post By：2021/8/1 15:33:00 [只看该作者]
此主题相关图片如下：qq浏览器截图20210801152539.png