//대략 소스는 이렇습니다.

//우선 테이블이 두개입니다.

//컨트롤그리드를 사용해서 (item)을 불러오려고합니다.그런데 하나도 안불러와지는데 어디가 잘못되었는지 고수님덜 찝어주세오ㅛ.

procedure TFmain.Button1Click(Sender: TObject);

var

witem, wbase : string;

wdate, wampm : string;

i:integer;

begin



if fdm.Twitem.eof=false then begin

for i:=0 to fdm.twitem.recordcount-1 do

begin

fdm.Twonsu.append;

fdm.Twitem.First ;

witem:= fdm.TwitemWitem.AsString ;

wbase:= fdm.TwitemWbase.AsString ;

wdate:= fdm.TdateDate.AsString ;

wampm:=fdm.TdateAmpm.AsString ;





fdm.TwonsuWitem.AsString := witem;

fdm.TwonsuWbase.AsString := wbase;

fdm.TwonsuWDate.Asstring := wdate;

fdm.TwonsuWAmpm.AsString := wampm;

fdm.twonsu.Post ;

fdm.Twitem.Next ;



end;

end;

dbedit1.setfocus;



end;