powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / cselect all
11 сообщений из 11, страница 1 из 1
cselect all
    #33270295
shady
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
кто -нить знает как в гриде в котором есть чекбоксы, кнопкой выделить все чекбоксы, а другой кнопкой убрать выделение?
...
Рейтинг: 0 / 0
cselect all
    #33270343
AndreyMp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Кодить надо. Вешаешь труе всем на одну кнопку, фальше на вторую. Если напишешь что за грид может и конкретнее ответ получишь.
...
Рейтинг: 0 / 0
cselect all
    #33270386
shady
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
грид у меня TDBGrid2 от component one, одну колонку сделал с чекбоксами, вот их и надо заполнять.
грид я заполняю из базы
...
Рейтинг: 0 / 0
cselect all
    #33270844
Фотография Worobjoff
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А что за проблема-то? Пробежать по рекордсету и все поля поставить в 1.
А правильнее колоном рекордсета.
...
Рейтинг: 0 / 0
cselect all
    #33270946
shady
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
я эту гриду подключаю через АДО... а в таблице 90 записей, просто не хочется в ручную галки ставить... вот и спрашиваю совета
...
Рейтинг: 0 / 0
cselect all
    #33271031
Фотография Worobjoff
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Dim rs as ADODB.Recordset
set rs = rsGrid.Clone
if rs.Recordcount > 0 then
end if
...
Рейтинг: 0 / 0
cselect all
    #33271040
Фотография Worobjoff
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
(Нажал Ctrl+Enter и выскочил из редактора)

Код: plaintext
1.
2.
3.
4.
5.
6.
Dim rs as ADODB.Recordset
set rs = rsGrid.Clone
if rs.Recordcount >  0  then
  rs(ПолеГалка) =  1 
  rs.movenext
end if
set rs = nothing
...
Рейтинг: 0 / 0
cselect all
    #33271044
Фотография Worobjoff
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
(Нажал Ctrl+Enter и выскочил из редактора) черт, здесь Ctrl+Enter не так себя ведет

Код: plaintext
1.
2.
3.
4.
5.
6.
Dim rs as ADODB.Recordset
set rs = rsGrid.Clone
do until rs.EOF
  rs(ПолеГалка) =  1 
  rs.movenext
Loop
set rs = nothing
...
Рейтинг: 0 / 0
cselect all
    #33271281
shady
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Private Sub Command1_Click()

Dim rs As ADODB.Recordset
Set rs = Adodc1.Recordset
If rs.RecordCount > 0 Then
rs("CHEKBOX") = -1
rs.MoveNext
End If
'Set rs = Nothing

End Sub

галка ставиться но! по одной записи.. т.е. сколько записей в таблице, столько раз и нужно нажать кнопку. а мне нужно чтобы во всех строках одним нажатием кнопки поставить галку.
...
Рейтинг: 0 / 0
cselect all
    #33271338
AndreyMp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ну загони все это в цикл. Уж и так тебе все написАли.
...
Рейтинг: 0 / 0
cselect all
    #33271394
shady
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
AndreyMpНу загони все это в цикл. Уж и так тебе все написАли.
да сам уже догнал..., спасибо
...
Рейтинг: 0 / 0
11 сообщений из 11, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / cselect all
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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