主题：考勤垂直表转换为横表

老师，考勤表转换为横表不对，代码如下，麻烦看看。

 

Dim  dtb As  New  DataTableBuilder("考勤表")
dtb.AddDef("姓名",  Gettype(String),  32)
For Each  v As  String In DataTables("实名制考勤").GetValues("考勤日期")
    dtb.AddDef(v, Gettype(String))
Next
dtb.Build()
For Each  v As  String In DataTables("实名制考勤").GetValues("姓名")
    Dim dr1  As  DataRow =  DataTables("考勤表").AddNew()
    dr1("姓名") = v
    For  Each dr2  As  DataRow  In  DataTables("实名制考勤").Select("姓名 = '" & v & "'")
        dr1(dr2("考勤日期")) = dr2("考勤状态")
    Next
Next
MainTable = Tables("考勤表")

 

报什么错？

 

是不是这个问题？ For Each  v As  String In DataTables("实名制考勤").GetValues("考勤日期", "考勤日期 is not null")

报错截图

此主题相关图片如下：1.png
 

 

实名制考勤  表截图：

此主题相关图片如下：2.png

 

生成的  考勤表截图

此主题相关图片如下：3.png

 

想要这样效果怎么实现

此主题相关图片如下：4.png

改成

 

Dim  dtb As  New  DataTableBuilder("考勤表")
dtb.AddDef("姓名",  Gettype(String),  32)
For Each  v As  String In DataTables("实名制考勤").GetValues("考勤日期")
    dtb.AddDef(v.replace(" 00:00:00", ""), Gettype(String))
Next
dtb.Build()
For Each  v As  String In DataTables("实名制考勤").GetValues("姓名")
    Dim dr1  As  DataRow =  DataTables("考勤表").AddNew()
    dr1("姓名") = v
    For  Each dr2  As  DataRow  In  DataTables("实名制考勤").Select("姓名 = '" & v & "'")
        dr1(dr2("考勤日期")) = dr2("考勤状态")
    Next
Next
MainTable = Tables("考勤表")

老师，4楼最后那个效果怎么实现呢？

参考：http://www.foxtable.com/webhelp/scr/0018.htm

老师，我换了一种方式，麻烦写一下这个代码，选择日期后，根据选择的日期和勾选的人员（勾选的在表中未到岗 为 √ ，没勾选的缺勤 为×）这样的效果

  

此主题相关图片如下：111.png

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

点击浏览该文件:管理项目1.foxdb

请上传具体的有数据，可以测试的实例上来。

考试，8楼示例里面有数据，我就想点击考勤，选择考勤日期，出勤了的就勾选，没出勤的不勾选，确定后在实名制考勤表里面对应的显示 √ 或 ×