Y
yeser_macao
Unregistered / Unconfirmed
GUEST, unregistred user!
下面是一个从SpreadSheetbook把数据导入到Memdata的一个过程其中,pa 是一个,memdatamemedata里有
roduct_code,quantity,finish_date,三个东西,这个过程我不是很明白,希望高手指点!!!解释一下这个过程!procedure Tproduce_plan_input.BitBtn7Click(Sender: TObject);var k_i,k_j: integer; p_1: string;begin pa.Close ; pa.Open ; k_i :=0;k_j :=0; for k_i :=1 to 500 do begin getcelltext(0,k_i); if sk<>'' then begin for k_j :=0 to 100 do begin getcelltext(k_j,k_i); if k_j =0 then p_1 :=sk; if (k_j >2) and (sk<>'') then begin pa.Append ; pa.FieldByName('product_code').asstring :=p_1; pa.FieldByName('quantity').asfloat :=strtofloat(sk); getcelltext(k_j,0); pa.FieldByName('finish_date').asdatetime :=strtodate(sk); end; end; end; end;end;
roduct_code,quantity,finish_date,三个东西,这个过程我不是很明白,希望高手指点!!!解释一下这个过程!procedure Tproduce_plan_input.BitBtn7Click(Sender: TObject);var k_i,k_j: integer; p_1: string;begin pa.Close ; pa.Open ; k_i :=0;k_j :=0; for k_i :=1 to 500 do begin getcelltext(0,k_i); if sk<>'' then begin for k_j :=0 to 100 do begin getcelltext(k_j,k_i); if k_j =0 then p_1 :=sk; if (k_j >2) and (sk<>'') then begin pa.Append ; pa.FieldByName('product_code').asstring :=p_1; pa.FieldByName('quantity').asfloat :=strtofloat(sk); getcelltext(k_j,0); pa.FieldByName('finish_date').asdatetime :=strtodate(sk); end; end; end; end;end;