Форум: "Начинающим";
Текущий архив: 2006.09.10;
Скачать: [xml.tar.bz2];
Вниз
как скопировать выделенную строчку из DBgrid в листбокс!!! help!! Найти похожие ветки
← →
Voit © (2006-08-18 14:34) [0]Собственно задача стоит следующая-есть dbgrid в которую засасывается некая таблица (точнее всего одно поле из этой таблицы с названием организаций ),нужно что бы пользователь из тсписка организаций ,который высвечивается в DBgrid е набрал список тех,которые ему нужны( на форму бросил сам dbgrid и listbox, где собственно и планирую создавать список).Нужно что бы по двойному щелчку на строчку в DBgrid запись перемещалась в лисбокс.
Помогите,сам не давно за делфями,так что совсем еще зеленый,а сделать нужно очень срочно...если можно,ответ развернутый. Заранее спасибо!!!!
← →
unknown © (2006-08-18 14:48) [1]Всю запись? Пжалста :)
procedure TForm1.DBGrid1DblClick(Sender: TObject);
var
i:integer;
s:string;
begin
{DBGrid не содержит данных. Он их только отображает.
Данные содержатся в DataSet}
with DBGrid1.DataSource.DataSet do
begin
for i:=0 to Pred(Fields.Count) do // Хотим значения всех полей, да?
{Чтобы вытащить значения поля - у него есть соответствующие методы.
В данном случае AsString. Можно и AsInteger, AsDateTime и т.п. As...}
s:=s+Fields[i].AsString+" ";
{Добавляем в листбокс. Можно еще и проверять на дубли, но это другая история :) }
ListBox1.Items.Add(s);
end;
end;
← →
Voit © (2006-08-18 14:58) [2]Конечно не содержит!! очепятка=))
В дбгриде у меня только один столбецнет,
нужно что бы по двойному щелчку в листбокс занасилась одна запись,именно та которая сейчас выделенна.
работаю с оракл через Адо
← →
Voit © (2006-08-18 15:14) [3]Супер!!!" заработало!!!! пасиба!!! но...есть один маааленький вопрос....в дбгриде я оставил отображаться только один столбец-название оргшанизации,а в листбокс копируется вся строка из набора данных.а мона сделать так что бы копировалось в лист бокс только название....сорри за тупой вопрос,но пока я еще как буратинно=)
← →
DiamondShark © (2006-08-18 15:22) [4]
> сорри за тупой вопрос,но пока я еще как буратинно=)
"А вот и врёте!" (ц) Буратино.
Правильно так: "сорри, но лень читать код, букав много"
← →
Loginov Dmitry © (2006-08-18 15:23) [5]procedure TForm1.DBGrid1DblClick(Sender: TObject);
begin
ListBox1.Items.Add(DBGrid1.DataSource.DataSet.FieldByName("имя поля").AsString);
end;
← →
Voit © (2006-08-18 15:27) [6]А вот и нет...так я уже пробовал а делфя мне выдает ошибку-
[Error] org_u.pas(73): Undeclared identifier: "fielbyname"
и что это могло бы значить???
← →
PSPF2003 © (2006-08-18 15:29) [7]
> Voit ©
Мряк...
Ето точно буратино...
← →
Voit © (2006-08-18 15:32) [8]МУЖИКИ,СПАСИБААААААААААА!!!!!!!! ступил,заработалоооооооооооо!!!!!!!!!1 всем ОГРОМНОЕ СПАСИБО!!!! ВЫРУЧИЛИ!!!
← →
clickmaker © (2006-08-18 15:35) [9]
> МУЖИКИ,СПАСИБААААААААААА!!!!!!!!
иде пиво?
← →
Voit © (2006-08-18 15:40) [10]=) а как сделать что бы 2 раза одно и доже выбрать незя было=))) громко не ругаться ,говорю же еновенький=)
← →
unknown © (2006-08-18 15:50) [11]
> Voit © (18.08.06 15:40) [10]
Если ListBox.Items.IndexOf("тут_строка")>=0 тогда в Listbox уже введено это значение.
← →
Voit © (2006-08-18 15:55) [12]ПАСИБ!!!!!!!!!!!!!!
супер=))))
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.09.10;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.039 c
