Форум: "Базы";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.31;
Скачать: [xml.tar.bz2];




Вниз

Запись в поле... 


ЕвгенийА   (2001-12-30 19:06) [0]

Не могу записать в поле,
посмотрите что не так...
Ошибку пишет что-то вроде того что не дан доступ для редактирования....
вот:


Form6.Table1.Edit;
Form6.Table1.First;
for j:=1 to Form6.Table1.RecordCount do begin
if j=1 then
Form6.Table1.FieldByName("Col").Asinteger:=N;
if j=2 then
Form6.Table1.FieldByName("Col").Asinteger:=round(u10[t]);
if j=3 then
Form6.Table1.FieldByName("Col").Asinteger:=round(u12[t]);
if j=4 then
Form6.Table1.FieldByName("Col").Asinteger:=round(u13[t]);
if j=5 then
Form6.Table1.FieldByName("Col").Asinteger:=round(u14[t]);
if j=6 then
Form6.Table1.FieldByName("Col").Asinteger:=round(u15[t]);
if j=7 then
Form6.Table1.FieldByName("Col").Asinteger:=round(u16[t]);
if j=8 then
Form6.Table1.FieldByName("Col").Asinteger:=round(u17[t]);
if j=9 then
Form6.Table1.FieldByName("Col").Asinteger:=round(u18[t]);
if j=10 then
Form6.Table1.FieldByName("Col").Asinteger:=round(u19[t]);
if j=11 then
Form6.Table1.FieldByName("Col").Asinteger:=round(sumU1[t]);
if j=12 then
Form6.Table1.FieldByName("Col").Asinteger:=round(sumU2[t]);
if j=13 then
Form6.Table1.FieldByName("Col").Asinteger:=round(i20[t]);
if j=14 then
Form6.Table1.FieldByName("Col").Asinteger:=round(i22[t]);
if j=15 then
Form6.Table1.FieldByName("Col").Asinteger:=round(i23[t]);
if j=16 then
Form6.Table1.FieldByName("Col").Asinteger:=round(i24[t]);
if j=17 then
Form6.Table1.FieldByName("Col").Asinteger:=round(i25[t]);
if j=18 then
Form6.Table1.FieldByName("Col").Asinteger:=round(sumI1[t]);
if j=19 then
Form6.Table1.FieldByName("Col").Asinteger:=round(sumI2[t]);




Form6.Table1.Next;
end;

Form6.Table1.Post;



panov   (2001-12-30 19:09) [1]

Edit выдается на каждую редактируемую запись.
Точно так же, как и Post.



Wizard_Ex   (2002-01-02 13:49) [2]

Form6.Table1.First;
for j:=1 to Form6.Table1.RecordCount do begin
Form6.Table1.Edit;
if j=1 then
Form6.Table1.FieldByName("Col").Asinteger:=N;
if j=2 then
Form6.Table1.FieldByName("Col").Asinteger:=round(u10[t]);
if j=3 then
Form6.Table1.FieldByName("Col").Asinteger:=round(u12[t]);
if j=4 then
Form6.Table1.FieldByName("Col").Asinteger:=round(u13[t]);
if j=5 then
Form6.Table1.FieldByName("Col").Asinteger:=round(u14[t]);
if j=6 then
Form6.Table1.FieldByName("Col").Asinteger:=round(u15[t]);
if j=7 then
Form6.Table1.FieldByName("Col").Asinteger:=round(u16[t]);
if j=8 then
Form6.Table1.FieldByName("Col").Asinteger:=round(u17[t]);
if j=9 then
Form6.Table1.FieldByName("Col").Asinteger:=round(u18[t]);
if j=10 then
Form6.Table1.FieldByName("Col").Asinteger:=round(u19[t]);
if j=11 then
Form6.Table1.FieldByName("Col").Asinteger:=round(sumU1[t]);
if j=12 then
Form6.Table1.FieldByName("Col").Asinteger:=round(sumU2[t]);
if j=13 then
Form6.Table1.FieldByName("Col").Asinteger:=round(i20[t]);
if j=14 then
Form6.Table1.FieldByName("Col").Asinteger:=round(i22[t]);
if j=15 then
Form6.Table1.FieldByName("Col").Asinteger:=round(i23[t]);
if j=16 then
Form6.Table1.FieldByName("Col").Asinteger:=round(i24[t]);
if j=17 then
Form6.Table1.FieldByName("Col").Asinteger:=round(i25[t]);
if j=18 then
Form6.Table1.FieldByName("Col").Asinteger:=round(sumI1[t]);
if j=19 then
Form6.Table1.FieldByName("Col").Asinteger:=round(sumI2[t]);
Form6.Table1.Post;
Form6.Table1.Next;
end;

Думаю вообще что case лучше подойдет...

типа
case Form6.Table1.FieldByName("Col").Asinteger of
1 : Form6.Table1.FieldByName("Col").Asinteger:=N;
2 : Form6.Table1.FieldByName("Col").Asinteger:=round(u10[t]);
3 : Form6.Table1.FieldByName("Col").Asinteger:=round(u12[t]);
else xxxx
end;

......




Форум: "Базы";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.31;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.73 MB
Время: 0.02 c
4-100094          Русский               2001-11-30 20:49  2002.01.31  
Самый крутой и прикольный вопрос по API :-D


14-100063         panov                 2001-12-11 15:37  2002.01.31  
Угадайте, очем речь?


14-100061         Феликс                2001-12-10 23:18  2002.01.31  
Последний герой.


6-100023          pan                   2001-11-09 12:05  2002.01.31  
NMPOP3 Упорно не работает OnPacketRecvd !


6-100036          митя                  2001-11-08 18:19  2002.01.31  
Импорт данных