.AddInput("店接人员","店接人员:","Text").Value = dr("店接人员")
.AddInput("装修公司","装修公司:","Text").Value = dr("装修公司")
.AddSelect("户型","客户户型:","请选择|大平层|别墅|自建房|其他")
.AddInput("新房面积","新房面积:","number").Value = dr("新房面积")
.AddInput("装修进度","装修进度:","Text").Value = dr("装修进度")
.AddInput("产品关注点","产品焦点","Text").Value = dr("产品关注点")
.AddInput("首选服务","意向产品:","Text").Value = dr("首选服务")
.AddInput("折扣及价格","折扣意向:","Text").Value = dr("折扣及价格")
上面代码ok可以使用
下面的代码报错
要用什么方式实现获取初始值
.AddTextArea("竞品",2).Value = dr("竞品")
.AddTextArea("已购主材品牌:",2).Value = dr("已购主材品牌")
.AddTextArea("备注:",2).Value = dr("备注")
还有单选列表项怎么获取初始值 再次编辑
'With wb.AddCheckGroup("form1","图纸提供","图纸信息》》")
'.Add("平面图","平面图")
'.Add("效果图","效果图")
'.Add("施工图","施工图")
'.Add("物料单","物料单")
'.Add("预算表","预算表")
'End With
'With wb.AddRadioGroup("form1","风格偏好","装修风格》》")
'.Add("轻奢现代","轻奢现代")
'.Add("经典系列","经典系列")
'.Add("古典奢华","古典奢华")
'.Add("混搭风格","混搭风格")
'End With
[此贴子已经被作者于2019/4/10 23:29:18编辑过]
加好友 
发短信
Post By：2019/4/10 23:26:00 [只看该作者]
