移动汇总画廊格式报错，求助 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

---------------------------

错误

---------------------------

编译错误:表达式的类型为“DataTable”，该类型不是集合类型。

错误代码：For Each r As DataRow In DataTables("项目问题汇总")

---------------------------

确定

---------------------------

wb.AddPageTitle("","pageheader","TOCASA","历史问题汇总")

With wb.AddArticle("","ar1")

.UseGallery = True '启用Gallery,必须放在第一行

'Dim dt As Date = Date.Today.AddDays(-2)

'For Each r As DataRow In DataTables("项目问题汇总").sqlSelect("[日期] = #" & dt & "#", "", "日期 Desc")

''For Each r As Row In Tables("项目问题汇总").sqlSelect("[日期] = #" & Date.Today & "#", "", "日期 Desc")

For Each r As DataRow In DataTables("项目问题汇总")

.AddContent("时间: " & r("日期"))

.AddTitle("h1","由【" & r ("汇报人")& "】汇报了【" & r ("问题分类")& "】的情况")

.AddImage("http://www.icwd.top:8080/项目部\问题照片\" & r("问题分类") & r("现场照片"))

.AddContent("问题描述: " & r("问题描述"))

.AddContent("解决方案: " & r("解决方案"))

.AddContent("其他备注: " & r("备注"))

'http://www.icwd.top:8080/产品库\产品照片\2大专豹首-地面应用.jpg

.AddContent("* * *")

End With

e.WriteString(wb.Build)

上面的的我希望显示全部，会报错

下面得不会报错，但是不显示内容，内容是存在的。

wb.AddPageTitle("","pageheader","TOCASA","当月问题汇总")

With wb.AddArticle("","ar1")

.UseGallery = True '启用Gallery,必须放在第一行

Dim dt As Date = Date.Today.AddDays(-32)

For Each r As DataRow In DataTables("项目问题汇总").sqlSelect("[日期] = #" & dt & "#", "", "日期 Desc")

'For Each r As Row In Tables("项目问题汇总").sqlSelect("[日期] = #" & Date.Today & "#", "", "日期 Desc")

'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("备注"))

'http://www.icwd.top:8080/产品库\产品照片\2大专豹首-地面应用.jpg

.AddContent("* * *")

End With

e.WriteString(wb.Build)

[此贴子已经被作者于2019/11/7 7:37:47编辑过]

代码没有问题。

是要查询32天前这一天的数据？还是32天前至今的数据？

For Each r As DataRow In DataTables("项目问题汇总").sqlSelect("[日期] = #" & dt & "#", "", "日期 Desc")

这句会报错

是32天前至今的数据

[此贴子已经被作者于2019/11/7 19:15:16编辑过]

For Each r As DataRow In DataTables("项目问题汇总").sqlSelect("[日期] >= #" & dt & "#", "", "日期 Desc")

如果是SqlServer，看看http://www.foxtable.com/webhelp/topics/2343.htm

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("* * *")

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("* * *")

End With

e.WriteString(wb.Build)

绿色的代码是会显示的数据的，难道不能用 For Each r As DataRow In DataTables("项目问题汇总").sqlSelect("[日期] >= #" & dt & "#", "", "日期 Desc")

代码只有这个不同了

[此贴子已经被作者于2019/11/8 19:35:05编辑过]

For Each r As DataRow In DataTables("项目问题汇总").sqlSelect("[日期] >= #" & dt & "#", "", "日期 Desc")

msgbox(1) ‘提示框可以弹出来吗？如果不能说明查询没有结果

.AddContent("时间: " & r("日期"))

主题：移动汇总画廊格式报错，求助