主题：根据日期列内容生成一张表的列名

大概就是这样吧，你慢慢调试琢磨：

 

 

Dim Arys As List(Of String())
Arys = DataTables("表").GetUniqueValues("a","b","c")
For Each Ary As String() In Arys
     Dim drs As List(of DataRow)

     drs = DataTables("表").Select("a=‘" & arys(0) & "' And b = '" & arys(1) & "' And b= '" & arys(2) & "'" )

     Dim nr Row = Tables("新表").AddNew()

     nr("a") = arys(0)

     nr("b") = arys(1)

     nr("c") = arys(2)

    For Each dr As DataRow In drs

        nr("XX") = nr(XX) & dr("事件")

    Next

Next

我四楼的代码就是这个意思啊，如果A表的a\b\c三列已经输入内容，而且是死的，那么更简单：

 

Dim drs As List(of DataRow)

For Each nr As DataRow In DataTables("表A").DataRows

    drs = DataTables("表").Select("a=‘" & nr("a") & "' And b = '" & br("b") & "' And c= '" & nr("c") & "'" )

    For Each dr As DataRow In drs

        nr("xx") = nr("xx") & dr("xx")

    Next

Next

Dim Vals As List(Of String) = Datatables("考勤").GetUniqueValues("[日期] Is Not Null","日期")
For Each Val As String In Vals
    Val = Val.Replace(" 0:00:00","")
    If Datatables("打印表").DataCols.Contains(Val) = False Then
        Datatables("打印表").DataCols.Add(Val, Gettype(String), 32)
    End If
Next
Dim drs As List(of Datarow)
For Each nr As Datarow In Datatables("打印表").DataRows
    For Each val As String In Vals
        Val = Val.Replace(" 0:00:00","")
        drs = Datatables("考勤").Select("工号 = '" & nr("工号") & "' And 姓名 = '" & nr("姓名") & "' And 卡号 = '" & nr("卡号") & "' And 日期 = #" & Val & "#")
        nr(val) = ""
        For Each dr As Datarow In drs
            nr(val) = nr(val) & dr("时间") & ","
        Next
        nr(val) = nr(val).Trim(",")
   Next
Next

这种代码很普通的，以后你练习多了，可以做得更好

 

用Filler先填充这些列的数据

看看帮助中DataCols的属性和方法，有一个Delete方法，用于删除通过代码增加的临时列