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