Welcome To The Home Of The Visual FoxPro Experts  
home. signup. forum. archives. search. google. articles. downloads. faq. members. weblogs. file info. rss.
 From: sandeep singh
  Where is sandeep singh?
 ludhiana
 India
 sandeep singh
 Tags
Subject: Release Refrence
Thread ID: 415984 Message ID: 415984 # Views: 66 # Ratings: 0
Version: Visual FoxPro 9 Category: VFP and .NET
Date: Thursday, December 18, 2014 8:07:36 AM         
   


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)

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