ใส่ Comment หลายบรรทัด

VFP ไม่มีคอมเมนต์หลายบรรทัดหรือ /* */ อย่างเช่นภาษาตระกูลซี อย่างไรก็ตาม เราสามารถใช้เทคนิค Preprocessor Directive มาแทนได้ สมมติว่า ต้องการใส่คอมเมนต์ชุดคำสั่งทั้งหมด เช่น 
* lcSqlcmd = "SELECT * FROM t_stmas ORDER BY 1"
* rs = SQLEXEC(cn, lcSqlcmd, "stmas") 
* IF rs>0
*  SELECT stmas
*  BROWSE
* ENDIF
แทนที่จะต้องเสียเวลาใส่ * ทีละบรรทัดข้างต้นก็ให้ใส่ #IF ... #ENDIF คร่อมไว้ทำนองเดียวกับ /* */ ของ C 
#IF .F.
lcSqlcmd = "SELECT * FROM t_stmas ORDER BY 1"
rs = SQLEXEC(cn, lcSqlcmd, "stmas") 
IF rs>0
 SELECT stmas
 BROWSE
ENDIF
#ENDIF
พูดเป็นนัยว่า แทนที่จะสั่งให้บรรทัดนั้นเป็นคอมเมนต์ ก็สั่งไปเลยว่า ไม่ต้องคอมไพล์ชุดคำสั่งข้างต้นนั่นล่ะ ลองนำเทคนิคนี้ไปประยุกต์ใช้กับภาษาอื่น ๆ ที่ใส่คอมเมนต์ได้ทีละบรรทัดได้น่ะ :-)

ความคิดเห็น

แสดงความคิดเห็น

โพสต์ยอดนิยมจากบล็อกนี้

หลายหลายวิธีแสดงข้อมูลด้วย Grid

รูปภาพ
หลักการนำข้อมูลจากฐานข้อมูลต่างๆแสดงในกริด (Grid) โดยทั่วไปคือ เลือกช่วงข้อมูลจากฐานข้อมูลด้วยคำสั่ง SELECT SQL เก็บไว้ในเคอร์เซอร์ (Cursor) ชั่วคราวก่อน หลังจากนั้นก็นำเคอร์เซอร์ดังกล่าวไปใส่ในกริด โดยระบุชื่อเคอร์เซอร์ดังกล่าวใน RecordSource Property ของกริดเท่านั้นเอง แต่เนื่องจากวิชวลฟอกซ์โปรมีความสามารถในการติดต่อกับฐานข้อมูลได้หลากหลาย ดังนั้นหลายท่านจึงมักสับสนว่า ควรใช้งานเมื่อไร อย่างไร สรุปให้ง่ายๆก็คือ ให้ท่านเลือกใช้ตามความชอบและความถนัดของท่าน ตัวอย่าง แสดงรายชื่อพนักงานจากฐานข้อมูลตัวอย่าง Tastrade ใน Grid 1 Native ใช้กับไฟล์ฐานข้อมูลของฟอกส์โปรโดยตรง ให้ดูประโยคคำสั่ง SELECT... INTO CURSOR cPath = HOME(2) + "Tastrade\Data\tastrade.dbc" OPEN DATABASE (cPath) SELECT * FROM employee INTO CURSOR c_data THISFORM.Grid1.RecordSource = "c_data" 2 SQL-Passthru (SPT ผ่าน ODBC) ใช้กับฐานข้อมูลอะไรก็ได้ผ่าน ODBC ให้ดูประโยคคำสั่ง =SQLEXEC( "SELECT....", "Cursor" ) ประโยคการเชื่อมต่อกับฐานข้อมูลต่างๆ * DSN cStrConn...
อ่านเพิ่มเติม

ทำไมรันโปรแกรม EXE แล้วหายแว๊บ !

รูปภาพ
" หลายท่านมักสงสัยว่า ทำไมเวลารันทดสอบฟอร์มในโปรเจ็กต์ของ VFP ก็ทำงานได้ปกติ แต่เมื่อคอมไพล์โปรเจ็กต์เป็นแอปพลิเคชัน (EXE) ปรากฎว่า รันโปรแกรมแล้วหายแว๊บ ! " ก่อนอื่นให้พิจารณา Project Manager ของเราก่อนว่า ต้องการกำหนดให้ Form, Menus หรือ Program เป็น Main ของโปรเจ็กต์ หลักการโดยทั่วไปก็คือ ถ้าหากไม่มีการแสดงฟอร์มแบบ Modal ในตอนเริ่มทำงานของโปรแกรม ก็ต้องมีคำสั่ง READ EVENTS ไว้สักที่ใดที่หนึ่ง เพื่อสั่งให้โปรแกรมของเรารอรับเหตุการณ์ก่อน เมื่อใดที่ต้องการกลับไปยังบรรทัดถัดจาก READ EVENTS ข้างต้น ก็ให้ใช้คำสั่ง CLEAR EVENTS อ่านเพิ่มเติม คลิกที่นี่ ตัวอย่าง 1 ฟอร์ม (scx) เป็น Main ในโปรเจ็กต์ สร้างโปรเจ็กต์ใหม่ ตัวอย่างเช่น Proj1.pjx สร้าง Forms ใหม่ ตัวอย่าง Form1.scx กำหนด Desktop Property เป็น .T. กำหนด WindowType Property เป็น 1 - Modal เขียนคำสั่ง _SCREEN.Left = -5000 ใน Load Method Project Manager | Documents คลิกขวาที่ Form1 เลือกเมนู Set Main คอมไพล์โปรเจ็กต์ (Build) เป็นไฟล์ exe แล้วรันทดสอบดูครับ ... ตัวอย่าง 2 โปรแกรม (prg) เป็น Main ใ...
อ่านเพิ่มเติม

FAQ: Visual Foxpro Runtime Error

Cannot locate the Microsoft Foxpro Support Library สาเหตุ: เครื่องนั้นไม่มี VFP Runtime Library ทางแก้ไข: ลงไฟล์ Runtime Library ต่างๆตามเวอร์ชันของวิชวลฟอกส์โปรในโฟล์เดอร์ Windows ของเครื่องนั้น ดาวน์โหลดได้ที่ github.com/VFPX/VFPRuntimeInstallers Error initializing Application object สาเหตุ: ส่วนใหญ่เกิดจากการรัน VFP เวอร์ชันเก่าบน Windows 7, 8, 10 หรือสูงกว่า ทางแก้ไข: คลิกขวา (Right Click) ที่โปรแกรมแล้วรันแบบ Run As Administrator (ทำครั้งแรกครั้งเดียวเท่านั้น) เพื่อให้ VFP มีสิทธิ์ในการเขียน Registry ในวินโดวส์ หลังจากนั้นก็จะเปิดใช้งานได้ปกติ แต่ถ้าหากทำแล้วยังไม่ได้ผลก็ให้ลองปรับลดระดับ UAC ของวินโดวส์ให้ต่ำลง ทำไมรันโปรแกรม EXE แล้วหายแว๊บ ! หลายท่านมักสงสัยว่า ทำไมเวลารันทดสอบฟอร์มในโปรเจ็กต์ของ VFP ก็ทำงานได้ปกติ แต่เมื่อคอมไพล์โปรเจ็กต์เป็นแอปพลิเคชัน (EXE) ก่อนอื่นให้พิจารณา Project Manager ของเราก่อนว่า ต้องการกำหนดให้ Form, Menus หรือ Program เป็น Main ของโปรเจ็กต์ หลักการโดยทั่วไปก็คือ ถ้าหากไม่มีการแสดงฟอร์มแบบ Modal ในตอนเริ่มทำงานของโปรแกรม ก็ต้อง...
อ่านเพิ่มเติม