下列代码中,证件名称属于基本信息,但证件数量较多,所以允许200个字符,这就需要采用多行文本框。
请问高手:如果证件名称仍在基本信息组下,能否实现多行文本框?怎么实现?谢谢!
With wb.AddInputGroup("form1","ipg1","基本信息")
With .AddInput("申请部门","申请部门","text")
.value=department '登录时从人员管理表获取的部门名称
.readonly=True
End With
.AddInput("证件名称","证件名称","text")
.AddInput("用途","用途","text")
.AddInput("拟用城市","拟用城市","text")
.AddInput("拟借日期","拟借日期","date")
.AddInput("拟用日期","拟用日期","date")
.AddInput("拟还日期","拟还日期","date")
End With
With wb.AddInputGroup("form1","ipg2","备注")
With .AddTextArea("备注",5)'多行文本框,设为5行
.Placeholder="100字以内"
.class = "red"
End With
End With
解决办法(9楼甜版的方法更好):
With .AddInput("申请部门","申请部门","text")
.value=department
.readonly=True
End With
With .AddInputCell("ic1") '通过InputCell增加输入框
.AddLabel("证件名称","证件名称",0) '增加标签,0显示在左边
End With
With .AddTextArea("证件名称",10)'多行文本框,设为10行
.Placeholder="200字以内"
.class = "red"
End With
.AddInput("用途","用途","text")
[此贴子已经被作者于2018/7/12 15:22:43编辑过]