BMS-HOSxP Community
HOSxP => Report Exchange => ข้อความที่เริ่มโดย: pardon.yu ที่ กันยายน 11, 2022, 01:32:32 AM
-
ผมทำสติ๊กเกอร์วันนัด ทุกอย่างใช้ได้หมด อยากแก้ให้วันที่ เป็นวัน แบบ ตัวอย่างแบบนี้ 11 ม.ค. 2565 จะต้องเขียนโค้ดอย่างไรครับ ด้านล่างคือตัวอย่างโค้ดที่เขียนไว้ครับ วันที่มันออกมาเป็นแบบนี้ 11/01/2565
Label59.Caption:= GetSQLStringData ('select max(nextdate) from oapp where vn = "'+DBPipeline1['vn']+'"');
Label61.Caption:= GetSQLStringData ('select max(nextdate) from oapp where vn = "'+DBPipeline1['vn']+'" and note like "%lab%" ');
Label64.Caption:= GetSQLStringData ('select max(nextdate) from oapp where vn = "'+DBPipeline1['vn']+'" and note like "%สถานีสุขภาพ%" ');
-
ผมทำสติ๊กเกอร์วันนัด ทุกอย่างใช้ได้หมด อยากแก้ให้วันที่ เป็นวัน แบบ ตัวอย่างแบบนี้ 11 ม.ค. 2565 จะต้องเขียนโค้ดอย่างไรครับ ด้านล่างคือตัวอย่างโค้ดที่เขียนไว้ครับ วันที่มันออกมาเป็นแบบนี้ 11/01/2565
Label59.Caption:= GetSQLStringData ('select max(nextdate) from oapp where vn = "'+DBPipeline1['vn']+'"');
Label61.Caption:= GetSQLStringData ('select max(nextdate) from oapp where vn = "'+DBPipeline1['vn']+'" and note like "%lab%" ');
Label64.Caption:= GetSQLStringData ('select max(nextdate) from oapp where vn = "'+DBPipeline1['vn']+'" and note like "%สถานีสุขภาพ%" ');
ลองทดสอบดูครับ
Label59.Caption:= FormatThaiDate('d mm yyyy',GetSQLDateData ('select max(nextdate) from oapp where vn = "'+DBPipeline1['vn']+'" '));
Label61.Caption:= FormatThaiDate('d mm yyyy',GetSQLDateData ('select max(nextdate) from oapp where vn = "'+DBPipeline1['vn']+'" and note like "%lab%" '));
Label64.Caption:= FormatThaiDate('d mm yyyy',GetSQLDateData ('select max(nextdate) from oapp where vn = "'+DBPipeline1['vn']+'" and note like "%สถานีสุขภาพ%" '));
-
ได้แล้วครับ ขอบคุณมากครับ ผมมือใหม่หัดเขียนครับ
-
รบกวนอีกครั้ง ครับ หลังจากแก้โค้ดแล้ว ไม่สามารถพิมพ์สติกเกอร์ได้ ถ้าเงื่อนไข วันนัดไม่ครับ
จะมีวันนัดทั้งหมด 3 นัด ถ้าขาดนัดใดนัดหนึ่งจะพิมพ์ไม่ได้ กลายเป็นเออเร่อไปเลยครับ