工资htm?pv1=" & e.PostValues("product")& - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

此主题相关图片如下：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

主题：工资htm?pv1=" & e.PostValues("product")&