[高0]求最短的代码.

Trynew

Private Sub 命令0_Click()

    Dim i As Integer, j As Integer, strSql(4) As String

    For i = 0 To DCount("*", "表1") - 1

        strSql(1) = strSql(1) & " & [" & i & "]"

        strSql(2) = strSql(2) & ",[" & i & "].txt as " & i

        strSql(3) = strSql(3) & ",表1 as " & i

        For j = i + 1 To DCount("*", "表1") - 1

            strSql(4) = strSql(4) & " and [" & i & "]<>[" & j & "]"

        Next j

    Next

    CurrentDb().QueryDefs("Sql").SQL = "SELECT " & Mid(strSql(1), 4) & " as Str FROM (select " & Mid(strSql(2), 2) & " from " & Mid(strSql(3), 2) & ") where (" & Mid(strSql(4), 6) & ")"

    DoCmd.OpenQuery "Sql"

End Sub