Select Item_Code , Item_Name , Item_on_Hand_Qty where CC = 'USA' INTO Cursor Cursor1
thisform.List1.RowSourceType = 6
thisform.List1.RowSource = 'Cursor1.Item_Code,Item_Name,Item_on_Hand_Qty'
thisform.List1.BoundTo = .T.
thisform.List1.BoundColumn = 1
Now
WITH thisform.List1 As ListBox
lcRowSource = .RowSource
.RowSource = ''
ENDWITH
e.g.
Re make the Cursor again
Select Item_Code , Item_Name , Item_on_Hand_Qty where CC = 'GER' INTO Cursor Cursor1
WITH thisform.List1 As ListBox
.RowSource = lcRowSource
.Refresh()
.Requery()
ENDWITH
If Directly focus the List box from other control after executing with change filters on data List box shows empty no record when move the down arrow key in list box it start shwoing records in List box
IF not Focus List1 then it shows the new records
thisform.List1.RowSourceType = 6
thisform.List1.RowSource = 'Cursor1.Item_Code,Item_Name,Item_on_Hand_Qty'
thisform.List1.BoundTo = .T.
thisform.List1.BoundColumn = 1
Now
WITH thisform.List1 As ListBox
lcRowSource = .RowSource
.RowSource = ''
ENDWITH
e.g.
Re make the Cursor again
Select Item_Code , Item_Name , Item_on_Hand_Qty where CC = 'GER' INTO Cursor Cursor1
WITH thisform.List1 As ListBox
.RowSource = lcRowSource
.Refresh()
.Requery()
ENDWITH
If Directly focus the List box from other control after executing with change filters on data List box shows empty no record when move the down arrow key in list box it start shwoing records in List box
IF not Focus List1 then it shows the new records