음..데이타를 저장한 다음에..
프로그램을 종료했다가 다시 실행하면
데이타값이 딱 한개만 나오거든요..
저장을 했으니까 다나와야 하는데..
왜그런지 암만 봐도 잘 모르겠어요..
소스는요..
.
var
SQLString,SearchDate : String;
begin
SearchRowCnt := 0;
SearchDate := FormatDateTime('YYYY-MM-DD',OrderDate.Date);
// DM.ADOCon.BeginTrans;
with DM.Query do
begin
Close;
SQL.Clear;
SQLString :='select a.*, b.item_name, c.buy_name';
SQLString := SQLString +' from tb_layin a, bas_item b, bas_buy c';
SQLString := SQLString + ' where a.item_code=b.item_code and a.buyer_code=c.buy_code and buying_date=:buying_date';
SQL.Add( SQLString);
Parameters.ParamByName('BUYING_Date').Value := SearchDate;
Open;
While NOT EOF do
begin
Inc(SearchRowCnt);
SearchGrid.Cells[0,SearchRowCnt] := FieldByName('Buying_ID').AsString;
SearchGrid.Cells[1,SearchRowCnt] := FieldByName('Buying_DATE').AsString;
SearchGrid.Cells[2,SearchRowCnt] := FieldByName('buy_Name').AsString;
SearchGrid.Cells[3,SearchRowCnt] := FieldByName('Charge_Name').AsString;
GetOrderDetail(SearchRowCnt);
SearchRowCnt := SearchRowCnt-1;
Next;
end;
end;
// DM.ADOCon.CommitTrans;
.
이거거든요..
select해서 값 가져오고..뿌려줬는데..
왜 자꾸 데이타가 덜나오는지..
혹시 select가 잘못된건가요?
알려주세요~
아시는분 답변 부탁드려요~(__)
즐코하세요...^^