以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]自定义函数Filter用于生成筛选页面filter.htm出现困难  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=170777)

--  作者:sunion0769
--  发布时间:2021/8/7 1:11:00
--  [求助]自定义函数Filter用于生成筛选页面filter.htm出现困难
\'-----------这里是筛选时用到的自定义函数,其中Filter用于生成筛选页面filter.htm:

Dim GSName As String = e.Cookies("gsname") \'从cookie中获取用户密码
Dim e As RequestEventArgs = args(0)
Dim wb As New WeUI
wb.AddForm("","form1","list.htm")
With wb.AddInputGroup("form1","ipg1","数据筛选")
     .AddSelect("school","公司单位","这里如何取到GSname的值?")    \'----gsname是在登陆账号时已经输入的公司名称,被记录到Cookie
    .AddSelect("bm","部门","|公关|销售|后勤")
    .AddSelect("customer","人员","|3001|3002|3003")
    .AddInput("startdate","开始日期","date")
    .AddInput("enddate","结束日期","date")
End With
With wb.AddButtonGroup("form1","btg1",True)
    .Add("btn1", "确定", "submit")
End With
e.WriteString(wb.Build)
[此贴子已经被作者于2021/8/7 1:14:41编辑过]

--  作者:有点蓝
--  发布时间:2021/8/7 9:33:00
--  
.AddSelect("school","公司单位",GSName)