เอาไปลองดูพอเป็นแนวทางครับ.... ...ถ้าปรับแล้วก็ขอใช้ด้วยครับ...
55 code ยากจัง เป็น script อย่างนี้อ่านไม่เป็น
unit MyIPDReport;
function getsqlsubquerydatax(sql:string):string;
begin
result:='';
zquery.close;
zquery.sql.text:=sql;
zquery.open;
zquery.first;
while not zquery.eof do
begin
if result='' then result:=''''+zquery.fields[0].asstring+'''' else
result:=result+','''+zquery.fields[0].asstring+'''';
................
ผมลองรันแล้ว ค่ามันแปลกๆครับ
จำนวนภาวะแทรกซ้อนมากกว่าจำนวนรวมทั้งหมดอีก
ผมว่าจะใส่ variable ลงไปในแต่ละช่องดู
น่าจะแก้ได้เข้าใจกว่า
แต่คงจะต้องใช้ variable มากพอดู + calculate นาน