记得初中时住校吃饭堂，那时候每周伙食费是20元。早上1元，午餐晚餐各1.5元（周末则回家）。

早餐一般是一碗很稀的粥，上面漂浮着一块或者两块油汪汪的肥肉，外加一个包子。星期三则是猪骨头汤米粉，——当然是没有包子了，——所以，早操一结束，大家就集体逃亡一般奔向饭堂。最开始冲过去的在每个窗口前排成两列，排到十几个之后，后面的大都是女生。其它男同学则会绕到侧面，伺机斜插进去。

曾经有个走读的同学问我，住校时排队很长吗？我认真地想了想，“排队不长，只是很粗”。她笑了，“你很幽默。”然后我也笑了，虽然我并不是一个幽默的人。直到后来学生会组织了一些学生干部专门去维持秩序，才开始“化宽为长”。

正如太宽的队伍常常有不遵守秩序的嫌疑，太宽的数据表也常常有不遵守第二范式的嫌疑。而违反它，在数据库中往往会引发很多问题，表维护不方便，难以统计分析，查询不好处理等等……所以“化宽为长”就变得很重要了。

化宽为长的前提是要求“宽”的那部分拥有共同的属性，就像宽的那部分队伍一样（都是男同学，都在队伍侧面），例如，都是数值型，都在最右边的字段等等。如果没有这些，当然谈不上化宽为长了。先看看效果吧：

代码如下，具体见示例文件。喜欢的话，就回个帖吧。

Function getSQL(ByVal strTableName As String, ByVal strEndFieldName As String) As String

    Dim rst As New ADODB.Recordset

    Dim i As Long

    Dim lngPosition As Long

    Dim strSQL As String, strSQL2 As String

    Dim dic As New Dictionary

    Dim lngEnd As Long

    rst.Open strTableName, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

'查找字段分割点的位置

    For i = 0 To rst.Fields.Count - 1

        If rst.Fields(i).Name = strEndFieldName Then

            lngEnd = i

            Exit For

        End If

    Next

'切割字段

    For i = 0 To rst.Fields.Count - 1

'在分割点之前，直接连接字符串

        If i <= lngEnd Then

            strSQL = strSQL & rst.Fields(i).Name & ","

        Else

'在分割点之后，写入字典，用于确定变量名和变量值。

            dic.Add i, rst.Fields(i).Name

        End If

    Next

'关闭记录集

    rst.Close

    '准备语句

    For i = 0 To dic.Count - 1

        strSQL2 = strSQL2 & "select " & strSQL & """" & _

                dic.Items(i) & """ as 变量名称,[" & _

                dic.Items(i) & "] as 变量值 from " & strTableName & " union all "

    Next

    getSQL = Left(strSQL2, Len(strSQL2) - 11)

End Function