以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  web列表输入框  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=126791)

--  作者:zhenghangbo
--  发布时间:2018/10/29 12:43:00
--  web列表输入框
web跳转到编辑页面的时候,如何设置列表输入框的默认值为表中原来的值?

            With .AddSelect("系统","系统","|" & DataTables("typefault").GetComboListString("系统"))
                .Attribute = """
                .Value = dr("系统")
            End With

提示value不是wselect的成员?

--  作者:有点甜
--  发布时间:2018/10/29 13:25:00
--  

比如改成

 

With .AddSelect("系统","系统","|" & DataTables("typefault").GetComboListString("系统").replace(dr("系统"), "[" & dr("系统") & "]"))


--  作者:zhenghangbo
--  发布时间:2018/10/29 15:11:00
--  
同样提示replace不是wselect的成员?


--  作者:有点甜
--  发布时间:2018/10/29 15:14:00
--  
以下是引用zhenghangbo在2018/10/29 15:11:00的发言:
同样提示replace不是wselect的成员?

 

2楼不可能有错,贴出你写的代码。


--  作者:zhenghangbo
--  发布时间:2018/10/29 15:57:00
--  
图片点击可在新窗口打开查看
[此贴子已经被作者于2018/10/29 17:53:52编辑过]

--  作者:zhenghangbo
--  发布时间:2018/10/29 15:59:00
--  
                .Attribute = """这里面的代码论坛显示不出来
我是写内部函数里的,不是写在httprequest事件里的。
[此贴子已经被作者于2018/10/29 16:01:47编辑过]

--  作者:有点甜
--  发布时间:2018/10/29 16:18:00
--  

比如

 

With .AddSelect("系统","系统","|" & DataTables("typefault").GetComboListString("系统"))

 

改成

 

With .AddSelect("系统","系统","|" & DataTables("typefault").GetComboListString("系统").replace(dr("系统"), "[" & dr("系统") & "]"))