Q&A

  • 이거점 갈쳐주세여
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문 안에소 레코드를 증가 시키면 될꺼 같은디.. 오떻게 하는지점....

1  COMMENTS
  • Profile
    컴맹... 2001.01.03 03:13
    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));

    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문 안에소 레코드를 증가 시키면 될꺼 같은디.. 오떻게 하는지점....