>>01 DEFINE CLASS ClassOpenCmdButton AS CommandButton
>>02 FUNCTION Click
>>03 FileName=GETFILE("DBF","Phone Book","Open",0)
>>04 IF !EMPTY(FileName)
>>05 CLOSE DATABASE
>>06 USE &FileName
>>07 DO WHILE !EOF()
>>08 AddIndex=THISFORM.ObjListBoxSource.NewItemId+1
>>09 THISFORM.ObjListBoxSource.AddListItem(TO,AddIndex,1)
>>10 THISFORM.ObjListBoxSource.AddListItem(ATTN,AddIndex,2)
>>11 THISFORM.ObjListBoxSource.AddListItem(FAXNO,AddIndex,3)
>>12 SKIP
>>13 ENDDO
>>14 CLOSE DATABASE
>>15 THISFORM.ObjListBoxSource.Requery
>>16 ENDIF
>>17 RETURN
>>18 ENDDEFINE
>>
>>
>>19 DEFINE CLASS ClassListBoxSource AS ListBox
>>20 ColumnCount=3
>>21 ColumnLines=.F.
>>22 ColumnWidths="280,200,200"
>>23 RowSourceType=0
>>24 Sorted=.T.
>>25
>>26 FUNCTION DblClick
>>27 RemoveIndex=THIS.ListIndex
>>28 AddIndex=THISFORM.ObjListBoxTarget.NewItemId+1
>>29 THISFORM.ObjListBoxTarget.AddListItem(THIS.List(RemoveIndex,1),AddIndex,1)
>>30 THISFORM.ObjListBoxTarget.AddListItem(THIS.List(RemoveIndex,2),AddIndex,2)
>>31 THISFORM.ObjListBoxTarget.AddListItem(THIS.List(RemoveIndex,3),AddIndex,3)
>>32 THIS.RemoveItem(RemoveIndex)
>>33 RETURN
>
>>34 ENDDEFINE
>>
>>
>>Hi!
>>
>>In the line 07 - 13, Can I using SQL-SELECT? If yes, how change it?
>>
>>Thank you!
>
>Yes, by macro substitution.
>
>SELECT your_desired_fields_here FROM &filename INTO CURSOR myfile.
>
>Thisform.ObjListBox.RecordSource = "myfile"
>Thisform.ObjListBox.Requery()
>
>Your recordsourcetype should be alias or fields.

Correction on the previous reply.

Thisform.ObjListbox.RowSource = "your_desired_fields_here"
Thisform.ObjListBox.Requery()

Your recordsourcetype should be alias or fields.