请教有关查询的问题

cocofelling

有两个表，如下
A：
ID   AA   
1    1     
2     25
3     58
4     59
5     98
B:
ID   AA

现在我要想把A表中的数据追加到B表中去，当只只用查询的办法。不在窗体中实现

B表要求的效果如下
B:
ID                          AA
1，2                       1，25
3，5                       58，98
4                            59

我浏览了一下以前的贴子，有的朋友可以通过窗体实现，我现在想要通过查询来实现。有办法吗？ 几个查询都可以。

Henry D. Sy

把例子传上来试试

aslxt

你的ID中1和2、3和5有什么关联，或者说以什么规律把他们分组？

babyboys

试试试试

cocofelling

上传了一个例子。。

Henry D. Sy

Public Function gStr(fld As String)
    Dim rs As New ADODB.Recordset
    Dim strSQL As String
    strSQL = "SELECT DM FROM TABDM WHERE KT='" & fld & "'"
    With rs
        .Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockReadOnly
        Do While Not .EOF
            gStr = gStr & .Fields(0) & ","
            .MoveNext
        Loop
        .Close
    End With
    Set rs = Nothing
End Function


SELECT KT.KTID, KT.KFXM, gStr([KTID]) AS 表达式1
FROM KT;

Henry D. Sy

ddddd

cocofelling

谢谢  Henry D. Sy  的支持！

shenxb

谢谢