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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → InsertHTML 循环求助

共有2251人关注过本帖树形打印复制链接主题：InsertHTML 循环求助

有点蓝

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

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

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

idx += 1

有点蓝

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

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

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

主题：InsertHTML 循环 求助