Code

[Bjwbell]

Is there any reason why code1 adds the item "katy but code2 returns the else statement?

'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]

[SteveCRM]

I think you need indents in your if statements.

[Bjwbell]

What to mean by indents

[SteveCRM]

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

[Bjwbell]

Didn't work.

[Sam Finch]

try changing this bit

'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

'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

[Bjwbell]

It works!