- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- InsertHTML 循环 求助 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=116397)
-- 发布时间：2018/3/23 20:37:00
--
Dim idx As Integer = 10
For Each bm As String In DataTables("工作日报").GetValues("部门")
wb.InsertHTML("page2", "<div "><label style=\'line-height:3\'>木作事业部</label></div>")
wb.AddPage("page2" ,"pg" & idx)
For Each dr As DataRow In DataTables("工作日报").sqlSelect("[部门] = \'" & bm & "\'", "", "日期 Desc")
With wb.AddPreview("pg" & idx,"pv" & dr("_Identify"),"职员",dr("姓名") & ":" &dr("岗位"))
.AddItem("日期",dr("日期"))
.AddItem("今日达成",dr("今日达成"))
.AddItem("明日计划",dr("明日计划"))
.AddItem("营业收入",dr("营业收入"))
End With
Next
idx += 1
Next
-- 发布时间：2018/3/24 8:42:00
--
wb.InsertHTML("page" & idx, "<div "><label style=\'line-height:3\'>" & bm & "</label></div>")
wb.AddPage("page" & idx ,"pg" & idx)
-- 发布时间：2018/3/25 21:15:00
--
wb.InsertHTML("page" & bm1, "<div><label style=\'line-height:3\'>" & bm1 & "</label></div>")