Hello Tracy, Thank you it is working.

But in the list2 it is not showing all the records it is only showing the last set of records.

I am doing the following:

CREATE CURSOR cuList2 (project_no C(3), workpkg_no C(5),sub_title C(150))
for n = 1 to thisform.list1.listcount
col1 = thisform.list1.listitem(n, 1)
col2 = thisform.list1.listitem(n,2)
select project_no,workpkg_no,sub_title from sub where project_no = col1 and workpkg_no = col2 and empty(to_cont) into cursor temp
select cuList2
append from dbf("temp")
use in select("temp")
endfor


WITH thisform.list2
.RowSourceType = 2 && Alias
.RowSource = "cuList2"
.Requery()
.refresh()
.setfocus()
ENDWITH

******************************************

Could you please tell me.

Thank you very much.