if RecordCount > 0 then
begin
for I := 1 TO RecordCount do
begin
CbB1.Items.Add( Copy(Q_MAE_HEAD2.fieldbyname ('ref_chg_no').AsString , 1,1) +'-'+
Copy(Q_MAE_HEAD2.fieldbyname('ref_chg_no').AsString , 2,3) +'-'+
Copy(Q_MAE_HEAD2.fieldbyname('ref_chg_no').AsString , 5,5 ) +'-'+
Copy(Q_MAE_HEAD2.fieldbyname('ref_chg_no').AsString , 10,3));
end;
CbB1.ItemIndex := 0 ;
end;
이렇게 하면.. 레코드수가 늘어나두 첫번째 레코드의 값만 가져 오거든여...
레코드를 for문 안에소 레코드를 증가 시키면 될꺼 같은디.. 오떻게 하는지점....
begin
for I := 1 TO RecordCount do
begin
CbB1.Items.Add( Copy(Q_MAE_HEAD2.fieldbyname ('ref_chg_no').AsString , 1,1) +'-'+
Copy(Q_MAE_HEAD2.fieldbyname('ref_chg_no').AsString , 2,3) +'-'+
Copy(Q_MAE_HEAD2.fieldbyname('ref_chg_no').AsString , 5,5 ) +'-'+
Copy(Q_MAE_HEAD2.fieldbyname('ref_chg_no').AsString , 10,3));
Next; // ==> 요게 빠진것 같은데여...
// Next를 해야지만 다음 레코드로 이동 합니다..
// 정확히 하자면 Table or Query.Next;
end;
CbB1.ItemIndex := 0 ;
end;
kimwonbae wrote:
> if RecordCount > 0 then
> begin
> for I := 1 TO RecordCount do
> begin
>
> CbB1.Items.Add( Copy(Q_MAE_HEAD2.fieldbyname ('ref_chg_no').AsString , 1,1) +'-'+
> Copy(Q_MAE_HEAD2.fieldbyname('ref_chg_no').AsString , 2,3) +'-'+
> Copy(Q_MAE_HEAD2.fieldbyname('ref_chg_no').AsString , 5,5 ) +'-'+
> Copy(Q_MAE_HEAD2.fieldbyname('ref_chg_no').AsString , 10,3));
> end;
> CbB1.ItemIndex := 0 ;
> end;
> 이렇게 하면.. 레코드수가 늘어나두 첫번째 레코드의 값만 가져 오거든여...
> 레코드를 for문 안에소 레코드를 증가 시키면 될꺼 같은디.. 오떻게 하는지점....