Скачать: CL | DM;

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.
не знаю понятно, нет
ну, больше думаю никак
да, спасибо за ответ

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.021 c