| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 移动汇总画廊格式报错，求助 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=142812) |
| -- 作者：yifan3429 -- 发布时间：2019/11/7 7:34:00 -- 移动汇总画廊格式报错，求助 --------------------------- 错误 --------------------------- 编译错误:表达式的类型为“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("* * *") Next 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("* * *") Next End With e.WriteString(wb.Build) [此贴子已经被作者于2019/11/7 7:37:47编辑过]
|
| -- 作者：有点蓝 -- 发布时间：2019/11/7 8:42:00 -- 代码没有问题。 是要查询32天前这一天的数据？还是32天前至今的数据？
|
| -- 作者：yifan3429 -- 发布时间：2019/11/7 18:10:00 -- For Each r As DataRow In DataTables("项目问题汇总").sqlSelect("[日期] = #" & dt & "#", "", "日期 Desc") 这句会报错
|
| -- 作者：yifan3429 -- 发布时间：2019/11/7 19:15:00 -- 是32天前至今的数据 [此贴子已经被作者于2019/11/7 19:15:16编辑过]
|
| -- 作者：有点蓝 -- 发布时间：2019/11/8 9:16:00 -- For Each r As DataRow In DataTables("项目问题汇总").sqlSelect("[日期] >= #" & dt & "#", "", "日期 Desc") 如果是SqlServer，看看http://www.foxtable.com/webhelp/topics/2343.htm
|
| -- 作者：yifan3429 -- 发布时间：2019/11/8 19:32:00 -- 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编辑过]
|
| -- 作者：有点蓝 -- 发布时间：2019/11/8 20:49:00 -- For Each r As DataRow In DataTables("项目问题汇总").sqlSelect("[日期] >= #" & dt & "#", "", "日期 Desc") msgbox(1) ‘提示框可以弹出来吗？如果不能说明查询没有结果 .AddContent("时间: " & r("日期"))
|