以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  网页填报问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=161003)
--  作者：ycs5801
--  发布时间：2021/3/1 21:43:00
--  网页填报问题
  wb.AddForm("","form1","edit.htm?key=" & PrimaryKey &  "&page=" & PageNumber)
        With wb.AddInputGroup("form1","ipg1","编辑船舶")
            .AddInput("填报人","填报人","Text").Value = dr("填报人")
            .AddInput("手机号","手机号","Text").Value = dr("手机号")
            .AddInput("英文船名","英文船名","Text").Value = dr("英文船名")

现在想实现编辑该条信息时，只允许修改手机号，其它项不允许修改，可以实现吗？谢谢
--  作者：有点蓝
--  发布时间：2021/3/1 21:51:00
--  

Foxtable为输入框提供了以下属性：

Value字符型，输入框的初始值
Readonly逻辑型，输入框是否只读
Post逻辑型，提示表单数据时是否包括此输入框的值，默认为True。
Required逻辑型，是否必须输入内容，目前基于iOS的多数浏览器暂不支持这个属性。
Placeholder字符型，对输入框预期值的提示

将HttpRequest事件代码设置为：

Select Case e.Path
    Case "test.htm"
        Dim wb As New weui
        wb.AddForm("","form1","test.htm")
        With wb.AddInputGroup("form1","ipg1","登录")
            With .AddInput("xm","户名","text")
                .Value = "张三"
                .Readonly= True
            End With
            .AddInput("xm","密码","password").Placeholder = "请输入6位数密码"
        End With
        With wb.AddButtonGroup("form1","btg1",True)
            .Add("btn1", "确定", "submit")
        End With
        e.WriteString(wb.Build) \'生成网页
End Select
--  作者：ycs5801
--  发布时间：2021/3/1 22:27:00
--  谢谢
谢谢