ThaiPBL.com

จากที่ถามใน webboard เรื่องของการ search นั้นก็ให้ลองทำตามนี้ดูนะครับ
สร้าง dw ที่เราต้องการ search ข้อมูล

เปิด windows control ขึ้นมาแล้ววาง object ต่างๆลงไปดังนี้

single line edit

dw กำหนดให้ visible เอาใว้ด้วย ตั้งชื่อว่า dw_filter

ที่ sle ให้กำหนด user event ตั้งชื่อว่า edit แล้ว map กับ pbm_enchange ล้วพิมพ์สคริปต์นี้ลงไป

dw_Filter.setfilter("Sowid like '"+This.text+'%'+"'")
Dw_Filter.filter()

ตรง sowid นั้นคือ ชื่อคอลัมภ์ที่เราใช้งานอยู่

ที่ getfocus event พิมพ์สคริปต์นี้ลงไป

Dw_Filter.Show()
Dw_filter.x = This.x
Dw_Filter.Y = Integer(This.Y)-1005


ที่ open event ของ windows control พิมพ์สคริปต์นี้ลงไป

dw_filter.settransobject(sqlca)
dw_filter.retrieve()

       จากนั้นก็ลองรันดูนะครับ เมื่อเราป้อนค่าลงไปและค่านั้นสัมพันธ์กับค่าใน dw เจ้า dw ก็จะคัดข้อมูลออกมาให้ เช่น พิมพ์เลข 1 ลงไปข้อมูลที่ขึ้นต้นด้วยเลข 1 ก็จะถูกคัดออกมา สงสัยตรงไหนถามมาก็แล้วกันนะครับ อ้อ! ถ้าหากต้องใช้เป็นประจำในหลายๆ windows control ก็น่าที่จะทำเป็น user object ไปเลยจะได้ใช้งานง่ายหน่อยไม่ต้องมากำหนด user event ทุกครั้งที่ต้องใช้งาน


บทความนี้มาจาก www.soopawat.com