Yes, if you use more than one form you should always use private datasessions. This will avoid conflicts between the aliases in one form, and the aliases in another form.

>i am using 2 dbfs in 10 data entry forms with SET FILTER, SET RELATION.
>i am using default data session.
>
>i am using same code in all the form, only filter is changed.
>
>in form sales
>set filt to status='SA'
>in form purchase
>set filt to status='PU'
>in debitnote
>set filt to status='DN'
>in creditnote
>set filt to status='CN'
>
>in the load event of form "sales"
>
>"inward.dbf" is main dbf, "inward1.dbf" is child using in grid.
>
>

>Public oldproduct,oldrinward,sale2edit,sale2add, luRetval, oareacode, oareaname, osmancode, osmanname, ocompcode, ocompname
>Public allowed, opstockid, unitname,LISTA,dfile1,mintag,min1tag, lsman, lgrid, myid
>dfile1='pr'+Sys(3)
>=usefile('LEDGER')
>=usefile('LEDGER2')
>=usefile('inward')
>=usefile('inward1')
>=usefile('customer')
>=usefile('partycd')
>=usefile('SCHEME1')
>=usefile('SCHEME2')
>=usefile('SCHEME3')
>=usefile('pcode1')
>=usefile('STOCK')
>=usefile('TAXMAST')
>=usefile('area')
>=usefile2('rep')
>Select scheme1
>Select scheme2
>Select scheme3
>Select partycd
>Set Order To ACCOMP   && ACCODE+COMPCODE
>SELECT ledger
>SET ORDER TO vno
>GOTO top
>SELECT ledger2
>SET ORDER TO vno
>GOTO top
>Select stock
>Set Order To pcodebatch
>Select area
>Set Order To areaname
>Sele TAXMAST
>Sele pcode1
>Goto Top
>Select customer
>Set Order To acname
>myid=Left(Id(),50)
>Select rep
>Do replrep
>Select inward
>Set Order To vno
>Set Filter To
>Goto Top
>Do While vno<=0 And !Eof()
>   If Status='SA' And machineid=myid And vno=0 And !savedrec
>      Delete
>   Endif
>   Skip
>Enddo
>Select inward1
>Set Order To vno
>Set Filter To
>Goto Top
>Do While vno<=0 And !Eof()
>   If Status='SA' And machineid=myid And vno=0 And !savedrec
>      Do Case
>      Case Not flg$'XLN'
>         Do stkeffect With inward1.pcode, inward1.lotno, inward1.qty, inward1.Free, "OUT", "-", inward.godcode
>      Case flg='N'
>         Do stkeffect With inward1.pcode, inward1.lotno, inward1.qty, inward1.Free, "IN", "-", inward.godcode
>      Endcase
>      Replace inward1.stk With ((stock.Sin+stock.fin)-(stock.sout+stock.fout))
>      Delete
>   Endif
>   Skip
>Enddo
>
>Select inward
>Set Order To vno
>Set Filter To inward.Status='SA'
>Go Bottom
>If salereco=0 And inward.Status='SA'
>   salereco=Recno()
>Endif
>Select inward1
>Set Order To reco1
>Seek inward.reco1
>=closfile("xxbill")
>Select inward1
>Copy Structure To xxbill
>=usefile2('xxbill')
>Select xxbill
>Select inward
>sale2edit=.F.
>sale2add=.F.
>rinwarddelete=.F.
>allowed=.F.
>LISTA=.T.
>oldproduct=''
>luRetval=''
>lsman=.F.
>lgrid=.F.
>zprintcont=.F.
>zprintyn=.F.
>Store '' To oareacode, oareaname, osmancode, osmanname, ocompcode, ocompname, oldcnno
>

>
>in the active event
>
>

>On Key Label CTRL+R Modi Repo salbill
>On Key Label CTRL+S Modi Repo salbill1
>ON KEY LABEL CTRL+T MODI REPO csalbill
>Select inward1
>Set Order to reco1
>SELECT INWARD1
>Select inward
>Set Order to vno
>Set Filter To Status='SA'
>SET RELATION OFF INTO INWARD1
>SET RELATION TO RECO1 INTO INWARD1 ADDITIVE
>Select inward1
>SEEK inward.RECO1
>Select inward
>If !Empty(salereco) And salereco<=Reccount('inward')
>   Select inward
>   Goto salereco
>   Select inward1
>   SEEK inward.RECO1
>   Select inward
>   Thisform.Refresh
>Endif
>Select inward1
>Select inward
>thisform.rcdrtn
>Thisform.Refresh
>Select inward
>thisform.pageframe1.pAGE1.Refresh
>Select xxbill
>

>in deactive event
>
>

>ON KEY LABEL CTRL+R
>ON KEY LABEL CTRL+S
>ON KEY LABEL CTRL+T
>SELECT inward
>SET ORDER TO vno
>*salereco=RECNO()
>SELECT inward1
>SET ORDER TO reco1
>SELECT inward
>thisform.Refresh
>thisform.pageframe1.pAGE1.Refresh
>SELECT xxbill
>

>
>should i use private data session for this.
>
>when my user using 2 or 3 forms i am not getting the correct result.
>
>warm regards,
>mk.