Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Get all e-mails from a DBF
Message
From
09/03/2004 11:19:41
Erick Miranda
Formata Data Business - Grupo Linx
Contagem, Brazil
 
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Miscellaneous
Thread ID:
00884446
Message ID:
00884451
Views:
13
This message has been marked as the solution to the initial question of the thread.
Hi Moises!

>The code below is from a fried of this forum
>It get´s all e-mail from a field off DBF and
>store them to a variable.
>How can I get only e-mail from state = "XX"
>Regards
>Moises
>
>m.YourEmails = ''
>Select correios_rec
>goto 1
>*Scan For !Empty(correios_rec.E_mail1)
> scan
> m.YourEmails = m.YourEmails + alltrim(correios_rec.E_mail1) + '; '
>EndScan
>_ClipText = Iif(Empty(m.YourEmails),'',SubStr(m.YourEmails,1,Len(m.YourEmails)-2))

Try this:
m.YourEmails = ''
Select correios_rec
goto 1
scan
  If correios_rec = "XX"
     m.YourEmails = m.YourEmails + alltrim(correios_rec.E_mail1) + '; '
  Endif
EndScan
_ClipText = Iif(Empty(m.YourEmails),'' ;
          , SubStr(m.YourEmails,1,Len(m.YourEmails)-2))
You can also to use "Select SQL clausule" and to select only the datas for state = 'XX'.
Bye!
Erick
Força Sempre!
Strength Always!
Previous
Reply
Map
View

Click here to load this message in the networking platform