Событие в Гриде (программно-созданным) / FoxPro, Visual FoxPro

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Событие в Гриде (программно-созданным)

16 сообщений из 16, страница 1 из 1

Событие в Гриде (программно-созданным)

#38289829

Людмila

Участник

Откуда: Кировская обл.

Сообщения: 336

Рейтинг: 0 / 0

Создала Грид в Form.Init, вернее определилась с кол-вом колонок и их названием. (эти параметры зависят от рез-та запроса)
Трудности возникли при создании событий .Grid1.ColumnN.Text1.RightClick в результате которого нужно извлечь .Text1.Value
Посредством BINDEVENT(**.Text1,"RightClick",ThisForm.Grid1,"RightClick") перенаправила событие в Грид, но как извлечь значение ячейки? (название колонки динамическое)
по всей видимости BINDEVENT не подходит?

...

Рейтинг:

0 / 0

07.06.2013, 11:38

| Ответить | Цитировать | Написать

Событие в Гриде (программно-созданным)

#38289860

tanglir

Участник

Сообщения: 30 379

Рейтинг: 0 / 0

Людмilaно как извлечь значение ячейки?

Код: sql

1.
2.

ThisForm.Grid1.RightClick:
MESSAGEBOX(this.Value)

...

Рейтинг:

0 / 0

07.06.2013, 11:45

| Ответить | Цитировать | Написать

Событие в Гриде (программно-созданным)

#38289900

Людмila

Участник

Откуда: Кировская обл.

Сообщения: 336

Рейтинг: 0 / 0

по логике This.value это есть ThisForm.Grid1

но Работает! Спасибо!

...

Рейтинг:

0 / 0

07.06.2013, 11:57

| Ответить | Цитировать | Написать

Событие в Гриде (программно-созданным)

#38289961

tanglir

Участник

Сообщения: 30 379

Рейтинг: 0 / 0

Людмila, просто в хелпе про grid.value как-то невнятно написано, так что я предположил, что grid.value=grid.activecell.value. Просто потому, что в самом гриде это value вроде бы ни к чему, кроме ячеек, относиться не может. Проверка показала, что я угадал :)

...

Рейтинг:

0 / 0

07.06.2013, 12:16

| Ответить | Цитировать | Написать

Событие в Гриде (программно-созданным)

#38289968

Людмila

Участник

Откуда: Кировская обл.

Сообщения: 336

Рейтинг: 0 / 0

А задумка в следующем:
При RightClick значение ячейки анализируется с последующей возможностью его удаления-редактирования!
Значит нужно знать ещё и название столбца таблицы-источника (как бы заодно и его извлечь?)
repl X3 with 'измененное значение'

...

Рейтинг:

0 / 0

07.06.2013, 12:18

| Ответить | Цитировать | Написать

Событие в Гриде (программно-созданным)

#38289975

tanglir

Участник

Сообщения: 30 379

Рейтинг: 0 / 0

Людмila, а что, grid.activecolumn выдаёт неверные значения? Или сложности с соотнесением номера столбца и имени поля? Так ведь грид формируется "программно", т.е. всё это вами же вроде изначально и задаётся... или я чего-то не понял?

...

Рейтинг:

0 / 0

07.06.2013, 12:21

| Ответить | Цитировать | Написать

Событие в Гриде (программно-созданным)

#38290037

Людмila

Участник

Откуда: Кировская обл.

Сообщения: 336

Рейтинг: 0 / 0

grid.activecolumn выдает значение верное(к примеру-4), пытаюсь связать его с значением .ColumnN.ControlSource
В программе оно присваивалось в цикле т.е. .ColumnN.ControlSource=X3 (X3-переменная)
Работаю.

...

Рейтинг:

0 / 0

07.06.2013, 12:44

| Ответить | Цитировать | Написать

Событие в Гриде (программно-созданным)

#38290224

ЛДПР

Гость

Людмila,

Bindevent() + Aevents(ArrayName,0)

...

Рейтинг:

0 / 0

07.06.2013, 13:56

| Ответить | Цитировать | Написать

Событие в Гриде (программно-созданным)

#38291139

Людмila

Участник

Откуда: Кировская обл.

Сообщения: 336

Рейтинг: 0 / 0

[quot Bindevent() + Aevents(ArrayName,0)[/quot]
не совсем поняла как это будет работать (вернее совсем не поняла)

Реализовала задуманное выйдя на .ColumnN.ControlSource

...

Рейтинг:

0 / 0

08.06.2013, 01:41

| Ответить | Цитировать | Написать

Событие в Гриде (программно-созданным)

#38291493

ЛДПР

Гость

Людмila,

_{Create Cursor csrTest (Id i,Name v(10))

Insert into csrTest(id,Name) values(1,Sys(2015))

Insert into csrTest(id,Name) values(2,Sys(2015))

m.loForm = Createobject("frmTestClass")

m.loForm.Show()

Define Class frmTestClass As Form

caption = "Test RightCkick"

hook = .Null.

Procedure Init

This.hook = This

This.AddObject("grdTest","grid")[SRC DELPHI][/SRC]

This.grdTest.Move(0,0,This.Width,This.Height)

This.grdTest.Visible = .T.

Bindevent(This.grdTest.Columns(1).Text1,"RightClick",This,"onGridTextBoxClick",1)

Bindevent(This.grdTest.Columns(2).Text1,"RightClick",This,"onGridTextBoxClick",1)

Procedure onGridTextBoxClick

Local laObject(1)

Aevents(m.laObject,0)

If Vartype(m.laObject(1))="O"

Messagebox(Sys(1272,m.laObject(1))+".value = "+Transform(m.laObject(1).Value))

Endif

Procedure QueryUnload

this.Hook = .Null.

Enddefine}

...

Рейтинг:

0 / 0

08.06.2013, 22:44

| Ответить | Цитировать | Написать

Событие в Гриде (программно-созданным)

#38291495

ЛДПР

Гость

ЛДПР,

This.AddObject("grdTest","grid")[SRC DELPHI][/SRC]
Надо заменить на
This.AddObject("grdTest","grid")

...

Рейтинг:

0 / 0

08.06.2013, 22:47

| Ответить | Цитировать | Написать

Событие в Гриде (программно-созданным)

#38291573

Людмila

Участник

Откуда: Кировская обл.

Сообщения: 336

Рейтинг: 0 / 0

Спасибо конечно,
но Грид (в моем случае) на форме уже создан, и основные его параметры (кол-колонок, их название и т.д) на этапе проектирования не известны и создается в событии Init формы после получения этих данных из SQL-запроса
и ProcedurУ onGridTextBoxClick мне прсто некуда впихнуть, у меня вот это рулит:
************************
Form3.Grid2.ColumnCount=_tally
FOR i=1 TO _tally
cn='Form3.Grid2.Column'+TRANS(i)
t2='_'+DTOS(array(i))
WITH &cn
.header1.caption=DTOC(array(i))+CHR(13)+funct(array(i))
.ControlSource=t2
BINDEVENT(.Text1,"RightClick",ThisForm.Grid1,"RightClick")
BINDEVENT(.Text1,"DblClick",ThisForm.Grid1,"DblClick")
ENDWITH
NEXT
чтото вроде работы vfpxtab.prg

...

Рейтинг:

0 / 0

09.06.2013, 05:36

| Ответить | Цитировать | Написать

Событие в Гриде (программно-созданным)

#38291588

Dima T

Участник

Сообщения: 15 530

Рейтинг: 0 / 0

Вместо этого
ЛюдмilaForm3.Grid2.ColumnCount=_tally
FOR i=1 TO _tally
cn='Form3.Grid2.Column'+TRANS(i)
t2='_'+DTOS(array(i))
WITH &cn
...
лучше так написать

Код: sql

1.
2.
3.
4.

FOR i=1 TO Form3.Grid2.ColumnCount
  t2='_'+DTOS(array(i))	
  WITH Form3.Grid2.Columns(i)
...

...

Рейтинг:

0 / 0

09.06.2013, 09:04

| Ответить | Цитировать | Написать

Событие в Гриде (программно-созданным)

#38291615

Людмila

Участник

Откуда: Кировская обл.

Сообщения: 336

Рейтинг: 0 / 0

Так дествительно получше будет. + Информативнее.
Спасибо! переделаюю

...

Рейтинг:

0 / 0

09.06.2013, 11:14

| Ответить | Цитировать | Написать

Событие в Гриде (программно-созданным)

#38291874

12345зайчик

Гость

Людмila,

лучше писать

for each loColumn in ...columns

locolumn....

endfor

...

Рейтинг:

0 / 0

09.06.2013, 22:19

| Ответить | Цитировать | Написать

Событие в Гриде (программно-созданным)

#38291957

Людмila

Участник

Откуда: Кировская обл.

Сообщения: 336

Рейтинг: 0 / 0

И это возьму на вооружение. Спасибо!
Плюхаюсь с проектом, который изобилует отображеним данных посредством Грида.
Многое ещё в переди. В голове одни контуры предстоящей работы. А вот знаний (особенно относительно Грида) увы недостаточно.

Спасибо за помощь.

...

Рейтинг:

0 / 0

10.06.2013, 01:14

| Ответить | Цитировать | Написать

16 сообщений из 16, страница 1 из 1

Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Событие в Гриде (программно-созданным)

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=41&fpage=41&tid=1583012]:	0ms
get settings:	9ms
get forum list:	14ms
check forum access:	4ms
check topic access:	4ms
track hit:	37ms
get topic data:	12ms
get forum data:	2ms
get page messages:	50ms
get tp. blocked users:	1ms
others:	14ms

total:	147ms