主题：行列转换,如何实现?

如附件所示,如何实现?
此主题相关图片如下：行列互转.png

http://www.foxtable.com/webhelp/scr/2965.htm  用帮助中介绍的方法,达不到想要的结果.

参考代码

 

Dim dtb As New DataTableBuilder("表B")
dtb.AddDef("name", Gettype(String), 32)
For Each v As String In DataTables("表A").GetValues("id")
    dtb.AddDef("列" & v, Gettype(String), 32, "", v)
Next
dtb.Build()
For Each v As String In DataTables("表A").GetValues("name")
    Dim dr1 As DataRow = DataTables("表B").AddNew()
    dr1("name") = v
    For Each dr2 As DataRow In DataTables("表A").Select("name = '" & v & "'")
       dr1("列" & dr2("id")) = dr2("value")
    Next
Next
MainTable = Tables("表B")