以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  AddSelect  (http://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