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....help 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....help 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....

Set rsservice = condb.Execute("select custid from service where custid = '" & custID & "'")
If rsservice.RecordCount > 0 Then
  Set rsreport = condb.Execute("SELECT statementofaccount.DateDone,statementofaccount.ORNum,statementofaccount.TotalAmt,billcode.Amount as 'bilAmount',service.Amount,costumer.CostumerName From billcode Inner Join costumer Inner Join service Inner Join statementofaccount ON statementofaccount.CustId = costumer.CustID AND statementofaccount.CustId = billcode.CustID AND statementofaccount.CustId = service.CustId Where costumer.Custid = '" & custID & "' and  service.servicecode='100'")
  Set DataReport_receipt_withservice.DataSource = rsreport
  DataReport_receipt_withservice.Refresh
  DataReport_receipt_withservice.Show
Else
  Set rsreport = condb.Execute("SELECT statementofaccount.DateDone,statementofaccount.ORNum,statementofaccount.TotalAmt,billcode.Amount as 'bilAmount',costumer.CostumerName From billcode Inner Join costumer Inner Join statementofaccount ON statementofaccount.CustId = costumer.CustID AND statementofaccount.CustId = billcode.CustID  Where costumer.Custid = '" & custID & "' ")
  Set DataReport_receipt_noservice.DataSource = rsreport
  DataReport_receipt_noservice.Refresh
  DataReport_receipt_noservice.Show
End If