EXIBIR INFORMACOES NO CYSTAL 9 APARTIR DO LISTVIEW

USUARIO.EXCLUIDOS 09/06/2005 09:54:23
#87939

Bom dia galera, eu to com uma duvida eu uso Crystal 9 e preciso exibir os dados deste tipo:
eu uso uma listview e exib os dados com check depois de escolher os que eu quero no listview eu quero exibir as informações no crystal só que eu estou apanhando.
alguem pode me ajudar ?

mSQL = RetornaConjunto

If mSQL = "()" Then
mSQL = ""
MsgBox "é Necessário Selecionar Um Cliente.", vbInformation, ROTULO
lstRelacao.SetFocus
Exit Sub
End If

mSQL = "Select * From Funcionario Where Nome In " & mSQL & " Order By Nome"
Set TabelaTemp = dbCadastro.OpenRecordset(mSQL, dbOpenSnapshot)

depois coloque essa funçao

Private Function RetornaConjunto() As String
Dim mString As String
Dim i As Long
For I = 0 To lstRelacao.ListCount - 1
lstRelacao.ListIndex = I
If lstRelacao.Selected(i) Then
mString = mString & "'" & lstRelacao.Text & "'" & ","
End If
Next

If Len(mString) <> 0 Then mString = Mid(mString, 1, Len(mString) - 1)
RetornaConjunto = "(" & mString & ")"

End Function