- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 更新了狐表不自动显示 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=174390)
-- 发布时间：2022/1/13 12:04:00
-- 更新了狐表不自动显示
此主题相关图片如下：55555.png
Dim lst As new List(of String)
For Each s As String In DataTables("Users").SQLGetComboListString("账号企业名","Name=\'"& e.Cookies("username") &"\'").Replace(",","|").split("|")
If lst.contains(s) = False Then
lst.add(s)
End If
Next
.AddSelect("店名","店名",String.join("|",lst.toarray))
Dim ddr12 As DataRow= DataTables("Users").SQLFind("Name=\'"& e.Cookies("username") &"\' " )
Dim sl6 As String = "" & DataTables("手机盘点明细").SQLGetComboListString("对账品名","(\'," & ddr12("账号企业名") & ",\') like \'%,\' + 店名 + \',%\' " ) & ""
.AddSelect("对账品名","对账品名",sl6) \'从cookie中获取用户名
我昨天更新了狐表，这个什么不自动显示了，必须要选择才行
-- 发布时间：2022/1/13 13:31:00
--
新版本默认不自动显示了
-- 发布时间：2022/1/13 14:33:00
--
那要什么让他自动显示
-- 发布时间：2022/1/13 15:23:00
--
如果要将其他位置的值作为默认值，可以将其用方括号括起来，例如"大专|[本科]|硕士|博士"，打开网页后，会自动选择本科。
.AddSelect("bw","浏览器","Chorme|[Edge]|Firefox|Internet Explorer")
-- 发布时间：2022/1/13 15:30:00
--
我这个是条件的，不是固定的
-- 发布时间：2022/1/13 16:40:00
--
给第一个项目加上中括号
Dim lst As new List(of String)
For Each s As String In DataTables("Users").SQLGetComboListString("账号企业名","Name=\'"& e.Cookies("username") &"\'").Replace(",","|").split("|")
if lst.count = 0 then
lst.add("[" & s & "]")
else
If lst.contains(s) = False Then
lst.add(s)
End If
end if
Next