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
---------- /не мы такие, жизнь такая/ |
|