主题：求助【横竖转换】

dr1(dr2("部门")) = dr2("值班人员")

改成

dr1(dr2("部门")) = (dr1(dr2("部门")) & "," & dr2("值班人员")).Trim(",")

 如果还有问题，具体foxtable例子发上来。

Dim dtb As New DataTableBuilder("表d")
dtb.AddDef("日期", Gettype(String), 32)
For Each v As String In DataTables("人员值班表").GetValues("部门")
    dtb.AddDef(v, Gettype(String),32)
Next
dtb.Build()

For Each v As String In DataTables("人员值班表").GetValues("日期")
    For Each dr2 As DataRow In DataTables("人员值班表").Select("日期 = '" & v & "'")
        Dim dr1 As DataRow = DataTables("表d").Find("日期 = " & v & " and " & dr2("部门") & " is null")
        If dr1 Is Nothing Then
            dr1 = DataTables("表D").AddNew()
            dr1("日期") = v
        End If
        dr1(dr2("部门")) = dr2("值班人员")
    Next
Next
MainTable = Tables("表d")

        dr1(dr2("部门")) = (dr1(dr2("部门")) & vbcrlf  & dr2("值班人员") & dr2("手机")).trim(chr(13), chr(10))