powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / TDBGrid и свойство CycleOnClick у колонки
7 сообщений из 7, страница 1 из 1
TDBGrid и свойство CycleOnClick у колонки
    #34964142
Настенька
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Сделала у одной колонки valueitems. забила 3 значения, и поставила стиль normal, свойства annotatepicture и cycleonclick. т.е. когда я встаю на ячейку, то значение прокручивается в виде картинок.
проблема в том, что почему-то когда я встаю на filter bar, то грид переходит в режим редактирования и та ячейка, на котрой стоял курсор также начинает прокручиваться.
у всех так? или только у меня? и как это побороть? мне не надо, чтобы по щелчку по filter не происходил этот cycleonclick.

помогите плиз. очень буду благодарна.
...
Рейтинг: 0 / 0
TDBGrid и свойство CycleOnClick у колонки
    #34967646
Настенька
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Не ну что никто не хочет мне помочь? ну попробуйте у себя и скажите, как этот баг побороть?
...
Рейтинг: 0 / 0
TDBGrid и свойство CycleOnClick у колонки
    #34967721
Фотография Worobjoff
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Покажите код в котором наполняются ValueItems.
И еще, эта колонка в дизайнере настроена?
...
Рейтинг: 0 / 0
TDBGrid и свойство CycleOnClick у колонки
    #34967814
Настенька
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Valueitems в дизайнере настроены. вот скриншот. т.е. по щелчку на фильтре он типа редактирует запись.
...
Рейтинг: 0 / 0
TDBGrid и свойство CycleOnClick у колонки
    #34968173
Фотография Worobjoff
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Убери CycleOnClick и попробуй этот код (номер колонки надо изменить)
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
Dim rsData As ADODB.Recordset

Private Sub Grid1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
   If Grid1.PointAt(X, Y) = dbgAtDataArea Then
      If Grid1.ColContaining(X) =  2  Then
         CicleClickedIcon Grid1.RowBookmark(Grid1.RowContaining(Y))
      End If
   End If
End Sub

Private Sub CicleClickedIcon(ByVal Bookmark As Variant)
   Dim rs As ADODB.Recordset
   Set rs = rsData.Clone
   rs.Bookmark = Bookmark
   rs( 2 ) = rs( 2 ) +  1 
   If rs( 2 ) >  3  Then rs( 2 ) =  1 
   Grid1.RefreshRow Bookmark
End Sub
...
Рейтинг: 0 / 0
TDBGrid и свойство CycleOnClick у колонки
    #34970512
Настенька
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Private Sub CicleClickedIcon(ByVal Bookmark As Variant)
Dim rs As ADODB.Recordset
Set rs = rsData.Clone
rs.Bookmark = Bookmark
rs(2) = rs(2) + 1
If rs(2) > 3 Then rs(2) = 1
Grid1.RefreshRow Bookmark
End Sub

здесь ругается. а можно поподробнее описать, что этот код делает.
...
Рейтинг: 0 / 0
TDBGrid и свойство CycleOnClick у колонки
    #34970550
Фотография Worobjoff
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Здесь надо сделать так:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
Select case rs( 0 )
  case "?"
    rs( 0 ) = "-"
  case "-"
    rs( 0 ) = "+"
  case "+"
    rs( 0 ) = "?"
end select
...
Рейтинг: 0 / 0
7 сообщений из 7, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / TDBGrid и свойство CycleOnClick у колонки
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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