- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 多行文本框和动态列表项目怎么设置初始值？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=174093)
-- 发布时间：2021/12/31 10:19:00
-- 多行文本框和动态列表项目怎么设置初始值？
用AddActionSheet对网页报表设置底部编辑菜单， 表内旧的数据列（颜色）用setAjaxOptions函数从数据库加载的动态列表，点击编辑菜单按钮时，颜色列初始值怎么赋值为表内当前行对应的旧值？
地址列是多行文本，同样怎么在修改时等于旧值？
......
With .AddSelect("颜色","颜色","|" & dt.GetComboListString("颜色"))
.Attribute = """
\'.Value = pr("颜色")
End With
With wb.AddInputGroup("form1","ipg3","地址")
.AddTextArea("地址",2).Placeholder = "请在此输入发货地址"
\'.Value = pr("地址")
End With
.......
此主题相关图片如下：1.png
此主题相关图片如下：2.png
-- 发布时间：2021/12/31 10:26:00
--
dim s as string = "|" & dt.GetComboListString("颜色") & "|"
s = s.replace("|" & pr("颜色") & "|","|[" & pr("颜色") & "]|") \'http://www.foxtable.com/mobilehelp/topics/0048.htm
With .AddSelect("颜色","颜色",s.trimend("|"))
.Attribute = """
\'.Value = pr("颜色")
End With
With wb.AddInputGroup("form1","ipg3","地址")
With .AddTextArea("地址",2)
.Placeholder = "请在此输入发货地址"
.Value = pr("地址")
End With
End With
-- 发布时间：2021/12/31 10:51:00
--
可以了，谢谢！