สอบถามการเขียน if then else ครับ

[Bond_007]

พอดีผมสร้าง variable ขึ้นมา 1 อัน เขียน code ดังนี้ครับ

 if DBPipeline['vn']=DBPipeline['an'] then
doctor := GetSQLStringData('select incharge_doctor from ipt where an="'+DBPipeline['vn']+'"');
Value := 'á¾·Âì'+ ' ' +GetSQLStringData('select name from doctor  where code ="'+doctor+'"');
else
doctor := GetSQLStringData('select dx_doctor from vn_stat where vn="'+DBPipeline['vn']+'"');
Value := 'á¾·Âì'+ ' ' +GetSQLStringData('select name from doctor  where code ="'+doctor+'"');

ไม่ทราบต้องแก้ยังไงครับขอบคุณครับ

[Svl2Nuk3]

พอดีผมสร้าง variable ขึ้นมา 1 อัน เขียน code ดังนี้ครับ

 if DBPipeline['vn']=DBPipeline['an'] then
doctor := GetSQLStringData('select incharge_doctor from ipt where an="'+DBPipeline['vn']+'"');
Value := 'á¾·Âì'+ ' ' +GetSQLStringData('select name from doctor  where code ="'+doctor+'"');
else
doctor := GetSQLStringData('select dx_doctor from vn_stat where vn="'+DBPipeline['vn']+'"');
Value := 'á¾·Âì'+ ' ' +GetSQLStringData('select name from doctor  where code ="'+doctor+'"');

ไม่ทราบต้องแก้ยังไงครับขอบคุณครับ

 if DBPipeline['vn']=DBPipeline['an'] then
begin
doctor := GetSQLStringData('select incharge_doctor from ipt where an="'+DBPipeline['vn']+'"');
Value := 'á¾·Âì'+ ' ' +GetSQLStringData('select name from doctor  where code ="'+doctor+'"');
end
else
begin
doctor := GetSQLStringData('select dx_doctor from vn_stat where vn="'+DBPipeline['vn']+'"');
Value := 'á¾·Âì'+ ' ' +GetSQLStringData('select name from doctor  where code ="'+doctor+'"');
end;

ลองดูครับ  ว่าแต่   if DBPipeline['vn']=DBPipeline['an'] then 
vn  กับ  an  มันจะเท่ากันตอนไหนอ่ะคับ

[Bond_007]

ในตาราง rcpt_debt ของผม เลข vn มีทั้ง vn และ an ครับขอบคุณมากครับ

พอดีผมสร้าง variable ขึ้นมา 1 อัน เขียน code ดังนี้ครับ

 if DBPipeline['vn']=DBPipeline['an'] then
doctor := GetSQLStringData('select incharge_doctor from ipt where an="'+DBPipeline['vn']+'"');
Value := 'á¾·Âì'+ ' ' +GetSQLStringData('select name from doctor  where code ="'+doctor+'"');
else
doctor := GetSQLStringData('select dx_doctor from vn_stat where vn="'+DBPipeline['vn']+'"');
Value := 'á¾·Âì'+ ' ' +GetSQLStringData('select name from doctor  where code ="'+doctor+'"');

ไม่ทราบต้องแก้ยังไงครับขอบคุณครับ

 if DBPipeline['vn']=DBPipeline['an'] then
begin
doctor := GetSQLStringData('select incharge_doctor from ipt where an="'+DBPipeline['vn']+'"');
Value := 'á¾·Âì'+ ' ' +GetSQLStringData('select name from doctor  where code ="'+doctor+'"');
end
else
begin
doctor := GetSQLStringData('select dx_doctor from vn_stat where vn="'+DBPipeline['vn']+'"');
Value := 'á¾·Âì'+ ' ' +GetSQLStringData('select name from doctor  where code ="'+doctor+'"');
end;

ลองดูครับ  ว่าแต่   if DBPipeline['vn']=DBPipeline['an'] then 
vn  กับ  an  มันจะเท่ากันตอนไหนอ่ะคับ

[เกื้อกูล ครับ..]

พอดีผมสร้าง variable ขึ้นมา 1 อัน เขียน code ดังนี้ครับ

 if DBPipeline['vn']=DBPipeline['an'] then
doctor := GetSQLStringData('select incharge_doctor from ipt where an="'+DBPipeline['vn']+'"');
Value := 'á¾·Âì'+ ' ' +GetSQLStringData('select name from doctor  where code ="'+doctor+'"');
else
doctor := GetSQLStringData('select dx_doctor from vn_stat where vn="'+DBPipeline['vn']+'"');
Value := 'á¾·Âì'+ ' ' +GetSQLStringData('select name from doctor  where code ="'+doctor+'"');

ไม่ทราบต้องแก้ยังไงครับขอบคุณครับ

 if DBPipeline['vn']=DBPipeline['an'] then
begin
doctor := GetSQLStringData('select incharge_doctor from ipt where an="'+DBPipeline['vn']+'"');
Value := 'á¾·Âì'+ ' ' +GetSQLStringData('select name from doctor  where code ="'+doctor+'"');
end
else
begin
doctor := GetSQLStringData('select dx_doctor from vn_stat where vn="'+DBPipeline['vn']+'"');
Value := 'á¾·Âì'+ ' ' +GetSQLStringData('select name from doctor  where code ="'+doctor+'"');
end;

เยี่ยม..มากครับ