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

--  作者：yetle --  发布时间：2019/7/13 22:37:00 --  引用 Dim wb As New WeUI Dim cmd As New SQLCommand Dim fl As String cmd.C cmd.CommandText = "SELECT sum(件数) as 件数 F rom 派发工序表 where 部门 = \'A.车间\'  and 单据状态=\'已完成\' and  工序号=\'101\'" fl = cmd.ExecuteScalar With wb.AddListGroup("", "lsg3", "请选择车间")     .Add("ls5","A车间", "  fl  ", "bzlb.htm?chejian=A") \'引用fl 是这么写的吗？？     .Add("ls6","B车间", "", "bzlb.htm?chejian=B")     .Add("ls7","C车间", "", "bzlb.htm?chejian=C") End With e.WriteString(wb.Build)

--  作者：有点蓝 --  发布时间：2019/7/15 10:06:00 --    .Add("ls5","A车间", fl, "bzlb.htm?chejian=A") 去掉双引号