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

Помогите найти ошибку в тексте программы   Найти похожие ветки 

← →
Alex Korukin   (2006-03-15 06:30) [0]


procedure TForm310119897012005.Table1TeacherChange(Sender: TField);
begin
if flag=false then begin // Если не импортирует из файла
 Query11.Active:=false;
 Query11.SQL.Text:="SELECT Teacher, Teachers."Union", Section FROM "teachers.DB" Teachers Where Teacher=""+Sender.Text+""";
 Query11.ExecSQL;
 Query11.Active:=true;
 flag2:=true;
 DBGrid1.Columns[10].PickList.Clear;
 while not Query11.Eof do Begin
   DBGrid1.Columns[10].PickList.Add(Query11Union.Text);
   Query11.Next;
 end;
 Table1Union.Text:="";
 Query11.Close;
end;
end;


В строке Table1Union.Text:=""; выдаёт "Stack owerflow". Не знаю как лечть...

---

← →
atruhin ©   (2006-03-15 06:56) [1]

>>Table1Union.Text:="";
А что это вообще такое? У TTable вроде нет свойства Text.
>> Teacher=""+Sender.Text+"""
Вот здесь тоже будет ошибка. Можешь убедиться введя в Sender.Text строку с двойными кавычками. ИСПОЛЬЗУЙ параметры.

---

← →
Alex Korukin   (2006-03-15 07:25) [2]

> >>Table1Union.Text:="";
> А что это вообще такое? У TTable вроде нет свойства Text.
>

У TTable - нет а у поля Union - есть!
> >> Teacher=""+Sender.Text+"""
> Вот здесь тоже будет ошибка. Можешь убедиться введя в Sender.
> Text строку с двойными кавычками. ИСПОЛЬЗУЙ параметры.

Здесь тоже нету ошибки... это 100%. может только в грамотности и правильности подхода... А про пораметры ты прав... только я когда начинал это всё делать про них ещё не знал)))

---

← →
atruhin ©   (2006-03-15 07:44) [3]

>>У TTable - нет а у поля Union - есть!
Не понял из текста, что это за объект. Возможно в Table1 нет записей. Во вторых где у тебя Table1.Edit; Table1.Post; ?
>>Здесь тоже нету ошибки... это 100%.
Здесь есть 100% :). Я написал как проверить.

---

← →
Плохиш ©   (2006-03-15 11:17) [4]

> procedure TForm310119897012005.Table1TeacherChange(Sender:
>  TField);


>  Table1Union.Text:="";

Советую использовать встроенный в делфи отладчик, а не форум.

PS. А это чёй-то такое?
Query11.ExecSQL;
Query11.Active:=true;
Надо бы почитать чего, перед топтанием кнопок.

---

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

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



Память: 0.46 MB
Время: 0.242 c