Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / cselect all / 11 сообщений из 11, страница 1 из 1
15.09.2005, 08:51:43
    #33270295
shady
shady
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
cselect all
кто -нить знает как в гриде в котором есть чекбоксы, кнопкой выделить все чекбоксы, а другой кнопкой убрать выделение?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.09.2005, 09:35:46
    #33270343
AndreyMp
AndreyMp
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
cselect all
Кодить надо. Вешаешь труе всем на одну кнопку, фальше на вторую. Если напишешь что за грид может и конкретнее ответ получишь.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.09.2005, 10:01:34
    #33270386
shady
shady
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
cselect all
грид у меня TDBGrid2 от component one, одну колонку сделал с чекбоксами, вот их и надо заполнять.
грид я заполняю из базы
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.09.2005, 12:13:44
    #33270844
Worobjoff
Worobjoff
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
cselect all
А что за проблема-то? Пробежать по рекордсету и все поля поставить в 1.
А правильнее колоном рекордсета.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.09.2005, 12:32:03
    #33270946
shady
shady
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
cselect all
я эту гриду подключаю через АДО... а в таблице 90 записей, просто не хочется в ручную галки ставить... вот и спрашиваю совета
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.09.2005, 12:56:25
    #33271031
Worobjoff
Worobjoff
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
cselect all
Dim rs as ADODB.Recordset
set rs = rsGrid.Clone
if rs.Recordcount > 0 then
end if
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.09.2005, 12:58:03
    #33271040
Worobjoff
Worobjoff
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
cselect all
(Нажал 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
| Ответить | Цитировать | Написать  
15.09.2005, 13:00:19
    #33271044
Worobjoff
Worobjoff
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
cselect all
(Нажал 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
| Ответить | Цитировать | Написать  
15.09.2005, 14:17:31
    #33271281
shady
shady
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
cselect all
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
| Ответить | Цитировать | Написать  
15.09.2005, 14:32:10
    #33271338
AndreyMp
AndreyMp
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
cselect all
Ну загони все это в цикл. Уж и так тебе все написАли.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.09.2005, 14:45:56
    #33271394
shady
shady
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
cselect all
AndreyMpНу загони все это в цикл. Уж и так тебе все написАли.
да сам уже догнал..., спасибо
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / cselect all / 11 сообщений из 11, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 342ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2167184]:
 0ms
get settings:
 8ms
get forum list:
 12ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 38ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 44ms
get tp. blocked users:
 1ms
others: 223ms
total:  342ms
x
x
Закрыть


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