主题：[求助]表格结构转换

最好设计好表，输入少量测试数据，然后发上来。

这样可以直接帮你写一下。

大概这样，关键在于通过统计表的列标题获取日期，然后从原始数据表找出对应的行：

For Each dr1 As DataRow In DataTables("统计表").DataRows
    Dim nm As String = dr1("姓名")
    For Each dc As DataCol In DataTables("统计表").DataCols
        If dc.name <> "姓名" Then
            Dim dt As Date = CDate(dc.Caption)
            Dim dr2 As DataRow = DataTables("数据表").Find("姓名 = '" & nm & "' and 日期 = #" & dt & "#" )
            If dr2 IsNot Nothing Then
                dr1(dc.name) = dr2("考勤")
            End If
        End If
    Next
Next