MyArray

← →
N (2004-09-21 07:48) [0]

Здравствуйте, подскажите пожалуйста, почему не работает -
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;

← →
ЮЮ © (2004-09-21 08:46) [1]

подскажие, пожалуйста, КАК не работает ?

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

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

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

← →
N (2004-09-21 12:02) [2]

да надо то, совсем другое
не ранж от [MyArray[0]] до [MyArray[i]]
а фильтр на таблицу по каждой строке Query,
не додумала
придется делать поиск в таблице (выводя строку в отдельном окне),
находясь на определенной строке Query.
не знаю понятно, нет
ну, больше думаю никак
да, спасибо за ответ

MyArray Найти похожие ветки