Office中国论坛/Access中国论坛

标题: 急!!!!!!!各位版主，如下表单如何实现行列转置？？？ [打印本页]

作者: robin_lcj 时间: 2006-4-7 21:49
标题: 急!!!!!!!各位版主，如下表单如何实现行列转置？？？
请问各位高手，如下功能如何实现？？？

[attach]16962[/attach]
[attach]16963[/attach]

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

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

作者: wwwwa 时间: 2006-4-7 23:10
SQL语句+函数解决

作者: andymark 时间: 2006-4-7 23:59
这里有一个行列转置函数，原理差不多

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

作者: fan0217 时间: 2006-4-8 02:46
新建个表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 时间: 2006-4-14 07:02
我的比这个还复杂点，正在思考中。。。

作者: celery7 时间: 2006-5-9 03:35
晕倒，我也正在寻找中

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)