Include listview in datareport

[obkfixx]

hello.. help me please. i have a problem.... here it is...
i have a listview of services and i want all of those list to be in a datareport....h elp me how to do that please!.... thankssss... reply people asap

[lotus18]

hello.. help me please. i have a problem.... here it is...
i have a listview of services and i want all of those list to be in a datareport....h elp me how to do that please!.... thankssss... reply people asap

Post some of your codes here. I think the easiest way to this is by passing a sql query for generating report (if you're using a database in populating the listview items).

Rey Sean

[obkfixx]

Post some of your codes here. I think the easiest way to this is by passing a sql query for generating report (if you're using a database in populating the listview items).

Rey Sean

i dont have any codes yet.. i dont have any idea... haaay

[Killer42]

I've changed the title of this discussion thread to something more descriptive. Please let me know if I've misinterpreted the question.

Moderator

[debasisdas]

Do not expect us to write code for you.

Post what you have tried so far for further discussion on this topic.

[obkfixx]

Do not expect us to write code for you.

Post what you have tried so far for further discussion on this topic.

here are the code for displaying receipt.. but the listview here is not included since i dont know how....

[CODE=vb]
Set rsservice = condb.Execute(" select custid from service where custid = '" & custID & "'")
If rsservice.Recor dCount > 0 Then
Set rsreport = condb.Execute(" SELECT statementofacco unt.DateDone,st atementofaccoun t.ORNum,stateme ntofaccount.Tot alAmt,billcode. Amount as 'bilAmount',ser vice.Amount,cos tumer.CostumerN ame From billcode Inner Join costumer Inner Join service Inner Join statementofacco unt ON statementofacco unt.CustId = costumer.CustID AND statementofacco unt.CustId = billcode.CustID AND statementofacco unt.CustId = service.CustId Where costumer.Custid = '" & custID & "' and service.service code='100'")
Set DataReport_rece ipt_withservice .DataSource = rsreport
DataReport_rece ipt_withservice .Refresh
DataReport_rece ipt_withservice .Show
Else
Set rsreport = condb.Execute(" SELECT statementofacco unt.DateDone,st atementofaccoun t.ORNum,stateme ntofaccount.Tot alAmt,billcode. Amount as 'bilAmount',cos tumer.CostumerN ame From billcode Inner Join costumer Inner Join statementofacco unt ON statementofacco unt.CustId = costumer.CustID AND statementofacco unt.CustId = billcode.CustID Where costumer.Custid = '" & custID & "' ")
Set DataReport_rece ipt_noservice.D ataSource = rsreport
DataReport_rece ipt_noservice.R efresh
DataReport_rece ipt_noservice.S how
End If[/CODE]