Welcome To The Home Of The Visual FoxPro Experts  
home. signup. forum. archives. search. google. articles. downloads. faq. members. weblogs. file info. rss.
 From: Koen Piller
  Where is Koen Piller?
 Santpoort-Zuid
 Netherlands
 Koen Piller
 To: sandeep singh
  Where is sandeep singh?
 ludhiana
 India
 sandeep singh
 Tags
Subject: RE: Release Refrence
Thread ID: 415984 Message ID: 415997 # Views: 62 # Ratings: 0
Version: Visual FoxPro 9 Category: VFP and .NET
Date: Thursday, December 18, 2014 12:56:06 PM         
   


> Hi Expert
> i make a Form With Loose Grid Prg
> its work fine but when i return back in form and compile *.prg command
> i get error
> Please tell me how can close this loose function refrence
>
>
>
> LParameters toForm
> with m.toForm.Grid1 && assign main thing - data source
> .ColumnCount = 2
> .ColumnCount = 11
> .column4.newobject('text2','Column4','_Defgrid.prg')
> .column4.text2.visible=.T.
> .column4.currentcontrol='text2'
>
> .column6.newobject('text2','Column6','_Defgrid.prg')
> .column6.text2.visible=.T.
> .column6.currentcontrol='text2'
>
> .column7.newobject('text2','Column7','_Defgrid.prg')
> .column7.text2.visible=.T.
> .column7.currentcontrol='text2'
>
> .column8.newobject('text2','Column8','_Defgrid.prg')
> .column8.text2.visible=.T.
> .column8.currentcontrol='text2'
>
> .column9.newobject('text2','Column9','_Defgrid.prg')
> .column9.text2.visible=.T.
> .column9.currentcontrol='text2'
>
> .column10.newobject('text2','Column10','_Defgrid.prg')
> .column10.text2.visible=.T.
> .column10.currentcontrol='text2'
>
> .column11.newobject('text2','Column11','_Defgrid.prg')
> .column11.text2.visible=.T.
> .column11.currentcontrol='text2'
>
>
> .column3.controlsource='sb_temp.Parti'
> .column4.controlsource='sb_temp.Agent'
> .column5.controlsource='Sb_Temp.Kgs'
> .column6.controlsource='sb_temp.Unit'
> .column7.controlsource='Sb_Temp.Rate'
> .column8.controlsource='Sb_Temp.Amount1'
> .column9.controlsource='Sb_Temp.Disc_rate'
> .column10.controlsource='Sb_Temp.Disc_Amt'
> .column11.controlsource='Sb_Temp.Amount'
>
> .Column1.Width = 40
> .Column2.Width = 10
> .Column3.Width = 50
> .Column4.Width = 40
> .Column5.Width = 50
> .Column6.Width = 30
> .Column7.Width = 60
> .Column8.Width = 80
> .Column9.Width = 35
> .Column10.Width = 60
> .Column11.Width = 80
>
> .Column1.Alignment=0
> .Column2.Alignment=0
> .Column3.Alignment=0
> .Column4.Alignment=0
> .Column5.Alignment=2
> .Column6.Alignment=1
> .Column7.Alignment=1
> .Column8.Alignment=1
> .Column9.Alignment=1
> .Column10.Alignment=1
> .Column11.Alignment=1
>
> .column1.header1.Caption="Code"
> .column2.header1.Caption="Item Name"
> .column3.header1.Caption="Details"
> .column4.header1.Caption="Agent"
> .column5.header1.Caption="Qnty"
> .column6.header1.Caption="Pcs"
> .column7.header1.Caption="Rate"
> .column8.header1.Caption="Amount"
> .column9.header1.Caption="Less"
> .column10.header1.Caption="Less Amt"
> .column11.header1.Caption="Amount"
>
> .Column5.Inputmask='9999'
>
> .Visible = .T.
> m.toForm.Color()
> m.toform.refresh()
> m.toform.grid1.refresh()
> Endwith
>
>
>
> Sandeep Singh (Ludhiana)



Hi,

not sure, but please try with
close all
release all
cancel all


before you compile

Just a question, why do you construct your forms in code instead of using the visual approach?

Regards,

Koen

ENTIRE THREAD

Release Refrence Posted by sandeep singh @ 12/18/2014 8:07:36 AM
RE: Release Refrence Posted by Koen Piller @ 12/18/2014 12:56:06 PM
RE: Release Refrence Posted by Gene Wirchenko @ 12/18/2014 7:15:04 PM
RE: Release Refrence Posted by Tamar Granor @ 12/18/2014 10:52:11 PM
RE: Release Refrence Posted by Gene Wirchenko @ 12/19/2014 7:37:04 PM