Josphin mary Ответов: 1

Как я могу кодировать для итерации данных usign VB.NET

Привет, на самом деле я просто объясняю сценарий, информация о пользователе обновляется, как имя ,место, дата рождения , квалификация, затем введите свои данные bandk наконец, давая отправить msg box shwoing "is ther multiple account details user have", когда выберите Да, затем другой суффикс открыт с той же информацией о пользователе, кроме информации о банковских реквизитах, тогда мы можем обновить банковскую информацию. Для этого какую логику надо использовать.

На самом деле я просто объясняю сценарий, какую логику следует использовать для приведенного ниже запроса в vb.net

Что я уже пробовал:

Я новичок в части кодирования, поэтому мне не хватает той логики, которую следует использовать, пожалуйста, помогите мне в этом.

1 Ответов

Рейтинг:
1

Maciej Los

Используй свою собственную логику!

В псевдокоде это может выглядеть так:

Do 
    'enter user info 
    '
    'check if  
    anAnswer = MsgBox("Would you like to submit another user info?", vbYesNoOnly, "Question...")
Loop While anAnswer="Yes"


Для получения более подробной информации, пожалуйста, смотрите: Структуры Циклов (Visual Basic) | Microsoft Docs[^]

Josphin mary

Спасибо за ваш ценный ответ, смотрите, это мой код для полного действия, вот только я должен сделать некоторое улучшение, которое добавляет суффикс, так где и как должен быть код?

Private Sub cmdCompleteAudit_Click(sender As Object, e As EventArgs) обрабатывает cmdCompleteAudit.Щелчок

Если я.txtUniqueID.Тогда Enabled = False
MsgBox("аудит уже выполнен для уникального идентификатора!!!", vbInformation, "дубликат записи!!!")
Выход Из Субмарины
Конец, Если

Попробуй

Если я.txtUniqueID.Текст = "" Тогда
MsgBox("пожалуйста, предоставьте уникальный идентификатор для продолжения!", vbInformation, "требуется значение")
Ключевые Слова Elseif Меня.DteTransDate.Текст = "" Тогда
MsgBox("Пожалуйста, выберите дату транзакции, чтобы продолжить!", vbInformation, "требуется значение")
Ключевые Слова Elseif Меня.cmbSupervisor.Text = "" или Me.cmbSupervisor.Текст = "Выбрать-" Тогда
MsgBox("Пожалуйста, выберите имя супервизора, чтобы продолжить!", vbInformation, "требуется значение")
Ключевые Слова Elseif Меня.cmbProcessor.Text = "" или Me.cmbProcessor.Текст = "Выбрать-" Тогда
MsgBox("Пожалуйста, выберите имя процессора для продолжения!", vbInformation, "требуется значение")
Ключевые Слова Elseif Меня.txtSupEmpID.Text = "" или Me.txtSite.Text = "" или Me.txtProcMsID.Text = "" или Me.txtProcEmpID.Текст = "" Тогда
MsgBox("неправильное имя процессора!, Пожалуйста, выберите имя процессора правильно", vbInformation, "требуется значение")
Еще один-радиопроцесс.Проверено = False и Me.radioProcessedNo.Тогда Checked = False
MsgBox("Пожалуйста, выберите, правильно ли обработана претензия или нет!", vbInformation, "требуется значение")
Ключевые Слова Elseif Меня.cmbAuditType.Text = "" или Me.cmbAuditType.Текст = "Выбрать-" Тогда
MsgBox("Пожалуйста, выберите тип аудита/имя инструмента!", vbInformation, "требуется значение")
Ключевые Слова Elseif Меня.radioOrgYes.Проверено = ложь и я.радиооргно.Тогда Checked = False
MsgBox("Пожалуйста, выберите дату получения организации!", vbInformation, "требуется значение")
Еще один вопрос-радиолюбительство.Проверено = ложь и я.radioUrgencyNo.Тогда Checked = False
MsgBox("Пожалуйста, выберите срочность!", vbInformation, "требуется значение")
Ключевые Слова Elseif Меня.radioBenefitYes.Проверено = ложь и мне.радиобенефитно.Тогда Checked = False
MsgBox("Пожалуйста, выберите Benefit!", vbInformation, "требуется значение")
Все остальное-радиоволны.Проверено = ложь и я.радиовольно.Тогда Checked = False
MsgBox("Пожалуйста, выберите возвращаемый AOR/WOL!", vbInformation, "требуется значение")
Ключевые Слова Elseif Меня.radioTypeYes.Проверено = ложь и я.радиотипено.Тогда Checked = False
MsgBox("Пожалуйста, выберите тип обращения!", vbInformation, "требуется значение")
Ключевые Слова Elseif Меня.radioSubtypeYes.Проверено = False и Me.radioSubtypeNo.Тогда Checked = False
MsgBox("Пожалуйста, выберите подтип случая!", vbInformation, "требуется значение")
Еще бы мне радиопередатчики.Проверено = ложь и я.радиопровидерно.Тогда Checked = False
MsgBox("Пожалуйста, выберите статус поставщика!", vbInformation, "требуется значение")
Ключевые Слова Elseif Меня.radioEmpGroupYes.Проверено = False и Me.radioEmpGroupNo.Тогда Checked = False
MsgBox("Пожалуйста, выберите специальную группу работодателей!", vbInformation, "требуется значение")
Все остальное-радиопроцесс.Checked = True и Me.txtErrorCodes.Текст = "" Тогда
MsgBox("пожалуйста, предоставьте коды ошибок!", vbInformation, "требуется значение")
Ключевые Слова Elseif Меня.cmbLevel.Текст = "" Тогда
MsgBox("Пожалуйста, выберите уровень предварительной обработки аудита/приема/настройки!", vbInformation, "требуемое значение")
Ключевые Слова Elseif Меня.cmbAuditType.Text = "Agile" и (Me.cmbLevel.Text = "" или Me.cmbLevel.Текст = "Выбрать-") Тогда
MsgBox("Пожалуйста, выберите уровень предварительной обработки аудита/приема/настройки!", vbInformation, "требуемое значение")
Еще Вставки Записей

Dim ConStr As String = ""
Тусклый Год Как Строка = ""
Dim FileName As String = ""