В настоящее время я работаю над проектом для школы и включает систему регистрации и регистрации.Часть заявления «If» не выполняется
Это функция, которую я создал. Переменная «take» будет передана в основную программу.
Dim taken As Boolean
Dim temp As String
For counter = 1 To totalrecords
FileGet(1, player_info)
temp = player_info.username
If TextBox2.Text = temp Then
msgbox("this is a messagebox")
taken = True
End If
Next
Это часть кода, который проверяет, используются ли какие-либо имена пользователей. Если это так, take = true, а затем отображается сообщение.
Теперь по какой-либо причине часть инструкции if не выполняется. Поле сообщения вообще не отображается. Я тестировал это, используя более одного имени пользователя, и второе (то же) имя пользователя по-прежнему добавляется в файл. Я очень смущен.
часть я считаю, не работает -
If TextBox2.Text = temp Then
taken = True
End If
Если это не выполняется вообще, то что-то странно. возможно, ваш тест просто всегда терпит неудачу. попробуйте добавить предложение 'else' и иметь' msgbox ('это предложение else') '. Вероятно, вы получите это сообщение, и в этом случае вам нужно выяснить, почему ваш тест на равенство терпит неудачу. –
Какова ценность 'totalRecords' ?. Если он равен нулю, цикл for никогда не выполняется. Поместите точку останова на начальную строку цикла и проверьте значение totalRecords – Steve
Поместите msgbox перед вашей линией 'FileGet'. Это скажет вам, есть ли у вас «totalrecords». Вы даже не можете попасть в петлю. – Steve