With .AddInput("部门","部门:","Text")
.value = bm
.readonly = True
End With
With .AddInput("岗位","岗位:","Text")
.value = gw
.readonly = True 11. 这种写法可以锁定
End With
With .AddInput("日期","建档日期:*","date")
.Value = Date.Today
End With
.AddSelect("收客部门","客户优选:*","固装|软装|全案|其他")
.AddInput("推荐人","推荐人员:*","Text").Value = dr("推荐人")
'.AddInput("推荐人电话","推荐电话:*","number").Value = dr("推荐人电话")
.AddInput("楼盘","客户楼盘:*","Text").Value = dr("楼盘").readonly = True 2. 这种写法不合适不能锁定
.AddInput("单元房号","单元房号*:","Text").Value = dr("单元房号")
.AddInput("用户姓名","客户姓名:*","Text").Value = dr("用户姓名") '前一个"姓名"是ID,后一个"姓名"是标题
.AddInput("用户电话","客户电话:*","number").Value = dr("用户电话")
.AddInput("用户年龄","客户年龄:*","number").Value = dr("用户年龄")
调整下面的代码可以不被修改
加好友 
发短信
Post By：2019/4/10 23:10:00 [只看该作者]
