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

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

 

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("考勤表")

 

报错截图

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

 

实名制考勤  表截图：

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

 

生成的  考勤表截图

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

 

想要这样效果怎么实现

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

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

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

  

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

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

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

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

老师，怎么横向统计字符列呢？比如我在每月最后增加一列出勤天数合计，怎么统计一个人当月出勤的天数，前面的√是字符列。

知道怎么统计了

If e.DataCol.Name Like "日*" Then
    Dim sum As Integer = 0
    For i As Integer = 1 To 31
        If e.DataRow("日" & i) = "√" Then
            sum += 1
        End If
    Next
    e.DataRow("出勤天数") = sum
End If