在输入框组增加一个列表输入框的语法为:
AddSelect(ID, Label, Values)
ID | 输入框ID。 |
Label | 在输入框左侧显示的标签内容 |
Values | 列表项目,用符号"|"隔开,例如"大专|本科|硕士|博士"。 打开网页后,默认会选择第一个值,如果要将其他位置的值作为默认值,可以将其用方括号括起来,例如"大专|[本科]|硕士|博士",打开网页后,会自动选择本科。
|
比如:
Dim gjs As List(of String) = DataTables("汽车").GetValues("国家")
dim 某值 as string = "中国"
dim s as string = ("|" & String.Join("|",gjs.ToArray) & "|").replace("|" & 某值 & "|","|[" & 某值 & "]|").trimend("|")
With wb.AddInputGroup("form1","ipg1","动态列表")
.AddSelect("国家","国家", s ).Attribute = "" '调用js函数。
.AddSelect("品牌","品牌","")
End With