- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 如何让weui生成页面不可编辑 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=186336)
-- 发布时间：2023/4/23 8:56:00
-- 如何让weui生成页面不可编辑
如何让跳转页面黄色部分数据不可编辑
.AddInput("ID", "ID", "number").value = r("_Identify")
.AddInput("规格", "规格", "Text").value = r("规格")
.AddInput("客户", "客户", "Text").value = r("客户")
.AddInput("颜色", "颜色", "Text").value = r("颜色")
.AddInput("型号", "型号", "Text").value = r("型号")
.AddInput("钢板", "钢板", "Text").value = r("钢板")
.AddInput("底板", "底板", "Text").value = r("底板")
.AddInput("数量", "数量", "Text").value = r("数量")
.AddInput("备注", "备注", "Text").value = r("备注")
.AddInput("批号", "批号", "Text").value = r("批号")
[此贴子已经被作者于2023/4/23 16:08:15编辑过]
-- 发布时间：2023/4/23 9:04:00
--
http://www.foxtable.com/mobilehelp/topics/0045.htm
看Readonly的用法
-- 发布时间：2023/4/23 10:06:00
--
With .AddInput("订单编号","编号","text")
.Value = pr("订单编号")
.Readonly = True
End With
必须是上面的写法么 能否有简捷用法 不能修改的行较多 感觉例子写法累赘效率低
.AddInput("ID", "ID", "number").value = r("_Identify")
.AddInput("规格", "规格", "Text").value = r("规格")
[此贴子已经被作者于2023/4/23 10:10:10编辑过]
-- 发布时间：2023/4/23 10:08:00
--
必须是上面的写法
-- 发布时间：2023/4/23 10:18:00
--
也行蓝版看了我的用法能帮我再优化一下 我思路没有对 应该是有精简写法
wb.AddForm("","form1","scbgd.htm")
With wb.AddInputGroup("form1", "ipg1", "客户资料")
For Each r As DataRow In dt.DataRows
\' msgbox(r("_Identify"))
With .AddInput("ID", "ID", "number")
.value = r("_Identify")
.Readonly= True
End With
With .AddInput("规格", "规格", "Text")
.value = r("规格")
.Readonly= True
End With
With .AddInput("客户", "客户", "Text")
.value = r("客户")
.Readonly= True
End With
With .AddInput("颜色", "颜色", "Text")
.value = r("颜色")
.Readonly= True
End With
With .AddInput("型号", "型号", "Text")
.value = r("型号")
.Readonly= True
End With
With .AddInput("钢板", "钢板", "Text")
.value = r("钢板")
.Readonly= True
End With
With .AddInput("底板", "底板", "Text")
.value = r("底板")
.Readonly= True
End With
With .AddInput("数量", "数量", "Text")
.value = r("数量")
.Readonly= True
End With
With .AddInput("备注", "备注", "Text")
.value = r("备注")
.Readonly= True
End With
With .AddInput("批号", "批号", "Text")
.value = r("批号")
.Readonly= True
End With
With .AddInput("日期", "日期", "date")
.value = Date.Today
.Readonly= True
End With
wb.AppendHTML("<br/>")
Next
-- 发布时间：2023/4/23 10:22:00
--
没有精简写法
-- 发布时间：2023/4/23 16:36:00
--
请教一下 weui不能编辑的数据是不能提交验证吗
此主题相关图片如下：验证.png
就是验证通不过
-- 发布时间：2023/4/23 16:36:00
--
这个是js文件
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:ajaxform.txt |
-- 发布时间：2023/4/23 16:42:00
--
For Each r As DataRow In dt.DataRows 会有多行数据？
-- 发布时间：2023/4/23 16:59:00
--
数据单行 怀疑和数据提交有关系 晕到这里面了
[此贴子已经被作者于2023/4/23 17:07:24编辑过]