主题：求助，如何生成考核表

急，在线等。我用的是SQL数据库，数据就是项目里的，如何生成如图所示的考核表呢？给个思路呗。我用专业报表，巡视只能生成一条一条的记录，没法把一天的合并的一行，也不能去除重复。违章只能一行一条，不能一行两条。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:生成考核表.zip

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:安全科考核表（窦东东）2014.8.xls

 还是用专业报表去做。你说的合并是什么意思啊？怎样的规矩合并？

 

 

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

就是把同一天的巡视合并到一行里

不行啊，提示如图
此主题相关图片如下：错误代码.jpg

 楼上的代码就是啊

 下面的代码你单独测试，关键是你要理解啊

 

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

为什么把output.show(str)换成rt.Cells(r,2).Text=str,就只输出最后一条记录呢？

rt.Cells(r,2).Text &= str

怎么所有数据都在一格里啊？