问题见下面代码中红字：
Case "details.htm"
If e.PostValues.Count = 0 Then ’当下面的属性都是only的时候
**********
wb.AddForm("bt2","form1","details.htm")
With wb.AddInputGroup("form1","ipg1","TA的资料")
With .AddInput("nianl","年龄","text")
.Value = nial & "岁|" & xuel & "|" & huny & "|" & xuel
.Readonly= True
End With
With .AddInput("chengs","我在","text")
.Value = suozqx & ">" & suozshi & ">" & suozs
.Readonly= True
End With
With .AddInput("chengs","家乡","text")
.Value = jiaxqx & ">" & jiaxshi & ">" & jiaxs
.Readonly= True
End With
With wb.AddButtonGroup("form1","btg1",False)
.Add("btn1", "邀TA加微信", "submit")
.Add("btn2", "免费升级", "","另一个页面")
End With
End With
Else
上面都是只读
当点击按钮"邀TA加微信"，在某个表中增加行，并保持信息，不知道是否可以？（参照移动文档，一个录入界面）
当点击按钮"免费升级"，进入另一个页面，？
end if
[此贴子已经被作者于2017/4/12 19:27:40编辑过]
加好友 
发短信
Post By：2017/4/12 18:23:00 [只看该作者]
