Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.09.30;
Скачать: CL | DM;

Вниз

Сравнение двух полей, двух разных таблиц   Найти похожие ветки 

 
Gaber ©   (2002-09-09 14:03) [0]

Подскажите пожалуйста, как организовать такое сравнние:

Две таблицы, поля одинаковые, как сравнить содержимое?


 
Val ©   (2002-09-09 14:05) [1]

уточните вопрос, слижком уж общий получился.


 
Mike Kouzmine   (2002-09-09 14:12) [2]

Ok := true;
for I := 0 to t1.fielsacount - 1 do
begin
if t1.fields[I].fieldkind = fkData then
if t1.field[I].value <> t2.fieldbyname(t1.Fields[i].fieldname).Value then
begin
Ok := False;
Break;
end


 
Gaber ©   (2002-09-09 17:06) [3]

Есть две таблицы, я вывожу например в label1.caption, один ответ из одной таблицы, а в другие label ответ из другой таблицы, и кнопки, если нажата кнопка 1 сравнить label1.caption с содержанием поля таблицы 2, или через DBText. Или ComboBox.


 
Val ©   (2002-09-09 17:10) [4]

>Gaber © (09.09.02 17:06)
ну а в чем проблема, если вы смогли вывести эти данные в кэпшнс, почему не можете сравнить??


 
Gaber ©   (2002-09-09 18:22) [5]

Хотелось бы сравнивать не caption а именно поля таблиц, потому что я хотел выводить в качестве caption ответы из 2 таблицы, хотя, а как это будет выглядеть,

if label1.captions = ??????


 
Mike Kouzmine   (2002-09-09 18:33) [6]

if t1.fieldbyname("Vasia").Value = t2.fieldbyname("Vasia").Value


 
Val ©   (2002-09-09 18:35) [7]

if Table1.FieldByName("Field1").AsInteger <> Table2.FieldByName("Field2").AsInteger then...
впрочем, такой ответ вам уже дали выше.


 
MsGuns ©   (2002-09-09 21:38) [8]

Если сравнение нужно зараз по одной записи, то Val © ответил исчерпывающе, если для курсоров (гридов), представлющих множество записей, то лучший метод ИМХО таков:
Курсор 2 (записи табл.2) копируются во врем.таблицу Tmp (например, TBatchMove`ом) Из Tmp удаляются все записи, у которых указанные поля имеют то же значения, что и у Курсора 1, оставшиеся в Tmp и есть НЕСОВПАДАЮЩИЕ. Их можно зачитать куда угодно, подсчитать, вывести для глаз юзера и т.д.
Немного громозко в сырце, но "летает"



Страницы: 1 вся ветка

Текущий архив: 2002.09.30;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.027 c
3-97949
Listik
2002-09-06 15:50
2002.09.30
ib


14-98339
??
2002-09-05 22:54
2002.09.30
??


6-98256
Delphi5.01
2002-07-28 21:37
2002.09.30
Kak programno ustanovit prava dostupa k katalogu na vinte dla ...


1-98131
Explorer
2002-09-20 10:22
2002.09.30
Перенос проекта из D3 в D6


3-98019
Александр Спелицин
2002-09-10 18:59
2002.09.30
Искусственная уникальность в .