主题：生成以时由纵轴为横轴的统计表

上传具体可以测试的实例。贴出你所写代码。

上传具体可以测试的实例。贴出你所写代码。

要说多少次？ 请，上传具体可以测试的实例。贴出你所写代码。

请使用ie浏览器访问论坛和上次附件

 

Dim ndt As new DataTableBuilder("临时")
ndt.AddDef("姓名",Gettype(String))
For Each s As String In DataTables("出差登记").GetValues("日期")
    If s > "" Then
        ndt.AddDef(s, Gettype(String),999)
    End If
Next
ndt.Build

Dim ls As new List(Of String)
For Each dr As DataRow In DataTables("出差登记").datarows
    For Each s As String In (dr("姓名") & "," & dr("同行人员")).split(",")
        If s > "" AndAlso ls.Contains(s) = False Then
            ls.add(s)
            Dim ndr As DataRow = DataTables("临时").AddNew
            ndr("姓名") = s
            For Each c As DataCol In  DataTables("临时").datacols
                If c.name <> "姓名" Then
                    ndr(c.name) = DataTables("出差登记").GetComboListString("出差地点", "(姓名 like '%" & s & "%' or 同行人员 like '%" & s & "%') and 出差日期='" & c.name & "'")
                End If
            Next
        End If
    Next
Next

 

 

 

请使用ie浏览器访问论坛和上传具体项目

Dim ndt As new DataTableBuilder("临时")
ndt.AddDef("姓名",Gettype(String))
For Each s As String In DataTables("出差登记").GetValues("日期")
    If s > "" Then
        ndt.AddDef(s, Gettype(String),999, "", format(cdate(s), "yyyyMMdd"))
    End If
Next
ndt.Build

Dim ls As new List(Of String)
For Each dr As DataRow In DataTables("出差登记").datarows
    For Each s As String In (dr("姓名") & "," & dr("同行人员")).split(",")
        If s > "" AndAlso ls.Contains(s) = False Then
            ls.add(s)
            Dim ndr As DataRow = DataTables("临时").AddNew
            ndr("姓名") = s
            For Each c As DataCol In  DataTables("临时").datacols
                If c.name <> "姓名" Then
                    ndr(c.name) = DataTables("出差登记").GetComboListString("地点", "(姓名 like '%" & s & "%' or 同行人员 like '%" & s & "%') and 日期='" & c.name & "'")
                End If
            Next
        End If
    Next
Next

 

看11楼

 

Dim ndt As new DataTableBuilder("临时")
ndt.AddDef("姓名",Gettype(String))
For Each s As String In DataTables("出差登记").GetValues("日期")
    If s > "" Then
        ndt.AddDef(s, Gettype(String),999, "", format(cdate(s), "yyyyMMdd"))
    End If
Next
ndt.Build

Dim ls As new List(Of String)
For Each dr As DataRow In DataTables("出差登记").datarows
    For Each s As String In (dr("姓名") & "," & dr("同行人员")).split(",")
        If s > "" AndAlso ls.Contains(s) = False Then
            ls.add(s)
            Dim ndr As DataRow = DataTables("临时").AddNew
            ndr("姓名") = s
            For Each c As DataCol In  DataTables("临时").datacols
                If c.name <> "姓名" Then
                    ndr(c.name) = DataTables("出差登记").GetComboListString("地点", "(姓名 like '%" & s & "%' or 同行人员 like '%" & s & "%') and 日期='" & c.name & "'")
                End If
            Next
        End If
    Next
Next