[RESOLVED] type mismatch when searching date

[salsa31]

hey

im trying to search my listview by date

i get error type mismatch why?
this is the datepicker

Private Const mstrDateFormat As String = "dd-mm-yyyy"
Private Sub DTPicker1_CloseUp()
    Dim lvi As ListItem
    Dim j As Long
    Dim d As Date
    d = Format$(DTPicker1.Value, mstrDateFormat)
    For j = FrmInvoices.LsVw.ListItems.Count To 1 Step -1
        Set lvi = FrmInvoices.LsVw.ListItems(j)
        If DateDiff("d", CDate(lvi.SubItems(2)), d) <> 0 Then
          FrmInvoices.LsVw.ListItems.Remove (j)
        End If
  
    Next
End Sub

this is the code of load

Private Sub Form_Load()
Me.WindowState = 2
ListRTL LsVw


   mLVClrHdr.HookToLV LsVw.hwnd, True
    mLVClrHdr.glHdrBkClr = &HD1B499
    mLVClrHdr.glHdrTextClr = vbWhite
    m_hookedLV = True
    
Set RS = CN.Execute("SELECT * from Inventory ")
While Not RS.EOF

Set Itm = FrmInvoices.LsVw.ListItems.Add(, , RS!InvDate, , "invoice")
  Itm.bold = True
Itm.SubItems(1) = RS!InvInvoice
Itm.SubItems(2) = RS!InvItem
Itm.SubItems(3) = RS!InvSupplier
Itm.SubItems(4) = RS!InvCompany
Itm.SubItems(5) = RS!invQuantity
Itm.SubItems(6) = RS!InvRemarks
RS.MoveNext
Wend
End Sub

[Nightwalker83]

Once again which line has the error?

[salsa31]

  If DateDiff("d", CDate(lvi.SubItems(2)), d) <> 0 Then

[Nightwalker83]

Is lvi.SubItems(2) a string value? CDate converts a string value.

[salsa31]

no subitems
(2) is a text

i think the date dosnt have a subitems

Set Itm = FrmInvoices.LsVw.ListItems.Add(, , RS!InvDate, , "invoice")
  Itm.bold = True

[Nightwalker83]

What happens if you use

If DateDiff("d", CDate(lvi.SubItems(2).Text), d) <> 0 Then

[salsa31]

invaild qualefier

the date is the first in the listview so no subitems i think
i dont know :\

[Nightwalker83]

Should that be?

If DateDiff("d", CDate(lvi.SubItems(j)), d) <> 0 Then

[salsa31]

type mismatch again

If DateDiff("d", CDate(lvi.SubItems(j)), d) <> 0 Then

[salsa31]

the date is the first coulm in the listview
i dont think it has a subitems according to this

Set Itm = FrmInvoices.LsVw.ListItems.Add(, , RS!InvDate, , "invoice")
  Itm.bold = True
Itm.SubItems(1) = RS!InvInvoice
Itm.SubItems(2) = RS!InvItem
Itm.SubItems(3) = RS!InvSupplier
Itm.SubItems(4) = RS!InvCompany
Itm.SubItems(5) = RS!invQuantity
Itm.SubItems(6) = RS!InvRemarks

[Spoo]

Salsa

Let's first try to confirm where the date is "stored".
Add these 3 lines to your code snipped, and put a break-point at b=b ...

Set Itm = FrmInvoices.LsVw.ListItems.Add(, , RS!InvDate,[/U] , "invoice")
  Itm.bold = True
Itm.SubItems(1) = RS!InvInvoice
Itm.SubItems(2) = RS!InvItem
Itm.SubItems(3) = RS!InvSupplier
Itm.SubItems(4) = RS!InvCompany
Itm.SubItems(5) = RS!invQuantity
Itm.SubItems(6) = RS!InvRemarks
'
v0 = Itm.SubItems(0)
v1 = Itm.SubItems(1)
b = b

What value do you get for v0?
What value do you get for v1?

Spoo

[salsa31]

external name not difined

[/U]

[salsa31]

the subitems are stored in a diffrent table

im just pulling some records from there to display in another form.

[salsa31]

but when i added another subitems called InvExpired subitems (7) (date)it worked

If DateDiff("d", CDate(lvi.SubItems(7)), d) <> 0 Then

Itm.SubItems(7) = RS!InvExpired

[DataMiser]

My guess would be that either you are usinf the wrong sub item or that you have a blank entry in it.

[salsa31]

this is the code from the inventory table

  Set Itm = LsVw.ListItems.Add(, , RS!InvDate, , "date")
  Itm.Tag = RS!InvID
Itm.SubItems(1) = RS!InvItem
Itm.SubItems(2) = RS!InvQuantity
Itm.SubItems(3) = RS!InvBeforetax
Itm.SubItems(4) = RS!InvInvoice
Itm.SubItems(5) = RS!InvSupplier
Itm.SubItems(6) = RS!InvEmail
Itm.SubItems(7) = RS!InvPhone
Itm.SubItems(8) = RS!InvBranch
Itm.SubItems(9) = RS!InvFax
Itm.SubItems(10) = RS!InvCompany
Itm.SubItems(11) = RS!InvPaymentMethod
Itm.SubItems(12) = RS!InvPayments
Itm.SubItems(13) = RS!InvParts
Itm.SubItems(14) = RS!InvExpire
Itm.SubItems(15) = Format(RS!invTax / 100, ".##%")
Itm.SubItems(16) = RS!InvAftertax
Itm.SubItems(17) = RS!InvForCust
Itm.SubItems(18) = RS!InvRemarks

[DataMiser]

Itm.SubItems(2) = RS!InvQuantity

Well if this is what is going into the list then clearly subitem 2 is not a date, in fact it doesn't look like any of those are a date other than maybe subitem 14

[salsa31]

so if date is in the first column with no subitems then how do you search by date?

[Spoo]

Salsa

You keep talking about the first column... first column of what?
Could you provide a screen-shot?

Spoo

[salsa31]

look spoo

Set Itm = FrmInvoices.LsVw.ListItems.Add(, , RS!InvDate, , "invoice")
  Itm.bold = True
Itm.SubItems(1) = RS!InvInvoice
Itm.SubItems(2) = RS!InvItem
Itm.SubItems(3) = RS!InvSupplier
Itm.SubItems(4) = RS!InvCompany
Itm.SubItems(5) = RS!invQuantity
Itm.SubItems(6) = RS!InvRemarks

you see the InvDate?
when i add something to my database the first thing it adds is the InvDate (Set Itm = FrmInvoices.LsVw.ListItems.Add(, , [RS!InvDate, "invoice")
this is what i first see in the listview the date
and if the date is first how can itm.subitems(1) = RS!Invoice be subitems 1?
so whats the subitem for InvDate?

[Spoo]

Salsa

Sorry for mis-communication.
What you just did is what I would call a "code snippet"

By a "screen-shot", I meant an image of the control on your form.
Do you know how to grab and attach an image to your reply?

Spoo

[salsa31]

sure
tell me image of what you want to see?
screen shot of what?

[salsa31]

Attachment 101979Attachment 101981

[Spoo]

Salsa

Sorry, but for some reason I can't see anything.

Perhaps you could try again, using the technique you used earlier
in post #13 of this thread ..

http://www.vbforums.com/showthread.p...y-value-in-mdi

Spoo

[salsa31]

Attachment 101989
Attachment 101991

[Spoo]

Salsa

OK, I can definitely see that ,,

However, I can't tell where your ListView control is.
In other words, regarding my post #19, "the first column of what"?
I'm hoping to see a date in the first column of it.

Spoo

[salsa31]

look in the pic on the right in the listview
8/7/2012 thats the date

[Spoo]

Salsa

OK, I see a date 8/7/2013 at the right, in row 1

I must confess to not having used a ListView control before, but, could
it be that instead of it being the "first" column, it is rather the "last" column.

I know that a MSFlexGrid control, for example, begins with the left column being Col = 0.

Perhaps the same applies to a ListView. I can see 8 columns in your screenshot.
If they are all part of the same ListView, then perhaps you need to reference Col = 7.
However, I don't see a Col Property, so, I really don't have a clue.

Spoo

[salsa31]

np spoo

[DataMiser]

Ok sounds like you need to be using the Item.text rather than any of the sub items as what you are wanting to search for is not in the subitems but is the main item text

[salsa31]

Ok sounds like you need to be using the Item.text rather than any of the sub items as what you are wanting to search for is not in the subitems but is the main item text

and how do i do that?

[DataMiser]

Rather than

lvi.SubItems(2)

You would use

lvi.Text

Been a while since I used a list view in VB6 but I think that is correct.

[salsa31]

tnk you datamiser its working now