BMS-HOSxP Community

HOSxP => Report Exchange => ข้อความที่เริ่มโดย: ismailsa ที่ เมษายน 09, 2011, 11:55:12 AM

หัวข้อ: ใส่ขีด(-) ใน memo โดยอ้างค่าจาก Variabel
เริ่มหัวข้อโดย: ismailsa ที่ เมษายน 09, 2011, 11:55:12 AM

สวัสดีครับ อ.ทุกท่าน มีวิธีใส่ขีด(-) ใน memo ไหมครับ ผมลองใส่ใน Variable มันจะแสดงค่าแค่ตัวเดียว

procedure Variable2OnGetText(var Text: String);
begin

  Text := '-'+Text;

end;

แต่ถ้าใส่เป็น memo text มันจะไม่ตัดคำ
procedure Variable2OnGetText(var Text: String);
begin

  Text := '-'+Memo2.text;

end;
มีรูปมาให้ดูด้วยครับ

หัวข้อ: Re: ใส่ขีด(-) ใน memo โดยอ้างค่าจาก Variabel
เริ่มหัวข้อโดย: pop_hosxp ที่ เมษายน 09, 2011, 12:09:00 PM

ใช้ select concat("-", xxxx) as cc from table ครับ

หัวข้อ: Re: ใส่ขีด(-) ใน memo โดยอ้างค่าจาก Variabel
เริ่มหัวข้อโดย: ismailsa ที่ เมษายน 09, 2011, 14:18:52 PM

อ้างจาก: pop_hosxp ที่ เมษายน 09, 2011, 12:09:00 PM

ใช้ select concat("-", xxxx) as cc from table ครับ

อ้างจาก: pop_hosxp ที่ เมษายน 09, 2011, 12:09:00 PM

ใช้ select concat("-", xxxx) as cc from table ครับ

ใส่เข้าไปใน Variable  เลยใช่ไหมคับ
memo1.text:=GetListFromQuery('select risk_name  from check_group where check_group.group in ( "'+DBPipeline['name14']+'","'+DBPipeline['name15']+'","'+DBPipeline['name16']+'","'+DBPipeline['name17']+'","'+DBPipeline['r4']+'","'+DBPipeline['r5']+'","'+DBPipeline['r7']+'","'+DBPipeline['r8']+'" )');
ติด ERROR คับ

หัวข้อ: Re: ใส่ขีด(-) ใน memo โดยอ้างค่าจาก Variabel
เริ่มหัวข้อโดย: pop_hosxp ที่ เมษายน 09, 2011, 16:16:43 PM

อ้างจาก: ismailsa ที่ เมษายน 09, 2011, 14:18:52 PM

ใส่เข้าไปใน Variable  เลยใช่ไหมคับ
memo1.text:=GetListFromQuery('select risk_name  from check_group where check_group.group in ( "'+DBPipeline['name14']+'","'+DBPipeline['name15']+'","'+DBPipeline['name16']+'","'+DBPipeline['name17']+'","'+DBPipeline['r4']+'","'+DBPipeline['r5']+'","'+DBPipeline['r7']+'","'+DBPipeline['r8']+'" )');
ติด ERROR คับ

ใส่แบบนี้ครับ

memo1.lines.text:=GetListFromQuery('select concat("- ", risk_name) as risk_name  from check_group where check_group.group in ( "'+DBPipeline['name14']+'","'+DBPipeline['name15']+'","'+DBPipeline['name16']+'","'+DBPipeline['name17']+'","'+DBPipeline['r4']+'","'+DBPipeline['r5']+'","'+DBPipeline['r7']+'","'+DBPipeline['r8']+'" ) ');

หัวข้อ: Re: ใส่ขีด(-) ใน memo โดยอ้างค่าจาก Variabel
เริ่มหัวข้อโดย: ismailsa ที่ เมษายน 11, 2011, 09:36:15 AM

อ้างจาก: pop_hosxp ที่ เมษายน 09, 2011, 16:16:43 PM

อ้างจาก: ismailsa ที่ เมษายน 09, 2011, 14:18:52 PM

ใส่เข้าไปใน Variable  เลยใช่ไหมคับ
memo1.text:=GetListFromQuery('select risk_name  from check_group where check_group.group in ( "'+DBPipeline['name14']+'","'+DBPipeline['name15']+'","'+DBPipeline['name16']+'","'+DBPipeline['name17']+'","'+DBPipeline['r4']+'","'+DBPipeline['r5']+'","'+DBPipeline['r7']+'","'+DBPipeline['r8']+'" )');
ติด ERROR คับ

ใส่แบบนี้ครับ

memo1.lines.text:=GetListFromQuery('select concat("- ", risk_name) as risk_name  from check_group where check_group.group in ( "'+DBPipeline['name14']+'","'+DBPipeline['name15']+'","'+DBPipeline['name16']+'","'+DBPipeline['name17']+'","'+DBPipeline['r4']+'","'+DBPipeline['r5']+'","'+DBPipeline['r7']+'","'+DBPipeline['r8']+'" ) ');

ได้แล้วครับ ขอบคุณท่าน pop_hosxp มากครับ