请问如何将子表的单号字断用&合并，如：单号汇总的内容为：P00001&200801554

真主

请问如何将子表的单号字断用&合并，如：单号汇总的内容为：P00001&200801554

Henry D. Sy

Private Sub Form_Current()
    Dim rs As New ADODB.Recordset
    Dim strSQL As String
    Dim temp As String
    strSQL = "select 单号 from 表2 where 所属主表ID=" & Me.ID
    With rs
        .Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockReadOnly
        Do While Not .EOF
            temp = temp & .Fields(0) & "&"
            .MoveNext
        Loop
        .Close
    End With
    Set rs = Nothing
    If Len(temp) <> 0 Then
        temp = Left(temp, Len(temp) - 1)
    End If
    Me.单号汇总 = temp
End Sub

真主

谢谢Henry D. Sy