[RESOLVED] Type MisMAtch

[ailensamson]

HelloEveryone...


I hve been trying tofigure out wht is wrong with this codes:



"Private Sub ListView1_Click()
Dim w, m, r, t, u, I, l As Double

r = Val(ListView1.SelectedItem.SubItems(1))
t = Val(ListView1.SelectedItem.SubItems(2))
u = Val(ListView1.SelectedItem.SubItems(3))
I = Val(ListView1.SelectedItem.SubItems(4))
l = Val(ListView1.SelectedItem.SubItems(5))
m = Val(ListView1.SelectedItem.SubItems(6))

w = r + t + u + I + l + m

Text8=w
Text9 = ListView1.SelectedItem.SubItems(8)

End Sub"




I got the error: Type mismatch and it highlight this prt: w = r + t + u + I + l + m

[LaVolpe]

What data-types are each of those variables declared as?

[ailensamson]

they are declared as double..


Thank(^^)

[LaVolpe]

I'm in doubt. Please post that routine so we can see your actual code & include the variable declarations if they are outside of that routine.

[ailensamson]

Private Sub ListView1_Click() 
Dim w, m, r, t, u, I, l As Double 
 
r = Val(ListView1.SelectedItem.SubItems(1)) 
t = Val(ListView1.SelectedItem.SubItems(2)) 
u = Val(ListView1.SelectedItem.SubItems(3))
I = Val(ListView1.SelectedItem.SubItems(4))
l = Val(ListView1.SelectedItem.SubItems(5))
m = Val(ListView1.SelectedItem.SubItems(6))
 
w = r + t + u + I + l + m
 
Text8=w 
Text9 = ListView1.SelectedItem.SubItems(8) 
 
End Sub

[LaVolpe]

In VB the following does not declare each variable as a double
Dim w, m, r, t, u, I, l As Double

This does
Dim w As Double, m As Double, r As Double, t As Double, u As Double, I As Double, l As Double

Did that fix it?

[ailensamson]

Yes... Thank you so much!!!!!