这样的查询用什么方法做？

chentaoww2

表A中的客户号字段中（客户号和地址）分成两列，分别添加到B表中。
下面是例子！在线等。

chentaoww2

帮我看看啊

liwen

你的数据直接用查询是难以做到的,可以使用VBA代码读取记录,一条一条的分析追加到B表中去.

chentaoww2

能不能做下我看看 ，或者给个代码

chaojianan

打开窗体1--查看结果，看看效果如何

koutx

Private Sub cp()
Dim sz1() As String
Dim str, zd, hao, ad, upd As String
str = "SELECT 表A.* FROM 表a"
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
rs.Open str, CurrentProject.Connection, adOpenKeyset, adLockReadOnly
For j = 1 To rs.RecordCount
    zd = rs.Fields(0)   
    sz1 = Split(zd, ".")
    For i = 0 To UBound(sz1)
        hao = Left(sz1(i), InStr(sz1(i), "(") - 1)
        ad = Mid(sz1(i), InStr(sz1(i), "(") + 1, Len(sz1(i)) - InStr(sz1(i), "(") - 1)
        ad = Replace(ad, "，", ",")
        upd = "INSERT INTO 表B(客户号,地址) VALUES(" & "'" & hao & "', '" & ad & "')"
        DoCmd.RunSQL upd
   Next
rs.MoveNext
Next
rs.Close
End Sub

chentaoww2

收到！！太感谢了 ！