Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

MyArray [D5, Win95/98]

N © (2004-09-21 07:48:00)
Здравствуйте, подскажите пожалуйста, почему не работает -
DataModule1.wwTableRZ.SetRange([MyArray[0]], [MyArray[i]]);

procedure TFormPoiskIsp.BitBtnEgZadClick(Sender: TObject);
var MyArray: array of Smallint;
i :integer;
begin
DataModule1.wwTableRZ.IndexName := 'Reg_Zadaniya';

i := 0;
SetLength(MyArray, 100);
DataModule1.wwQueryRI.First;
MyArray[i] := DataModule1.wwQueryRI.fieldbyname('Regist_Zadaniya').Value;
//DataModule1.wwTableRZ.EditRangeStart;
//DataModule1.wwTableRZ.FieldByName('Regist_Zadaniya').Value := MyArray[i];
DataModule1.wwQueryRI.First;
while not DataModule1.wwQueryRI.EOF do
begin
i := i + 1;
DataModule1.wwQueryRI.Next;
MyArray[i] := DataModule1.wwQueryRI.fieldbyname('Regist_Zadaniya').Value;
end;
//DataModule1.wwTableRZ.EditRangeEnd;
//DataModule1.wwTableRZ.FieldByName('Regist_Zadaniya').Value := MyArray[i];
DataModule1.wwTableRZ.SetRange([MyArray[0]], [MyArray[i]]);
Showmessage(inttostr(MyArray[0]));
Showmessage(inttostr(MyArray[i]));
//DataModule1.wwTableRZ.ApplyRange;
wwDBGrid1.DataSource := DataModule1.wwDataSourceRZ;
end;

N (2004-09-21 12:02:00) [1]
да надо то, совсем другое
не ранж от [MyArray[0]] до [MyArray[i]]
а фильтр на таблицу по каждой строке Query,
не додумала
придется делать поиск в таблице (выводя строку в отдельном окне),
находясь на определенной строке Query.
не знаю понятно, нет
ну, больше думаю никак
да, спасибо за ответ

ЮЮ (2004-09-21 08:46:00) [2]
подскажие, пожалуйста, КАК не работает ?

Зачем 100 элементов массива, если используется 0 и "последний"?

отсортирован ли запрос wwQueryRI по 'Regist_Zadaniya' в первую очередь?

и зачем всё это надо?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »