Курсовая работа: Информационно-аналитическая система Казанского вокзала

End If

Set e = f

Loop

Do While Not IsEmpty(k)

Set l = k.Offset(1, 0)

If k.Text = ListBox1.Text And k.Offset(0, -2).Text = TextBox9.Text Then

If k.Offset(0, 1).Text = "A" Then

a = a - 1

ElseIf k.Offset(0, 1).Text = "B" Then

b = b - 1

ElseIf k.Offset(0, 1).Text = "C" Then

c = c - 1

Else

d = d - 1

End If

End If

Set k = l

Loop

TextBox1.Text = a

TextBox2.Text = b

TextBox3.Text = c

TextBox4.Text = d

Do While Not IsEmpty(w)

Set v = w.Offset(1, 0)

If w.Text = TextBox9.Text Then

TextBox5.Text = w.Offset(0, 1)

TextBox6.Text = w.Offset(0, 2)

TextBox7.Text = w.Offset(0, 3)

TextBox8.Text = w.Offset(0, 4)