请教老师，如何通过查询实现从表1到表2的效果，谢谢

给你个函数，自己改一下？

Function GetBLCSO(Company As String)
    Dim rs As New ADODB.Recordset
    With rs
        .Open "Select * From _check_frt_tbl_BL where BL_NO='" & Company & "'", CurrentProject.Connection, adOpenKeyset, adLockReadOnly
        Do While Not .EOF
            If Nz(GetBLCSO) = "" Then
                GetBLCSO = !cso_frt
            Else
                GetBLCSO = GetBLCSO & "," & !cso_frt
            End If
            .MoveNext
        Loop
    End With

End Function