Visual Basic :: Help About ListView Report View

ListView (Report View) Troubles...
I have a list view that can contain alot, a few, or no values at all at any given time.
The box will display existing information in row 1, then in row 2 it will display the information that will overwrite the existing information (if the user chooses). Then the 3rd will be existing, 4th new, 5th existing, 6th new, etc...

The grid goes in pairs, and the check boxes are turned on. By default nothing is checked. I want the user to be able to click whatever they choose, if they check the box on an odd row, then all the text in every cell of that row will go bold, and the entire row after that cell will lose its bold font (incase it was selected before). The rows look like this:

1 asdfas as as dasdfasf asdf
1 asdf asf asdf asdf asd fasf asd
2 asf asdf asdf asf asf asdf asdf
2 asf asd fasdf asd fasdf asdf asdf
3 asdf asdf asf asf asdf asdf asdf
3 asdf asdf adsf adsf as fasd
4 adsf asdf sdf asf sa dfas fasdf as
4 asdfasdfa sdf asdf as fafs

Of course with check boxes to the left of the numbers, if i click the 2 on the bottom, it will go bold and the 2 above it will be unchecked and go back to non-bold font. I know this is possible, im pretty close already.. Here's what i have:

Code:
Private Sub lvConflicts_ItemCheck(ByVal Item As MSComctlLib.ListItem)
Dim MyCount As Integer
If Item.Checked = True Then
Item.Bold = True
For MyCount = 1 To 8
Item.ListSubItems.Item(MyCount).Bold = True
Select Case Right(Item.Index, 1)
Case Is = 1, 3, 5, 7, 9
Item.ListSubItems.Item(MyCount).ForeColor = vbBlack
lvConflicts.ListItems(Item.Index + 1).ForeColor = &H808080
lvConflicts.ListItems(Item.Index + 1).Checked = False
Case Is = 0, 2, 4, 6, 8
Item.ListSubItems.Item(MyCount).ForeColor = vbBlack
lvConflicts.ListItems(Item.Index - 1).ForeColor = &H808080
lvConflicts.ListItems(Item.Index - 1).Checked = False
End Select
Next MyCount
Else
Item.Bold = False
For MyCount = 1 To 8
Item.ListSubItems.Item(MyCount).Bold = False
Select Case Right(Item.Index, 1)
Case Is = 1, 3, 5, 7, 9
Item.ListSubItems.Item(MyCount).ForeColor = vbBlack
lvConflicts.ListItems(Item.Index + 1).ForeColor = &H808080
Case Is = 0, 2, 4, 6, 8
Item.ListSubItems.Item(MyCount).ForeColor = vbBlack
lvConflicts.ListItems(Item.Index - 1).ForeColor = &H808080
End Select
Next MyCount
End If
End Sub

Im practically doing it already, i know it.. I think im just thinking too hard.. ive been working too long on this

Listview (report View) Scrollbars
I can't seem to figure this out: how do I add vertical and horizontal scroll bars to a Listview control with its "View" property set to "lvwReport"? I have tried many thing ... but none seem to work.

Icons In Listview In Report View
Hi, I am having trouble trying to display icons in a listview. I am displaying the listview in report mode and I have all the imagelists properly bound. If im not mistaken, the icons used in the report view use the 'small' imagelist, correct? Anyway I am populating the imagelist by creating a ListItem variable and setting it to Listview1.Add each time through the loop. Could this be the problem?

Moving Columns On A Listview (Report View)
I want to programmatically set the Position of the columns in a list view.

This is an "after thought" so I am trying to do it on already loaded listviews.

I see from a little experimentation that I can easily move the column headers by simply changing the .position property.

But that does not bring over the data for that column. (Just the header)

Do I have to manually move the data or there an easier way?

(By "manually move the data" I mean set up a temp array, copy the column's data, update new column after moving other column into original col number)

Regards,

ListView Report Mode View - RESOLVED
When I change to report mode view nothing is showing up in my listview. When I change it to List view my data shows up. Any ideas?

VB Code:
Private Sub LoadTableSpecs() Dim oSQLServer As New SQLDMO.SQLServer Dim oSQLDatabase As New SQLDMO.Database Dim oSQLTable As New SQLDMO.Table Dim oSQLColumn As New SQLDMO.Column Dim i As Integer Dim liObject As ListItem ListView1.ListItems.Clear oSQLServer.LoginSecure = True oSQLServer.Connect Form1.cboServer1.Text Set oSQLDatabase = oSQLServer.Databases(Form1.cboDatabase1.Text) Set oSQLTable = oSQLDatabase.Tables(Form1.cboTable1.Text) For Each oSQLColumn In oSQLTable.Columns Set liObject = ListView1.ListItems.Add(, , oSQLColumn.Name) liObject.SubItems.Add , , oSQLColumn.Datatype liObject.SubItems.Add , , oSQLColumn.Length Set liObject = Nothin Next oSQLServer.DisConnectSet oSQLServer = NothingEnd Sub

ListView (Report View) - Adding Items
AH! This is embarassing yet very frustrating. The last time I worked with the list view control was a loooong time ago. Unfortunately, I lost that project when my computer crashed (no big deal really, the program was never even completed). At any rate, how the heck do I add subitems and items to a report view listview?!

eg
Column 1 Column 2
Add Item Add Item
Add Item Add Item

ListView (Report View) Numeric Sorting
Hi,

I have a listview control in report view, and I have it so that when I click on a columnheader it sorts the list items by that column, the problem is that when I do that on a numeric column its sorts it like this

1
11
2
3
3100
4
...

I was wondering how can I make it so it sorts the column correctly

1
2
3
4
11
3100

Let me know if you know a way

Thanks In Advance,

Zmei

Edited by - Zmei2004 on 8/29/2004 8:45:42 AM

Last Column Width In Listview (report View)
Hi,

Does anyone know an easy way I can make the width of the LAST column header in a 'report view' listview automatically be equal to the space available.

ie,

if the other columns take up half the width of the listview, the last column takes up the other half.

Similary, if the width of one of the other columns changes, the width of the last column is automatically changed appropiately (so there is never a horizontal scroll bar).

Thanks in advance for any help you can give me.

Tom.

How To Add A Thumbnail To A ListView Subitems That Will View In Report Format?
How to add a thumbnail to a ListView subitems that will view in report format?

Editing Selected Item In ListView In Report View
How can I edit the second column of data in a listview control? I am making a properties box much like the one you use in VB. The first column information for each item can not be editable but the second column is going to be the value for each item and I need for it to be able to click and type in it just like in VB (or at least similar to that).

Any help and sample code is appreciated. Thanks.

*solved*I Wanna Learn ListView In Report View
hi this is a new thread after advice on moving from Picture1 to now i believe ListView in Report view is the way to go.

Metallisoft can you help me get his going. I have attached form1 to download and change as i can't get it to work. your reference click here hasnt helped me as it gave me 3 values i only need 2

Database eg
Quote:UNIVERSAL    OEM    MFG
16190    2-1428-HI    WAI
16190    SJ-0001R    AIM
16190    91-25-1030    WILSON
16190    S9024    LUCAS REMAN
16190    9821006350    ISUZU
16190    9821006060    ISUZU
16190    S114-136    HITACHI
16190    S114-100    HITACHI
16190    SR198X    BOSCH REMAN
16190    94022494    GENERAL MOTORS
16190    RXS056    OEX
16190    94021044    GENERAL MOTORS
16190    S114-118    HITACHI I Don't need to display the UNIVERSAL Numbers Just OEM anf MFG only

Code:Private Sub Command3_Click()
Set rs = New ADODB.Recordset 'this will be the rs
Dim strSQL As String 'this the source

'make the selection string: filter the records right away
strSQL = "SELECT C.* FROM OEMS AS C where UNIVERSAL in(select UNIVERSAL from OEMS where oem='" & UCase$(Text1) & "')"

' To hold a reference to the current Listitem (row).
Dim oLVItem As MSComctlLib.ListItem

' The (Listview.Width - 350) / 3 simply adjusts the column
' widths to 1/3 the width of the Listview (subtracting the
' width of the scrollbar)
' ListView.ColumnHeaders.Add , , "Supplier", (ListView.Width - 350) / 3 '<- Don't need to work?
ListView.ColumnHeaders.Add , , "OEM", (ListView.Width - 350) / 3
ListView.ColumnHeaders.Add , , "Manufacturer", (ListView.Width - 350) / 3



        Picture1.Cls
        Picture1.FontSize = 8
        Picture1.Font.Bold = True
        Picture1.Print ">> Supplier Information"
        Picture1.Font.Bold = False
        Picture1.Print "OEM:"; Tab(20); "Manufacturer:"

    rs.Open strSQL, oConnection, adOpenStatic, adLockOptimistic, adCmdText

'loop through the recordset
    Do Until rs.EOF
        M19 = rs("OEM") 'Are m19 and m20 properties or local variables? didn't want to take them out, but if they are global settings and there are more records, they will only 'remember' the values in the last record.(No they are strings in a database)
        M20 = rs("MFG")

        Picture1.Print M19; Tab(20); M20
        rs.MoveNext
    Loop

    rs.Close 'Close the recordset never leave it open!
    Set rs = Nothing 'clear the rs variable

End Sub
OK NOW how do i replace the Picture1 to ListView in Report view after reading MSDN click here CAN anyone save me? the ColumnHeaders don't display too?

Edited by - Hopeless on 6/4/2004 12:16:16 AM

ListView Control. How Do You Extractupdate Values In Report View
I have populated my ListView control with my values using DAO. I have 10 columns set up in report view. In my code fragment below, I am looking through my listview control searching for rows that the user has selected. Now I need to be able to extract some of the sub values and update others. How do I do this? Here is my code so far.

Private Sub SelectedCountCommand_Click()
Dim i As Integer

For i = 1 To ListView1.ListItems.Count
If ListView1.ListItems(i).Selected = True Then
'extract values from col 3 and 4 and subtract them

'update column 5 based on the results of col 3 minus col 4

End If
Next

End Sub

Help: How To View Selected Items From Listview With Crystal Report Viewer
Hi

I have a Listview with check boxes from it want to view selected items with crystal report viewer.

Private Sub cmdView_Click()
Dim lCustomerId as Long
    Dim tmpItm As ListItem
    For Each tmpItm In lstItems.ListItems
        If tmpItm.Checked = True Then
            lCustomerId = Val(Replace(tmpItm.Key, "C", ""))
          End If
    Next

  End Sub

Plz. help

regards

In Crystal Report, Report Is Viewed But Doesnot View Next Page Or Not Any Message Display!
in crystal report, report is viewed but doesn't view next page or not any message display! and surprisingly page no is increased infinitely (up to no limit!, I have checked up to 400+) but next page was not displayed! if I print report , only 1st page is print!

In this report , I have attached 6 subreports!

I hope anybody reply about my problem

Listview && Tree View
I have a Tree view and a List view. I have designed something like Windows Explorer. What i want to do is to be able to resize them by using Mouse inbetween the Treeview & Listview.

Please advise.

Can Anyone Help Me? ListView To View The Database
CAn anyone help me? can i used the listview to view a database?

View Thumbnails In Listview ?
Can you view the thumbnails of a Dir picture contents in a listview control or any other control for that matter ?

<?> Listview Icon View
Code:
'question:
'I load my listview and I use 2 different icons
'one for odd numbers, one for even. No Problem
'
I can then view my listview by LargeIcon,SmallIcon,List,Report
No Problem
However, when viewing largeicon I only get one icon
All the rest show me the 2 different icons.

There obviously is a reason...someone what to impart
that bit of knowledge on me.

'load an array with information
Dim myArr(99)
Dim i As Integer
For i = 1 To 99
myArr(i) = CInt(Rnd * 99)
Next i

'then load the array into a listview

Dim x As Variant 'differ between odd and even rows

For i = 1 To 99
'used different images every second line
'image one for odd, image2 for even
x = i / 2
If x Like "*.*" Then
Set sItem = Listview1.ListItems.Add(, , myArr(i), 1, 1)
Else
Set sItem = Listview1.ListItems.Add(, , myArr(i), 1, 2)
End If
'add subitems
sItem.SubItems(1) = "905-444-9455"
sItem.SubItems(2) = "who knows"
Next i

Listview: View An Item On The Top
Hi vbFriends !!!

I have a ListView control (Report mode) and it has a lot of items.

When I search for an item and use EnsureVisible method, it usually happens that the item is shown as the last item in the listview's area.

I would like the item to be shown on the top of the listview's area, so that is much more comfortable for the user to see it.

Any hint that could help me?

Thank you in advance !!!

P.S.: here's an example:

My ListView:
-------------------------------
| 1 |
| 2 |
| 3 |
| 4 |
|found item shown here|
-------------------------------

But:
-------------------------------
| I want it here ! |
| 6 |
| 7 |
| 8 |
| 9 |
-------------------------------

Listview Columns In List View
I am trying to use Listview to import data from an Access table and I only want to use the list view not the list report. The data imports OK and populates the list OK into (in this case with the quantity of data imported) 4 columns.

Trouble is, all the data is truncated and I can find no way of setting the column widths as you can in the normal list box. I do not have any sub-items, just a single list so I do not need to set up any column headers.

Listview Problems With Arrange And View
Hi

I have couple of issues with my listview control.

a) when I set arrange=lvwautoleft, I expect the coloumn headers to appear vertically on the left hand side. That does not happen.

b) When I set view = lvwicon, lvwsmallicon, or lvwlist, I see nothing in the listview control, only the lvwreport works (I see the image and the text in the colomn header). I have set up the image icon and all the setting etc.

regards

Yamin

It Is Possible To View Image In The Listview Items?
I have microsoft accesss store image path location in record.I would like to know, it is possible to view image in the listview items from database?for example ".jpg" image file format.

Listview(view=lvwreport) Set Colour
In a Listview Report, how can I set colour on a selected ROWs based on inputed data.

e.g. if "Year = 2001" is red colour OR if "Year = 2003" is blue colour.

Thank you in advance

View Thumnail Images In A Listview
Hi All,
I have an image control on a form that shows images to a listview (with checkboxes) I want to be able to check certain ones and display the checked thumbnails only. What is the best way to start? would it be better to have a second image control and a second listview or is there a easier way to do it?
Thanks

2 Questions In ListView (View=3-lvwReport)
Hello every one...
I'm trying to use the ListView control to make something like an Adress Book in my program..So i make 4 columns and i made another form with 4 text boxes to add info to the Adress Book (See the Picture in the Attachement).
- My first question is how can i add info to these 4 columns.
- My second question is how to save info in them (I mean does the Savesettings and Getsettings works with ListView?).

Listview Doubleclick To View Details HELP!!!
I have looked and fumbled for 2 weeks and am admitting total defeat!

I have a database that tracks fleet vehicles.
Access 2k mdb
tblVeh fields:
VehNum
Year
Make
Model
etc1
etc2 (and so on)

I'd like to have a ListView box that shows all the vehicles sorted by VehNum
(which is a owner assigned number). When the user double clicks (or click,
I'm not picky), it would fill in the rest of that record in other fields on
the same (or different) form.

I have gotten the form to come up but can not get it to work otherwise. I'm
ready to trash the existing code (20 lines or so total - so no big loss) and
start fresh with any ideas that you might have.

I'm using ADO code vs the data tool (although I'm not sure why, I was lead
to believe that coe was better than the tools).

I'm looking forward to your assistance and am *very* greatful for any help
that you might provide.

Chris

View Report
hi!!!
Is there any other way to view data from Access DB and put it in the cells in a multiline mode to see the entire content
without using text controls? I tried using MSCOMCONTROL(Listview) and MSHFLEXGRID and had not come up with the right answer. THanks.......

Cannot View Report
The error is shown for the blue line there when I debug,mentioning 424:Object Required.But,the fieldname is correct.The green line there,there is error for .Orientation.This error quite weird.Sometimes,it can display,but sometimes show the .Orientation error again.Please help me,all expert

VB Code:
Private Sub cmdView_Click()Private Sub cmdView_Click()On Error GoTo exithandler If optProgram.Value = True Then cmbVendor.Text = Empty cmbEquip.Text = Empty cmbStatus.Text = Empty If Trim(cmbProgram) = Empty Then Call MsgBox("Please select the Program from the list", vbInformation, "Program Required") cmbProgram.SetFocus Exit Sub End If On Error Resume Next Unload rptEnvironment If cmbProgram.Text = "All" Then Call rptEnvironment.MainReport' MainRpt.Orientation = rptOrientPortrait MainRpt.Show Else Call rptEnvironment.ProgramReport(cmbProgram)' ProgramRpt.Orientation = rptOrientPortrait ProgramRpt.Show End IfElseIf optVendor.Value = True Then cmbProgram.Text = Empty cmbEquip.Text = Empty cmbStatus.Text = Empty If Trim(cmbVendor) = Empty Then Call MsgBox("Please select the Vendor Name from the list", vbInformation, "Vendor Name Required") cmbVendor.SetFocus Exit Sub End If [color=Blue]Call rptEnvironment.VendorReport(cmbVendor)[/color] VendorRpt.Orientation = rptOrientPortrait VendorRpt.ShowElseIf .... End If

Flicker While Populating Tree View And ListView
Hi,

In a project that I am currently working on in VB6, I have a treeview (showing folders) and a listview (in report view mode).

I have defined database operations (Add/Update/Delete, etc) in an Activex DLL which raises events on success or failure on any of the operations.

I have about 7 rows in my folder table and 800+ rows in my details table (40+ fields mainly varchars and 2 blobs columns).

I am populating the Treeview with the data in the Folder Table and the Listview with the data from the Contact Table. After populating the folder tree and listview in the Form_Load event, when I show the form using Form.Show there is a noticeable flicker in the treeview and the listview, before the form is shown. This is very annoying I want the form to appear with the data loaded in the tree view and list view.

I have tried LockWindowUpdate and SendMessage (WM_SETREDRAW) API calls to no avail.

Any suggestions on how I can achieve this?

Listview ListItem ToolTips - Icon View
I am attempting to use the Tooltip Property of a ListItem in a Listview but I notice that the property only works in Report mode. Are there any workarounds to make the tooltip work in Icon Mode?

VB Code:
Private Sub Form_Load()Dim LVI As MSComctlLib.ListItem With ListView1 .Icons = ImageList1 .View = lvwIcon With .ListItems Set LVI = .Add(, "_" & 1, "Text 1", "LargeIcon") LVI.ToolTipText = "This is a Tooltip" End With End WithEnd Sub

Listbox Or Listview To View The Html Code
hi guys

I couldn't find a listbox to view the web which i could also allows me to put the html code on my own program. Here is what I really want to have...

And It is possible to make a two listbox on each side with the close bars that will allows me to hide the listbox to close it only once at a time??

Help would appreciate it. Thanks

* UNRESOLVED* Listview In 'list' View Problem.
I have a listview that can populate in either 'details' or 'list' view modes. It populates fine in 'details' view. However, in 'list' view mode, the listitems are not wide enough to see all the text. If I select 'details' then go back to 'view' it's ok.

'List' view on initial population

How it should look on initial population

Any help much appreciated!

Thanks

---------------------------------------------
http://members.lycos.co.uk/sjrseh/

Copy Listview Items To Another List View
Is there a quick way I can copy a list view item to another identical list view (ie having the same columns) without having to copy all the individual components separately. ie. the foreground colour, the icon, the sub items etc.

So basically something like:

set itmTo=lsvTo.ListItems.Add()
itmTo=lsvFrom.ListItems(nFrom)

The above code only copies the .Text property, not all properties.

ListView Control View Is Blocked By Textboxes Below
I have a Listview control that when clicked, expands to show all the entries.

However when it expand the textbox and dbcombo controls below the listview control .. obstruct the visibility.

How do I make the listview "send to front" when clicked so that the entries will be visible and the user can select. In order words the controls that are blocking its vies, I want to "send to back" ... but its probably best to just make the listview control "send to front"

ListView - Full Text In Icon View
Hi

Does anyone know how to display the full text for ALL list items in a listview control when in lvIcon view ? I can do this for the report view but not for the icon view. I basically want to mimic the functionality of displaying the full text of a list item when it is selected; and do this for all items. I'm using VB6.

Thanks

Ali

(Resolved)View Birthday Of The Month In LISTVIEW?
hi! need help i'd like to know how to view Birthday of the Month in Listview...

i have errors here:
"Select *From QueryMusic Where Bday = Month(now)"

i want to view "birthday of the month" when i click radio button(Birthday) and display in Listview....

waiting to your reply.thanx in advance.

Edited by - edd_hills on 7/20/2005 7:02:09 AM

How Do I Make An Item In A Listview Scroll Into View?
If I am searching for an item in a listview and it is out of view, how do I make it scroll into view and be at the top of the listview, just like the INDEX search in Windows Help?

Crystal Report + View
Dear all,

We have made a view in sql server 2000 and we create a crystal report. The report is made for printing time scedules for several persons, in the view we placed hard coded the ID_name.

How can we change the id for a different person?

Can we call the .rpt file from vb6, with changing the ID_name? How do we do this?

Nice regards,
Michelle.

View Crystal Report
im new in Crystal Report.

i developed reports using Crystal Report 9 & they can open with VB6 code.

if i install my program (setup package) in other pc, which the pc have no crystal report. will the pc can open/view the reports? if can't open/view, is there any free software that can use to view crystal report (.rpt) ?

Report View With Filter
Im drawing blanks here.. I have a report where I Chose the filter ID in a form.
In this case PersID is the key to my filter.
PersID is a string value

Code:
Dim FilterCri as String
Dim persID as String

FilterCri = "SELECT TBL_CompanyProfile.FirmaNavn, TBL_CompanyProfile.FirmaAdr, TBL_CompanyProfile.PostNr, TBL_CompanyProfile.FirmaTlf, TBL_CompanyProfile.FirmaFax, TBL_CompanyProfile.FirmaLogo, TBL_CompanyProfile.FirmaBy, TBL_Personale.PersonaleFornavn, TBL_Personale.PersonaleEfternavn, TBL_Personale.PersonaleFunktion, TBL_Personale.PersonaleDirTlf, TBL_Personale.PersonaleEmail FROM TBL_CompanyProfile, TBL_Personale WHERE TBL_Personale.PersonaleID = " & persID & "'"";"

DoCmd.OpenReport "RPT_BusinessCard", acViewPreview, FilterCri
Depending on what value persID represent one and only one record should be printed out on my report - but this is not what happens...I get i all.. What am I doing wrong.. except forgotting how to split up my code so I dont type it all in one huge line, like im doing here..

hope you can help me

View Access Report From Vb
I have searched for ever to try and find decent and simple code to just open up a report for viewing from access...

I put this in, but it just wants to print to my local printer:

Const dbPathName = "C:lahblahblahlbablaldjfaldkf"
Const strPassword = ""
Dim Acc As Object, db As Object

Set Acc = CreateObject("Access.Application")
Set db = Acc.Application.DBEngine.Workspaces(0).OpenDatabase(dbPathName, 0, False, ";pwd=" & strPassword)
Acc.OpenCurrentDatabase dbPathName, False
Set db = Nothing
Acc.DoCmd.OpenReport "rptcall"
Acc.Visible = True

Also, I have a global variable that should pull into the report when its run to tell it what records to look for.. I put in the query criteria for the field to search: [gblcallid] but when the report runs, it just shows the input box to enter in the global variable.......

How To View Only One Report Between 2 Recordset
I've created 2 databases in MS SQL server 2000. I've designed a form where I can choose any recordset that I want to view, which means I've created 2 options button for it. For each recordset, I've created different data report.So, what I want to know is that, how am I going to view only one data report at one time.

How Can I View The Crystal Report In Asp?
how can i view the crystal report in asp?
do you have any exmaple code?

MSN Messager ID:lkching7@msn.com

How To View Data Report
I have a problem in viewing data reports in the orientation of landscape. in my table i have nearly 15 columns, Can any one say this.

thanks

ganesh

Report List View?
I am using a listview (Line_Type) with 2 columns and X amount of rows. When I go to save this table I use:

for Count = 1 to Line_Type.ListItems.Count
Write #9, Line_Type.ListItems(Count).Text, Line_Type.SelectedItem.SubItems(1)
next Count

The problem is that it will grab all the different fields in column 1 but it only takes column 2's row 1 info. For example:
MY TABLE:
___________
A | B
C | D
E | F
G | H
I | J

The text output file looks like this:
"A","B","C","B","E","B","G","B","I","B"

I want to have it look like this:
"A","B","C","D","E","F","G","H","I","J"

Thanks for any advice!!!

Help About ListView Report View

How can I add a new item to a particular column in report view? For example I have a columns named First and Second, I want to add an item to the Second column and not in First. Please tell me how. Please. Please. Please.