X11
Silver Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Почему-то в базу записывается только одна колонка.
Вот код (импорт из экселя):
Код:
For x:=2 to iLastRow+3 do begin
Телефон := fmScanner.OnlyDecImport(WorkSheet.Cells.Item[x,2].Value);
Посредник := WorkSheet.Cells.Item[x,3].Value;
Адрес := WorkSheet.Cells.Item[x,4].Value;
Примечание := WorkSheet.Cells.Item[x,5].Value;
slp.Clear;
if Pos(',', Телефон) <> 0 then
РазделительТелефонов := ','
else
if Pos(';', Телефон) <> 0 then
РазделительТелефонов := ';';
slp.Text := StringReplace(Телефон, РазделительТелефонов, #13, [rfReplaceAll, rfIgnoreCase]);
for iPhones := 0 to slp.Count - 1 do begin
GridDB1.DataController.Append;
Телефон := fmScanner.OnlyDec(slp[iPhones]);
if (length(Телефон) = 10) and ( copy(Телефон,1,1)<>'8' ) then
Телефон := '8'+Телефон;
//записывается в базу только ТЕЛЕФОН
GridDB1.Columns[GridDB1TEL.Index].EditValue := Телефон;
GridDB1.Columns[GridDB1NAME_MEDIATOR.Index].EditValue:= Посредник;
GridDB1.Columns[GridDB1ADDRESS.Index].EditValue := Адрес;
GridDB1.Columns[GridDB1Remark.Index].EditValue := Примечание;
GridDB1.DataController.post;
end;//for
end;//for
|
//записывается в базу только ТЕЛЕФОН
GridDB1.Columns[GridDB1TEL.Index].EditValue := Телефон;
все остальные колонки в базе имеют значение NULL
хотя сразу после импорта в гриде видны ВСЕ импортированные данные
D2007+FIBPlus+DevExpress
GridDB1 привязана к FibDataset
я понимаю, что можно записывать даные напрямую в FibDataset, но не понимаю, почему через GridDB1 не получается
Если ручками грид редактирую, то опять же в базу только телефон записывается
Добавлено:
Забыл дописать DevExpress 6.36
----------
/не мы такие, жизнь такая/ |
|
