Не понятная ошибка

@iqpment · Регистрация: 12.04.2014

Author24 — интернет-сервис помощи студентам

Привет всем, у меня программа при запуске выдаёт ошибку на скрине видна, появилась эта ошибка после того как я сделал Table lookup по коду услуги, и из таблицы услуги перенёс поле (наименование) в другую таблицу по коду услуги. Помогите пожалуйста! (Задумка была такая: при добавлении записи (код услуги) в таблицу ремонт (поле выполненная работа) забивалась автоматически)

@Пытливый · 05.04.2016, 23:05

Очень даже понятная, неверное обращение к элементу списка. Частенько возникает при неправильно заданной конечной границе в цикле.

@iqpment · 05.04.2016, 23:11 **[ТС]**

Пытливый, вот посмотри пожалуйста я не каких циклов не писал((

@iqpment · 05.04.2016, 23:12 **[ТС]**

Пытливый, таблица должна работать как на 2 скрине, но программа не запускается(( Помоги пожалуйста!

@Пытливый · 06.04.2016, 00:19

Проект я ваш не запускал, но вызывает подозрение вот эта штука:

Delphi

procedure TDataModule2.Table3FilterRecord(DataSet: TDataSet;
  var Accept: Boolean);
 var i: integer;
     j: Integer;
     s: string;
begin
 if Form4.ComboBox1.ItemIndex<>-1 then begin
   i:=Form4.ComboBox1.ItemIndex+1;
   s:=Trim(Form4.Edit10.Text);
   j:=Length(s);
   Accept:=Copy(DataSet.Fields[i].AsString,1,j)=s;
 end;

Вы абсолютно уверены, что у вас в DataSet количество полей всегда больше чем элементов в Form4.ComboBox1 ?

@iqpment · 06.04.2016, 07:22 **[ТС]**

Пытливый, блин если честно я вас непонял))
Добавлено через 1 минуту
Пытливый, в комбобоксе у меня 2 поля которые можно выбрать для фильтрации

@Пытливый · 06.04.2016, 08:17

DataSet.Fields[i]
В этом коде вы обращаетесь к полю с индексом i. Индекс в свою очередь вы вычисляете таким образом:
i:=Form4.ComboBox1.ItemIndex+1;
Что случится если в DataSet количество элементов будет равным Form4.ComboBox1.ItemIndex или меньше? Вы получите как раз ту самую ошибку с которой началась эта тема.

@iqpment · 06.04.2016, 08:49 **[ТС]**

Пытливый, что мне теперь делать?

Добавлено через 3 минуты
Пытливый, как я понял в комбобокс нужно добавить все поля которые есть в таблице?

@iqpment 0 / 0 / 0 Регистрация: 12.04.2014 Сообщений: 108
		1
	Не понятная ошибка 05.04.2016, 22:57. Показов 643. Ответов 7 Метки нет (Все метки) Привет всем, у меня программа при запуске выдаёт ошибку на скрине видна, появилась эта ошибка после того как я сделал Table lookup по коду услуги, и из таблицы услуги перенёс поле (наименование) в другую таблицу по коду услуги. Помогите пожалуйста! (Задумка была такая: при добавлении записи (код услуги) в таблицу ремонт (поле выполненная работа) забивалась автоматически) Миниатюры 0

@Пытливый 3586 / 2195 / 693 Регистрация: 29.05.2013 Сообщений: 9,375
	05.04.2016, 23:05	2
	Очень даже понятная, неверное обращение к элементу списка. Частенько возникает при неправильно заданной конечной границе в цикле. 0

@iqpment 0 / 0 / 0 Регистрация: 12.04.2014 Сообщений: 108
	05.04.2016, 23:12 [ТС]	4
	Пытливый, таблица должна работать как на 2 скрине, но программа не запускается(( Помоги пожалуйста! 0

@iqpment 0 / 0 / 0 Регистрация: 12.04.2014 Сообщений: 108
	06.04.2016, 07:22 [ТС]	6
	Пытливый, блин если честно я вас непонял)) Добавлено через 1 минуту Пытливый, в комбобоксе у меня 2 поля которые можно выбрать для фильтрации 0

@Пытливый 3586 / 2195 / 693 Регистрация: 29.05.2013 Сообщений: 9,375
	06.04.2016, 08:17	7
	DataSet.Fields[i] В этом коде вы обращаетесь к полю с индексом i. Индекс в свою очередь вы вычисляете таким образом: i:=Form4.ComboBox1.ItemIndex+1; Что случится если в DataSet количество элементов будет равным Form4.ComboBox1.ItemIndex или меньше? Вы получите как раз ту самую ошибку с которой началась эта тема. 0

@iqpment 0 / 0 / 0 Регистрация: 12.04.2014 Сообщений: 108
	06.04.2016, 08:49 [ТС]	8
	Пытливый, что мне теперь делать? Добавлено через 3 минуты Пытливый, как я понял в комбобокс нужно добавить все поля которые есть в таблице? 0