안녕하세요..
이번에는
리스트박스의 값을 읽어와서
그값과 같은 테이블의 필드 값을 다른 리스트 박스에 추가하려고
하는데 원하는 필드로 이동후에 레코드가 다른 곳으로 이동합니다
코딩은이렇게 했습니다.
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 문 안으로 안들어 가네요..
그럼 봐주시고 논리상 틀린부분 좀 지적해 주세요
그럼 오늘 하루도 수고하시고요
좋은 하루 보내세요