Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / WinForms, .Net Framework [игнор отключен] [закрыт для гостей] / Добавление строк в DataGridView / 7 сообщений из 7, страница 1 из 1
22.03.2013, 13:35
    #38194814
Vova_1805
Vova_1805
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Добавление строк в DataGridView
Среда Visual Basic STUDIO’2010 Professional
На форме Form11 имеется кнопка для добавления
Новой строки в DataGridView1, находящийся на Form11
После щелчка на кнопке открывается форма SubFormForEnter22,
На которй находится 11 контролов, которые надо заполнить в том случае,
когда в DataGridView1 отсутствует запись со значением ключа, которое
находится в нолевом столбце DataGridView1. Если же запись
со значением ключа присутствует, то надо выдать пользователю
ссобщение, чтобы ввести правильное значение, а оставшиеся 10 полей
не разумно вводить.
Я поставил в 5-ти событий
Код: vbnet
1.
2.
3.
4.
5.
Private Sub MaskTxtBoxtxtNumPensCertificate_Leave
Private Sub MaskTxtBoxtxtNumPensCertificate_MouseLeave
Private Sub MaskTxtBoxtxtNumPensCertificate_ChangeUICues
Private Sub MaskTxtBoxtxtNumPensCertificate_Validated
Private Sub MaskTxtBoxtxtNumPensCertificate_Validating



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

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
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("НЕ НАЙДЕНО")



СПАСИБО!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.03.2013, 13:56
    #38194856
фиганыч
фиганыч
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Добавление строк в DataGridView
Vova_1805,

такое возможно только в случае Form11.DataGridView1.Rows = 0,
точку останова на For Each Row2 In Form11.DataGridView1.Rows - и смотри сколько строк

ну и так - у тебя цикл выполнится только для первой строки в коллекции - он её проверит, и в любом случае сразу выйдет.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.03.2013, 15:10
    #38194986
Vova_1805
Vova_1805
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Добавление строк в DataGridView
авторну и так - у тебя цикл выполнится только для первой строки в коллекции - он её проверит, и в любом случае сразу выйдет.
по моему что-то одно должно быть выполнено
Код: vbnet
1.
2.
3.
MsgBox("НАЙДЕНО")
или
MsgBox("НЕ НАЙДЕНО")



несколько раз выводилось false
нолевой столбец - это число, тогда как записать вместо строки

Код: vbnet
1.
If (Row2.Cells(Column2).Value.ToString().Contains(str_find2)) Then
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.03.2013, 19:22
    #38195446
carrotik
carrotik
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Добавление строк в DataGridView
Vova_1805,

... а что, номера столбцов Windows Forms байтами считаются?

Код: vbnet
1.
Dim Column2 As Integer
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.03.2013, 08:32
    #38195747
Cat2
Cat2
Модератор форума
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Добавление строк в DataGridView
carrotikVova_1805,

... а что, номера столбцов Windows Forms байтами считаются?

Код: vbnet
1.
Dim Column2 As Integer


На Ваш вкус, барин. Индекс столбца - хоть цифрами, хоть буковками.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.03.2013, 08:38
    #38195751
Cat2
Cat2
Модератор форума
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Добавление строк в DataGridView
Vova_1805После щелчка на кнопке открывается форма SubFormForEnter22,
На которй находится 11 контролов, которые надо заполнить в том случае,
когда в DataGridView1 отсутствует запись со значением ключа, которое
находится в нолевом столбце DataGridView1.
Не очень понял. А разве нельзя не открывать форму, если значение в нулевом столбце есть, а выдавать пользователю сообщение, что редактирование не требуется?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.04.2013, 17:00
    #38207562
Vova_1805
Vova_1805
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Добавление строк в DataGridView
Cat2
ИСКРЕННЕ БЛАГОДАРЮ
ЗА ИДЕЮ, всё ОК!
Благодаря ИМЕННО Вашей подсказке проблема решена успешно.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / WinForms, .Net Framework [игнор отключен] [закрыт для гостей] / Добавление строк в DataGridView / 7 сообщений из 7, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 157ms
Закрыть
start [/forum/topic.php?fid=20&tablet=1&tid=1404920]:
 0ms
get settings:
 10ms
get forum list:
 14ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 44ms
get topic data:
 13ms
get forum data:
 3ms
get page messages:
 49ms
get tp. blocked users:
 2ms
others: 14ms
total:  157ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]