以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  网页筛选怎么默认打开后对应框是空值  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=137093)

--  作者:巷弄太过弯曲
--  发布时间:2019/6/28 8:35:00
--  网页筛选怎么默认打开后对应框是空值
老师,请问我做了如图这个网页,我想要默认打开的时候“单据编号”“供应商”“单据状态”“制单人”的内容是空值,我现在打开默认就是输入了对应的值了

图片点击可在新窗口打开查看此主题相关图片如下:企业微信截图_20190628082957.png
图片点击可在新窗口打开查看



Select Case e.Path
    Case "cxym.htm"
        wb.AddForm("","form1","f.htm")
        Dim gjs As List(of String) = dt.sqlGetValues("单据编号")
        Dim aa As List(of String) = dt.sqlGetValues("供应商")
Dim bb As List(of String) = dt.sqlGetValues("单据状态")
Dim cc As List(of String) = dt.sqlGetValues("制单人")
        With wb.AddInputGroup("form1","ipg1","数据筛选")
            With .AddSelect("","单据编号", String.Join("|",gjs.ToArray))
                \'.Attribute = """
End With
With .AddSelect(" ","供应商", String.Join("|",aa.ToArray))
     End With    
With .AddSelect(" ","单据状态", String.Join("|",bb.ToArray))   
End With \'
 With.AddSelect(" ","制单人", String.Join("|",cc.ToArray))
End With


--  作者:有点甜
--  发布时间:2019/6/28 9:18:00
--  

试试

 

With .AddSelect(" ","供应商", " |" & String.Join("|",aa.ToArray))

 


--  作者:巷弄太过弯曲
--  发布时间:2019/6/28 9:32:00
--  
可以了 谢谢老师