急!!!!!!!各位版主，如下表单如何实现行列转置？？？

robin_lcj

请问各位高手，如下功能如何实现？？？






原图格式不符,重编辑------一点通

[此贴子已经被一点通于2006-4-7 15:39:38编辑过]

wwwwa

SQL语句+函数解决

andymark

这里有一个行列转置函数，原理差不多

http://www.office-cn.net/forum.php?mod=viewthread&tid=38021&replyID=&skin=1

fan0217

新建个表BOM2,字段:F1(文本);F3(备注)

然后执行以下过程:

Sub 合并列()
Dim conn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim rst2 As New ADODB.Recordset
Dim rst3 As New ADODB.Recordset
Dim strSQL As String
Dim strText As String

Set conn = CurrentProject.Connection

strSQL = "SELECT DISTINCT BOM1.F1 FROM BOM1;"

rst.Open strSQL, conn, adOpenKeyset, adLockPessimistic

Do While Not rst.EOF
    strSQL = "SELECT * FROM BOM1 "
    strSQL = strSQL & "WHERE BOM1.F1='" & rst("F1") & "';"
    strText = ""
    rst2.Open strSQL, conn, adOpenKeyset, adLockPessimistic
        Do While Not rst2.EOF
            strText = strText & rst2("F3") & ";"
            rst2.MoveNext
        Loop
    rst2.Close
   
    strSQL = "SELECT * FROM BOM2;"
    rst3.Open strSQL, conn, adOpenKeyset, adLockPessimistic
            rst3.AddNew
                rst3("F1") = rst("F1")
                rst3("F3") = strText
            rst3.Update
    rst3.Close
        
    rst.MoveNext
Loop
rst.Close

Set rst3 = Nothing
Set rst2 = Nothing
Set rst = Nothing
Set conn = Nothing

End Sub

[此贴子已经被作者于2006-4-7 18:52:28编辑过]

fengqifan

我的比这个还复杂点，正在思考中。。。

celery7

晕倒，我也正在寻找中