bu konuyla ilgili yine bi sorunla karşılaştım:) sorun şu :
ben forma iki tane edit koydum. birine barkod başlangıç numarasını dierine barkod adetini giriyorum.butona tıkladığımda o başlangıç numarası ile istenen adet kadar 1 artırarak barkod numaralarını ALICIDATA adındaki tabloma kaydediyorum.daha sonra ad ve soyad alanlarını excelden aktarmak istiyorum.bu aktarmadada sorun yok fakat önce barkod numaralarını kaydettiğim için ad ve soyadları barkodun bittiği satırın altından itibaren aktarıyor.yani diyelimki 4 tane barkod no kayıtlı tabloda, ad soyadları aktardığım zaman 5.satırdan başlayıp devam ediyor oysaki 1.barkod numarasının karşısına 1. ad ve soyadı, 2. barkod numarasının karşısına 2. ad ve soyadı.... kaydetmesi lazım.
bunun için yukarda verdiğim kodlara ilave olarak aşağıdaki satırları ekledim ama yine olmadı .
Kod: Tümünü seç
...
if (str <> '') then
begin
Update;
dm.ALICIDATA.First;
while not dm.ALICIDATA.Eof do
begin
dm.ALICIDATA.Edit;
for sutun:=1 to 2 do
dm.ALICIDATA.Fields[sutun+1].AsString :=sheet.cells[satir, sutun];
dm.ALICIDATA.post;
dm.ALICIDATA.next;
end;
end;
...