แวะมาดันซะหน่อย..ง
![ยิงฟันยิ้ม ;D](https://hosxp.net/smf2/Smileys/default/grin.gif)
วาง variable
Value := GetSQLSubqueryData('select icd10 from iptdiag where an="'+DBPipeline['an']+'" and diagtype="2"');
memo1.lines.text:=GetListFromQuery('select name from icd101 where code in ('+
GetSQLSubqueryData('select icd10 from iptdiag where an="'+DBPipeline['an']+'" and diagtype="2"')+') ');
memo2.lines.text:=GetListFromQuery('select icd10 from iptdiag where an="'+DBPipeline['an']+'" and diagtype="2"');