wb.AddForm("page1","form1","cxjg.htm")
With wb.AddInputGroup("form1","ipg1","动态列表")
With .AddInputCell("ic1") '通过InputCell增加输入框
.AddLab el("sgdh1","施 工单号",0) '增加标签,0显示在左边
.AddInput("sgdh","text",1) '增加输入框,1表示显示在中间
.Attri bute = "o n c ha n g e=""setA jaxOptions('scd h','sjcl.ht m','sgdh',f alse)"""
.AddVco deButton("hy m","选择施工单号 ",2).Attribute=" o n cli c k=""hide('page1');show('page2')""" '增加获取验证码按钮,2表示显示在右边
End With
With .AddSelect("scdh","生产单号","")
.Attribute = "o nc ha n ge=""setAj ax Op tions('cpmc','sjcl. htm','sgd h','scdh',false)"""
End With
.AddSelect("cpmc","产品名称","")
.AddInput("rq","日 期","da te")
End With
With wb.AddButto nG roup("page1","btg1",True)
.A dd("btn1", "确定", "submit")
End W ith
With w b.AddI npu t Group("page2","ipg2","请输入搜索内容")
.AddI npu t("ssnr","施工单号","text").Attr ib ute=" style='bo rder-left:1px solid #CCC'; oninput=gl()"
End With
With w b.A d dLis tGr oup("page2", "lsg1","施工单列表")
Dim Multi As St ri ng = d t .GetCom boListString("施工单号")
Dim Valu es() As String
Val ue s = Mult i.split("|")
For r As In teg er = 0 To Va lues.Length - 1
.Add(r,Values(r)).Attrib ute="o n c l ick=q uz hi(""" & Values(r) & """)"
Next
End With
加好友 
发短信
Post By：2020/4/26 8:44:00 [只看该作者]
此主题相关图片如下：1.png
