@capetownn

Среда Visual Basic STUDIO’2010 Professional
На форме Form11 имеется кнопка для добавления
Новой строки в DataGridView1, находящийся на Form11
После щелчка на кнопке открывается форма SubFormForEnter22,
На которй находится 11 контролов, которые надо заполнить в том случае,
когда в DataGridView1 отсутствует запись со значением ключа, которое
находится в нолевом столбце DataGridView1. Если же запись
со значением ключа присутствует, то надо выдать пользователю
ссобщение, чтобы ввести правильное значение, а оставшиеся 10 полей
не разумно вводить.
Я поставил в 5-ти событий
Private Sub MaskTxtBoxtxtNumPensCertificate_Leave
Private Sub MaskTxtBoxtxtNumPensCertificate_MouseLeave
Private Sub MaskTxtBoxtxtNumPensCertificate_ChangeUICues
Private Sub MaskTxtBoxtxtNumPensCertificate_Validated
Private Sub MaskTxtBoxtxtNumPensCertificate_Validating

MaskTxtBoxtxtNumPensCertificate.Text – В ЭТОТ контрол ввожу значения ключевого
поля, тип которого в таблице - Integer
Ниже приведенный код – и всё НЕ ТО:

Private Sub MaskTxtBoxtxtNumPensCertificate_ChangeUICues(ByVal sender As System.Object, ByVal e As System.Windows.Forms.UICuesEventArgs) Handles MaskTxtBoxtxtNumPensCertificate.ChangeUICues
Dim Column2 As Byte
Dim str_find2 As String = MaskTxtBoxtxtNumPensCertificate.Text
MsgBox("MaskTxtBoxtxtNumPensCertificate.Text" = MaskTxtBoxtxtNumPensCertificate.Text)
Column2 = 0 ' column in table "Pensioner"
For Each Row2 In Form11.DataGridView1.Rows
If (Row2.Cells(Column2).Value.ToString().Contains(str_find2)) Then
MsgBox("НАЙДЕНО") '
Exit For
Else
MsgBox("НЕ НАЙДЕНО") ' продолжаем заполнять оставшихся 10 полей
Exit Sub
End If
Next
End Sub
Не выводится
MsgBox("НАЙДЕНО")
Ни
MsgBox("НЕ НАЙДЕНО")

СПАСИБО!

Добавлено через 5 минут
PS: не получается отредактировать текст кода в VB NET,
ПОЭТОМУ НЕУДОБНО ЧИТАТЬ ВОПРОС по проблеме
ДОБАВЛЕНИЯ СТРОКИ В DGV

Вернуться к обсуждению:
Добавление строк в DataGridView Visual Basic .NET

0