-
Is there any reason why code1 adds the item "katy but code2 returns the else statement?
Code:
'Code1
dim file as task
Open "c:\windows\desktop\database.txt" For Random As 1 Len = 90
Get #1, 2, file
If file.date = date1.Text Then
List1.AddItem "Katy"
End If
Text1 = file.date
Close #1
'Code2
Dim file As Task
List1.Clear
Open "c:\windows\desktop\database.txt" For Random As 1 Len = 90
For x = 2 To 2
Get #1, x, file
Text1.Text = file.date
If file.date = date1.Text Then
List1.AddItem "katy"
Else
List1.AddItem "darn"
End If
Text2.Text = x
Next
Close #1
'Here's the module
Type Task
Task As String * 30
date As String
Name As String * 30
End Type
[Edited by Bjwbell on 07-11-2000 at 09:16 PM]
-
I think you need indents in your if statements.
-
-
Code:
dim file as task
Open "c:\windows\desktop\database.txt" For Random As 1 Len = 90
Get #1, 2, file
If file.date = date1.Text Then
List1.AddItem "Katy"
End If
Text1 = file.date
Close #1
'Code2
Dim file As Task
List1.Clear
Open "c:\windows\desktop\database.txt" For Random As 1 Len = 90
For x = 2 To 2
Get #1, x, file
Text1.Text = file.date
If file.date = date1.Text Then
List1.AddItem "katy"
Else
List1.AddItem "darn"
End If
Text2.Text = x
Next
Close #1
Here's the module
Type Task
Task As String * 30
date As String
Name As String * 30
End Type
-
-
try changing this bit
Code:
'Code2
Dim file As Task
List1.Clear
Open "c:\windows\desktop\database.txt" For Random As 1 Len = 90
For x = 2 To 2
Get #1, x, file
Text1.Text = file.date
If file.date = date1.Text Then
List1.AddItem "katy"
Else
List1.AddItem "darn"
End If
to this
Code:
'Code2
Dim file As Task
List1.Clear
Open "c:\windows\desktop\database.txt" For Random As 1 Len = 90
For x = 2 To 2
Get #1, x, file
Text1.Text = file.date
If file.date = CDate(date1.Text) Then '<--Code Changed
List1.AddItem "katy"
Else
List1.AddItem "darn"
End If
-
Thank You!
