Hi All,
I need ur help in Visual Baisc for Data Report.
Description
=========
I have one Project Which include One Data Envirnment,Data Report,Form Which contain Listview,Text box, and Command Buttons. now problem is i want to pass multiple record value to data report.
I have one text box which contain dealer code, when i select dealer code it will display all the item in listview and in listview i put check box also for selection. now my problem is i want to pass dealercode(text box) and selected item code from list box(multiple items). I have no idea how to do this. Please Help me
Code
=====
For e = 1 To ListView1.ListI tems.Count
If ListView1.ListI tems.Item(e).Ch ecked = True Then
'''''''''MsgBox ListView1.ListI tems.Item(e).Te xt
If DataEnvironment 1.rsCommand7.St ate = adStateOpen Then
DataEnvironment 1.rsCommand7.Cl ose
Else
DataEnvironment 1.Command7 Text3.Text, ListView1.ListI tems.Item(e).Te xt
DataReport3.Sho w
End If
End If
Next e
=============== ====
Please let me know if further information is required.
Thanks in Advacnce.
Dhaval Patel
I need ur help in Visual Baisc for Data Report.
Description
=========
I have one Project Which include One Data Envirnment,Data Report,Form Which contain Listview,Text box, and Command Buttons. now problem is i want to pass multiple record value to data report.
I have one text box which contain dealer code, when i select dealer code it will display all the item in listview and in listview i put check box also for selection. now my problem is i want to pass dealercode(text box) and selected item code from list box(multiple items). I have no idea how to do this. Please Help me
Code
=====
For e = 1 To ListView1.ListI tems.Count
If ListView1.ListI tems.Item(e).Ch ecked = True Then
'''''''''MsgBox ListView1.ListI tems.Item(e).Te xt
If DataEnvironment 1.rsCommand7.St ate = adStateOpen Then
DataEnvironment 1.rsCommand7.Cl ose
Else
DataEnvironment 1.Command7 Text3.Text, ListView1.ListI tems.Item(e).Te xt
DataReport3.Sho w
End If
End If
Next e
=============== ====
Please let me know if further information is required.
Thanks in Advacnce.
Dhaval Patel