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

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

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