1
แจ้งปัญหา / ขอความช่วยเหลือ / Re: OPD CARD แบบแสดงผล LAB
« เมื่อ: กรกฎาคม 29, 2008, 11:51:49 AM »
ลองเอาโค้ดนี้ไปลองดูครับ
โค๊ด: [Select]
memo1.lines.text := GetListFromQuery('select concat(l.lab_items_name," = ",o.lab_order_result) as name from lab_head h,lab_order o,lab_items l where h.vn="'+ DBPipeline['vn']+
'" and h.lab_order_number = o.lab_order_number and o.lab_items_code = l.lab_items_code and o.confirm="Y" and (l.check_user<>"Y" or l.check_user IS NULL) ');