- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 求助，如何生成考核表 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=56967)
-- 发布时间：2014/9/16 9:21:00
-- 求助，如何生成考核表
急，在线等。我用的是SQL数据库，数据就是项目里的，如何生成如图所示的考核表呢？给个思路呗。我用专业报表，巡视只能生成一条一条的记录，没法把一天的合并的一行，也不能去除重复。违章只能一行一条，不能一行两条。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:生成考核表.zip |
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:安全科考核表（窦东东）2014.8.xls |
-- 发布时间：2014/9/16 9:53:00
--
还是用专业报表去做。你说的合并是什么意思啊？怎样的规矩合并？
-- 发布时间：2014/9/16 9:57:00
--
Dim name As String = "窦东东"
Dim dt As DataTable = DataTables("机关干部履职情况")
For Each rq As Date In dt.GetValues("日期", "检查人1 like \'%" & name & "%\'")
Dim arys As List(Of String()) = dt.GetValues("检查地点|开始时间|结束时间", "日期 = #" & rq & "# and 检查人1 like \'%" & name & "%\'")
Dim str As String = ""
For Each ary As String() In arys
str &= format(cDate(ary(1)), "HH:mm") & "-" & format(cDate(ary(2)), "HH:mm") & ary(0) & ";"
Next
output.Show(str)
Next
-- 发布时间：2014/9/16 10:06:00
--
就是把同一天的巡视合并到一行里
-- 发布时间：2014/9/16 10:31:00
--
不行啊，提示如图
此主题相关图片如下：错误代码.jpg
-- 发布时间：2014/9/16 10:37:00
--
楼上的代码就是啊
-- 发布时间：2014/9/16 10:38:00
--
下面的代码你单独测试，关键是你要理解啊
Dim name As String = "窦东东"
Dim dt As DataTable = DataTables("机关干部履职情况")
For Each rq As Date In dt.GetValues("日期", "检查人1 like \'%" & name & "%\' and 日期 is not null")
Dim arys As List(Of String()) = dt.GetValues("检查地点|开始时间|结束时间", "日期 = #" & rq & "# and 检查人1 like \'%" & name & "%\'")
Dim str As String = ""
For Each ary As String() In arys
str &= format(cDate(ary(1)), "HH:mm") & "-" & format(cDate(ary(2)), "HH:mm") & ary(0) & ";"
Next
output.Show(str)
Next
-- 发布时间：2014/9/17 16:20:00
-- 回复：（有点甜） 下面的代码你单独测试，关键是...
为什么把output.show(str)换成rt.Cells(r,2).Text=str,就只输出最后一条记录呢？
-- 发布时间：2014/9/17 16:26:00
--
rt.Cells(r,2).Text &= str
-- 发布时间：2014/9/17 16:37:00
-- 回复：（有点甜）rt.Cells(r,2).Text &= str
怎么所有数据都在一格里啊？