标题：根据日期列内容生成一张表的列名
我想根据一张表中日期列中的日期,自动生成另外一张表的列名或者列标题,代码怎么写
Dim dtb As New DataTableBuilder("临时表")
Dim ColNames As List(Of String) = Datatables("订单").GetUniqueValues("[日期] Is Not Null","日期")
For Each ColName As String In ColNames
dtb.AddDef(ColName.Replace(" 0:00:00",""), Gettype(String), 32)
Next
dtb.Build()
For Each ColName As String In ColNames
Datatables("表A").DataCols.Add(ColName.Replace(" 0:00:00",""), Gettype(String), 32)
Next
昨日谢错了,你这个代码测试OK,再问一个代码.
表A中不是有A.B.C三列吗,其他的列名是根据另外一张表(例如"表B")的日期生成的,但是表b中有A.B.C以及日期和时间三列,我想的是只要表A中的A.B.C三列中的数据和表B中的A.B.C三列的数据一样,那么表B中的时间列的数据自动加载或复制到相对应的表A的日期列中:
例如:
表B 表A的效果
卡号 工号 姓名 日期 时间 卡号 工号 姓名 2010-7-19
12 34 李四 2010-7-19 7:30 12 34 李四 7:30 11:30 12:30
12 34 李四 2010-7-19 11:30
12 34 李四 2010-7-19 12:00
大概就是这样吧，你慢慢调试琢磨：
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
狐爸,我是根据C版的代码:
表A中的卡号,姓名,工号是死的,2010-7-19的列名是根据表B的日期列的内容生成的,关键我要的是将表B中李四的时间加载到相应的日期列中.
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:考勤.table |
我四楼的代码就是这个意思啊，如果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