Thanks For an alternative Madam. But I am trying to learn that where I am going wrong. Please Guide if you Can.

Harsh

>I would simply use cursor as a source for the combo.
>
>E.g.
>

>create cursor csrExchanges (Exchange C(40))
>insert into csrExchanges (Exchange) values ('All Exchanges')
>insert into csrExchanges (Exchange)
>select Exchange from SearchReport where Exchange IS NOT NULL
>GROUP BY Exchange
>
>this.RowSouceType = 2
>this.RowSource = "csrExchanges"
>

>>I am trying to populate a combo box using the following code in COMBO INT() Method.
>>
>>

>>SELECT Distinct Exchange FROM SEARCHREPORT WHERE !ISNULL(Exchange) GROUP BY EXCHANGE INTO CURSOR EXCHANGEWISEOUTSTANDING
>>This.RowSourceType= 0
>>WITH This
>>.AddItem('All Exchanges')
>>
>>GO Top
>>SCAN
>>Browse
>>.AddItem(Searchreport.exchange)
>>ENDSCAN
>>ENDWITH
>>This.Requery()
>>Thisform.Combo1.Refresh
>>Thisform.combo1.ListItemId=1
>>

>>
>> I could see from the browse window that each record in cursor EXCHANGEWISEOUTSTANDING is scanned properly (Around 15 items).
>>
>>However at the end I get Combo with only two items "All Exchanges" and "SRBZ1001".
>>"SRBZ1001" is neither at top nor bottom. Whats Going wrong ? What should I do ?
>>
>>I have used following other code in my Form. and combo
>>
>>
>>

>>*Combo Valid
>>IF ALLTRIM(Thisform.combo1.Value)='All Exchanges'
>>SELECT searchreport
>>SET FILTER TO
>>ELSE
>>SELECT searchreport
>>SET FILTER TO Exchange=ALLTRIM(UPPER(thisform.combo1.Value))
>>ENDIF
>>
>>SUM PREVBAL TO Total_PREVBAL
>>SUM LASTPAYAMT TO Total_LASTPAYAMT
>>SUM ADJAMT TO Total_ADJAMT
>>SUM CURCHARGE TO Total_CURCHARGE
>>SUM ACNTBAL TO Total_ACNTBAL
>>SUM AMTPAYABLE TO Total_AMTPAYABLE
>>COUNT FOR DELETED()#.T.
>>GO TOP
>>Thisform.grdsorting1.Setfocus
>>Thisform.Refresh 
>>*****************
>>* Form INT()
>>Select Searchreport
>>SUM PrevBal TO Total_PrevBal
>>SUM lastpayamt TO Total_lastpayamt
>>SUM adjamt TO Total_adjamt
>>SUM curcharge TO Total_curcharge
>>SUM acntbal TO Total_acntbal
>>SUM amtpayable TO Total_amtpayable
>>SUM OSAMT TO Total_os
>>Locate
>>Thisform.grdsorting1.Refresh
>>Thisform.Refresh
>>******
>>*Form Setfilter()
>>LPARAMETERS exchange
>>SET FILTER to
>>SET FILTER TO Exchange=ALLTRIM(UPPER(thisform.combo1.Value))
>>GO top
>>Thisform.grdsorting1.Refresh
>>thisform.Refresh 
>>

>>.