Модераторы: Akina
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> перенос данных из FlexGrid в TextBox, перенос данных из FlexGrid в TextBox 
:(
    Опции темы
Kuzja_21
Дата 10.11.2006, 22:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 8
Регистрация: 10.11.2006

Репутация: нет
Всего: нет
Привет! Помогите мне, пожалуйста, а то я запутался!! 

Значит, дело такое - на форме имеются flexgrid, связанный с базой данных Access, и несколько элементов textbox. 
Нужно, чтобы при выделении мышкой строки в flexgride, соответствующая информация из соответствующего столбца выделенной строки помещалась в textbox'ы 
Например, таблица состоит из столбцов "Имя", "Фамилия". Выделяем строку, и имя из этой строки помещаятся в TextBox1, а фамилия из этой строки - в TextBox2. Да, таблица, в перспективе, имеет неогранниченное кол-во строк. 
Заранее спасибо, а то я замучился с этим
PM MAIL   Вверх
Voldemar2004
Дата 11.11.2006, 19:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1650
Регистрация: 25.12.2004

Репутация: 7
Всего: 23
Так:
Код
Option Explicit

Private Sub MSHFlexGrid1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)

Text1.Text = Text1.Text & MSHFlexGrid1.Text & vbCrLf

End Sub
Kuzja_21, тебе осталось только сделать цикл по Гриду и записать в ТекстБокс.


--------------------
i_i 
(';') 
(V)

user posted image
PM MAIL   Вверх
Kuzja_21
Дата 11.11.2006, 19:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 8
Регистрация: 10.11.2006

Репутация: нет
Всего: нет
Вот спасибо большое! Сейчас буду пробовать.
PM MAIL   Вверх
Kuzja_21
Дата 11.11.2006, 20:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 8
Регистрация: 10.11.2006

Репутация: нет
Всего: нет
А если не трудно, то можно пример цикла, чтобы я схватил
PM MAIL   Вверх
Voldemar2004
Дата 11.11.2006, 22:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1650
Регистрация: 25.12.2004

Репутация: 7
Всего: 23
Цитата(Kuzja_21 @  11.11.2006,  20:44 Найти цитируемый пост)
А если не трудно, то можно пример цикла, чтобы я схватил
Код
Option Explicit

Private Sub MSHFlexGrid1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)

'Имя:
Text1.Text = ""

'Фамилия:
Text2.Text = ""

'Переместим на верх курсор Recordset'a
Adodc1.Recordset.MoveFirst

Dim i As Integer

For i = 0 To MSHFlexGrid1.Row - 2
Adodc1.Recordset.MoveNext
Next i
    
    For i = MSHFlexGrid1.Row To Adodc1.Recordset.RecordCount
   
        Text1.Text = Text1.Text & Adodc1.Recordset.Fields(0) & " | "
        Text2.Text = Text2.Text & Adodc1.Recordset.Fields(1) & " | "
        Adodc1.Recordset.MoveNext
       
    Next i

End Sub

Kuzja_21, пора уже начать самому думать. smile 


--------------------
i_i 
(';') 
(V)

user posted image
PM MAIL   Вверх
Kuzja_21
Дата 11.11.2006, 22:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 8
Регистрация: 10.11.2006

Репутация: нет
Всего: нет
Спасибо. Стараюсь) Я программирование только 2-й месяц занимаюсь smile

Добавлено @ 22:42 
Вот так всегда, я вроде понимаю, что нужно делать, но не получается - опыта маловато((
PM MAIL   Вверх
Voldemar2004
Дата 11.11.2006, 23:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1650
Регистрация: 25.12.2004

Репутация: 7
Всего: 23
Цитата(Kuzja_21 @  11.11.2006,  23:41 Найти цитируемый пост)
 Я программированиеМ только 2-й месяц занимаюсь
А, ну тогда все нормуль, если есть желание - все получится. Будут вопросы - спрашивай, не стесняйся.  smile 


--------------------
i_i 
(';') 
(V)

user posted image
PM MAIL   Вверх
Kuzja_21
Дата 11.11.2006, 23:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 8
Регистрация: 10.11.2006

Репутация: нет
Всего: нет
Спасибо еще раз. Премного благодарен smile 
PM MAIL   Вверх
Kuzja_21
Дата 11.11.2006, 23:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 8
Регистрация: 10.11.2006

Репутация: нет
Всего: нет
Тут проблемка появилась:
1. В таблице при запуске пропадает значение из 1-й ячейки 1-й строки 1-го столбца
2. Выдает ошибку Run-time Error '424': Необходим объект
PM MAIL   Вверх
Voldemar2004
Дата 12.11.2006, 12:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1650
Регистрация: 25.12.2004

Репутация: 7
Всего: 23
Цитата(Kuzja_21 @  12.11.2006,  00:44 Найти цитируемый пост)
Выдает ошибку Run-time Error '424': Необходим объект
У меня все без проблем проходит. Какие объекты ты используешь? У меня ADODC + MS Иерархический ФлексГрид.
Цитата(Kuzja_21 @  12.11.2006,  00:44 Найти цитируемый пост)
В таблице при запуске пропадает значение из 1-й ячейки 1-й строки 1-го столбца
Код в студию.



--------------------
i_i 
(';') 
(V)

user posted image
PM MAIL   Вверх
Kuzja_21
Дата 15.11.2006, 01:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 8
Регистрация: 10.11.2006

Репутация: нет
Всего: нет
Нет-нет, спасибо, я уже все разобрал и все пашет + куча новых идей, много кофе и энтузиазма)))

Добавлено @ 01:15 
А Вы разбираетесь в Ассемблере? Если что, я могу по поводу него обратиться?
PM MAIL   Вверх
Voldemar2004
Дата 15.11.2006, 12:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1650
Регистрация: 25.12.2004

Репутация: 7
Всего: 23
Цитата(Kuzja_21 @  15.11.2006,  02:14 Найти цитируемый пост)
А Вы разбираетесь в Ассемблере?
Пока в универе не проходили. smile 
Цитата(Kuzja_21 @  15.11.2006,  02:14 Найти цитируемый пост)
Если что, я могу по поводу него обратиться?
Лучше сюда: http://forum.vingrad.ru/ASM-forum.html



--------------------
i_i 
(';') 
(V)

user posted image
PM MAIL   Вверх
Kuzja_21
Дата 20.11.2006, 19:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 8
Регистрация: 10.11.2006

Репутация: нет
Всего: нет
Voldemar2004, Если не трудно, я Вам на мыло кинул сообщение, посмотрите, пожалуйста.
PM MAIL   Вверх
Voldemar2004
Дата 21.11.2006, 13:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1650
Регистрация: 25.12.2004

Репутация: 7
Всего: 23
Kuzja_21, из твоего описания я ничего не понял. Создай новый топик (или продолжи этот) и кинь свой файл с БД и исходник и более понятным языком опиши проблему. Скриншоты присылать не надо.


--------------------
i_i 
(';') 
(V)

user posted image
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0515 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.