以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  AddInput批量禁止编辑  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=173920)
--  作者：洮沙
--  发布时间：2021/12/22 15:26:00
--  AddInput批量禁止编辑

 With  wb.AddInputGroup("form1","ipg1","客户【基本资料】")
                .AddInput("客户编码","客户编码","text").Value = dr("客户编码")
                .AddInput("客户名称","客户名称","text").Value = dr("客户名称")
                .AddInput("营业执照号","营业执照号","text").Value = dr("营业执照号")
                .AddInput("税务登记号","税务登记号","text").Value = dr("国税登记号")
                .AddInput("登记类型","登记类型","text").Value = dr("注册登记类型")
                .AddInput("纳税人资格","纳税人资格","text").Value = dr("纳税人资格")
                .AddInput("所得税类型","所得税类型","text").Value = dr("所得税")
                Dim jydz As String = dr("住所_县") & dr("住所_镇以下")
                .AddInput("经营地址","经营地址","text").Value = ""& jydz &""
End With

老师，通过以上代码增加的输入框，如何批量禁止编辑？或者有替代控件吗？要求赋值显示，不可修改。谢谢！

[此贴子已经被作者于2021/12/22 15:30:27编辑过]
--  作者：有点蓝
--  发布时间：2021/12/22 15:33:00
--  
只能一个个设置

 With  wb.AddInputGroup("form1","ipg1","客户【基本资料】")
              with  .AddInput("客户编码","客户编码","text")

.Value = dr("客户编码")

.Readonly= True

end with
                .AddInput("客户名称","客户名称","text").Value = dr("客户名称")
--  作者：洮沙
--  发布时间：2021/12/22 15:35:00
--  

知道了，我简单的一个页面就是按照此方法做的。谢谢！