wb.AddPageTitle("","pageheader","TOCASA","每周问题汇总")
With wb.AddArticle("","ar1")
.UseGallery = True '启用Gallery,必须放在第一行
Dim dt As Date = Date.Today.AddDays(-7)
For Each r As DataRow In DataTables("项目问题汇总").sqlSelect("[日期] >= #" & dt & "#", "", "日期 Desc")
.AddContent("时间: " & r("日期"))
.AddTitle("h1","由【" & r ("汇报人")& "】汇报了【" & r ("问题分类")& "】的情况")
.AddImage("http://www.icwd.top:8080/项目部\问题照片\" & r("问题分类") & r("现场照片"))
.AddContent("问题描述: " & r("问题描述"))
.AddContent("解决方案: " & r("解决方案"))
.AddContent("其他备注: " & r("备注"))
.AddContent("* * *")
Next
End With
e.WriteString(wb.Build)
这个代码我实在是看不出问题，就是不显示内容
只显示 wb.AddPageTitle("","pageheader","TOCASA","每周问题汇总")
wb.AddPageTitle("","pageheader","TOCASA","历史问题汇总")
With wb.AddArticle("","ar1")
.UseGallery = True '启用Gallery,必须放在第一行
For Each r As Row In Tables("项目问题汇总")
.AddContent("时间: " & r("日期"))
.AddTitle("h1","由【" & r ("汇报人")& "】汇报了【" & r ("问题分类")& "】的情况")
.AddImage("http://www.icwd.top:8080/项目部\问题照片\" & r("问题分类") & r("现场照片"))
.AddContent("问题描述: " & r("问题描述"))
.AddContent("解决方案: " & r("解决方案"))
.AddContent("其他备注: " & r("备注"))
.AddContent("* * *")
Next
End With
e.WriteString(wb.Build)
绿色的代码是会显示的数据的，难道不能用 For Each r As DataRow In DataTables("项目问题汇总").sqlSelect("[日期] >= #" & dt & "#", "", "日期 Desc")
代码只有这个不同了
[此贴子已经被作者于2019/11/8 19:35:05编辑过]
加好友 
发短信
Post By：2019/11/7 7:34:00 [显示全部帖子]
