Welcome To The Home Of The Visual FoxPro Experts  
home. signup. forum. archives. search. google. articles. downloads. faq. members. weblogs. file info. rss.
 From: M. Akram Bhatti
  Where is M. Akram Bhatti?
 Riyadh
 Saudi Arabia
 M. Akram Bhatti
 To: mohammed qasem
  Where is mohammed qasem?
 amman
 Jordan
 mohammed qasem
 Tags
Subject: RE: set defa to
Thread ID: 249044 Message ID: 249045 # Views: 1 # Ratings: 1
Version: Visual FoxPro 9 Category: Forms
Date: Sunday, December 27, 2009 1:19:51 PM         
   


> hi all,
>
> i use this code at myform at the project.
>
> i need to return back to the form as set defa to
>
>
> SET DEFAULT TO i:\habsystem\aa
>     lcFilePic=GETPICT()
> IF !EMPTY(lcFilePic)
> thisform.text4.Value=(lcFilePic)
> ENDIF
> 
> set defa to.....
> 
> 
> 

> thanks

LOCAL lcCurrPath As String
m.lccurrPath = Set("Default")
SET DEFAULT TO i:\habsystem\aa
    lcFilePic=GETPICT()
IF !EMPTY(lcFilePic)
thisform.text4.Value=(lcFilePic)
ENDIF
SET DEFAULT TO (m.lcCurrPath)


Regards,
akram

ENTIRE THREAD

set defa to Posted by mohammed qasem @ 12/27/2009 1:04:36 PM
RE: set defa to Posted by M. Akram Bhatti @ 12/27/2009 1:19:51 PM
RE: set defa to Posted by mohammed qasem @ 12/28/2009 8:21:55 AM
RE: set defa to Posted by M. Akram Bhatti @ 12/28/2009 8:56:44 AM
RE: set defa to Posted by Benny Thomas @ 12/27/2009 1:21:57 PM
RE: set defa to Posted by tushar @ 12/27/2009 1:22:26 PM
RE: set defa to Posted by mohammed qasem @ 12/28/2009 8:20:19 AM
RE: set defa to Posted by tushar @ 12/28/2009 8:34:17 AM