Q&A

  • 레코드로 이동후에....

안녕하세요..
이번에는
리스트박스의 값을 읽어와서
그값과 같은 테이블의 필드 값을 다른 리스트 박스에 추가하려고
하는데 원하는 필드로 이동후에 레코드가 다른 곳으로 이동합니다
코딩은이렇게 했습니다.
var
str,str1,stritem:string;

begin
with wheelT do begin
  indexname:='wheelindex';
  active:=true;
  setkey;
  fieldbyname('maker').AsString:=makeritem;
  gotonearest;
end;             //여기 까지 하면 원하는 레코드로 이동을 할텐데..

while makeritem =  str1 do begin
  stritem:=wheelt.fieldbyname('model').AsString;
  if stritem < > str then begin
    modelbox.Items.Add(stritem);
    str:=stritem;
    wheelT.Next;
    str1:=wheelT.fieldbyname('maker').asstring;
  end;
end;
end;
어디가 문제인지  while 문 안으로 안들어 가네요..
그럼  봐주시고  논리상 틀린부분 좀 지적해 주세요
그럼 오늘 하루도 수고하시고요
좋은 하루 보내세요
0  COMMENTS