꾸뻑...



안녕들 하시지요..

쏘습니다.



이상하게 그려졌네요..



아래 부분에서 한번 돌려 줘야 되는디...



콤보박스 안에 내용물 숫자만큼만 돌리면 되거든요...



워떡게 숫자를 구할수 있을까요..



화살표 부분을 어떻게 해야될지 알려주세요.







if length(trim(co_name.text)) <> 0 then begin

val_s := '';

val_s := ' select distinct bad_orderno,bad_lotno,bad_model,bad_custom,bad_procname,

bad_name,bad_wonin,bad_workday from bad '

+ ' where bad_workday > ''' + formatdatetime('yyyy-mm-dd',DT1.date -1 ) + ''' '

+ ' and bad_workday < ''' + formatdatetime('yyyy-mm-dd',DT2.date +1 ) + ''' ' ;



Acemgr.FWSAceMgr.ToSqlRun(Query2,Val_s);



query2.First;

av1.ClearRect(0,1,Av1.colcount -1 , Av1.rowcount -1);

Av1.RowCount := 2;

i := 1;

j := 1;

while not(query2.Eof) do

begin

Av1.cells[0,i] := query2.fieldbyname('bad_orderno').asstring;

Av1.cells[1,i] := query2.fieldbyname('bad_lotno').asstring;

Av1.cells[2,i] := query2.fieldbyname('bad_custom').asstring;

Av1.cells[3,i] := query2.fieldbyname('bad_model').asstring;

Av1.cells[4,i] := query2.fieldbyname('bad_lotno').asstring;

Av1.cells[5,i] := query2.fieldbyname('bad_lotno').asstring;

Av1.cells[6,i] := query2.fieldbyname('bad_workday').asstring;



==================> while (co_wonin2.Itemindex.count -1) do <========== 이부분

begin

Av1.cells[j+7,0] := co_wonin.items[co_wonin.itemindex + j] ;

Val_q :='';

Val_q :='select sum(bad_su) from bad '

+ ' where bad_orderno = ''' + av1.cells[0,i] + ''' '

+ ' and bad_lotno = ''' + av1.cells[1,i] + ''' '

+ ' and bad_name = ''' + co_name2.Text + ''' '

+ ' and bad_wonin = ''' + co_wonin2.Items [co_wonin2.itemindex + j] + ''' ' ;

Acemgr.FWSAceMgr.ToSqlRun(Query5,Val_q);

memo1.text := val_q;

Av1.cells[j+7,i] := query5.fieldbyname('sum(bad_su)').asstring;

end;

j := j +1 ;

end;

query2.next;

Av1.RowCount := Av.RowCount + 1;



inc(i);

end;