AddSelect - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → AddSelect

共有3927人关注过本帖树形打印复制链接主题：AddSelect

yetle

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：四尾狐帖子：858 积分：6381 威望：0 精华：0 注册：2017/2/13 9:04:00

AddSelect 发帖心情

Post By：2020/3/12 17:46:00 [只看该作者]

AddSelect(dr4("工序号"),dr4("工序号") & "|" & dr4("工序名"),dr4("初查不合格数量") & "|0|1|2|3|4|5")

当工序名的字段超过6个汉字的时候自动换行了，可不可以设置允许显示的长度

[此贴子已经被作者于2020/3/13 10:52:02编辑过]

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：110738 积分：563610 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：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

主题：AddSelect