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)
加好友 
发短信
Post By：2019/7/13 22:37:00 [只看该作者]
