以文本方式查看主题 -  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp) --  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2) ----  AddSelect  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=147254)

--  作者：yetle --  发布时间：2020/3/12 17:46:00 --  AddSelect AddSelect(dr4("工序号"),dr4("工序号") & "|" & dr4("工序名"),dr4("初查不合格数量") & "|0|1|2|3|4|5") 当工序名的字段超过6个汉字的时候自动换行了，可不可以设置允许显示的长度 [此贴子已经被作者于2020/3/13 10:52:02编辑过]

--  作者：有点蓝 --  发布时间：2020/3/13 9:03:00 --   Select Case e.Path     Case "test.htm"         Dim wb As New weui         wb.AddForm("","form1","test.htm")         wb.AppendHTML("<style>.weui_label{width:200px}</style>",True)         With wb.AddInputGroup("form1","ipg1","登录")             .AddInput("xm","户名户名户名户名","text")             .AddInput("pw","密码","password")         End With         With wb.AddButtonGroup("form1","btg1",True)             .Add("btn1", "确定", "submit")         End With         e.WriteString(wb.Build) \'生成网页 End Select