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

ปรับปรุง : 2566-10-15 (กระดานแสดงความคิดเห็น)

ตัวอย่าง VB สำหรับ MSHFlexgrid

Private Sub customername_Change

Set rs = cndb.Execute("select * from customer where cusname like '" & cusname.Text & "%'")
Set Grid1.DataSource = rs
Call hgrid
End Sub
Private Sub Form_Load Set rscus = cndb.Execute("select * from customer where status=0 order by cuscode")
Set Grid1.DataSource = rscus
Call hgrid
End Sub
Sub hgrid With Grid1
.TextMatrix(0, 1) = "id"
.TextMatrix(0, 2) = "name"
.ColWidth(0) = 200
.ColWidth(1) = 900
.ColAlignmentFixed(1) = 3
.ColAlignmentFixed(2) = 3
End With
End Sub
Private Sub Grid1_DblClick If ccc = 1 Then
frmsale.cusname.Text = Grid1.TextMatrix(Grid1.Row, 3)
ccc = 0
Unload Me
frmsale.tname.SetFocus
End If
End Sub

จากคุณ : บุรินทร์ .
03:28am (6/07/07)

บทความเกี่ยวกับไอทีในชีวิตประจำวัน (Information Technology in Life) ถูกเขียนลงในหนังสือพิมพ์ฅนเมืองเหนือ เป็นหนังสือพิมพ์รายสัปดาห์ เริ่มเขียนปลายปีพ.ศ. 2549 จนถึงมิถุนายน พ.ศ.2560 รวมได้ 611 บทความมีโฮมเพจอยู่ที่ http://www.thaiall.com/itinlife และ http://www.thaiall.com/opinion เพื่อเป็นแหล่งแบ่งปันเรื่องราวที่ได้พบ ได้อ่าน ได้ปฏิบัติ แล้วนำมาเรียบเรียงแบ่งปันแก่เพื่อนชาวไทย และส่งให้กองบรรณาธิการนำไปตีพิมพ์ลงในหนังสือพิมพ์ท้องถิ่นของจังหวัดลำปาง

Opinion แปลว่า ความคิดเห็น วาทะ ความเชื่อ ที่สามารถสะท้อนออกมาให้อยู่ในรูปของวรรณกรรม หรืองานเขียน ที่เรื่องราวจะถูกร้อยเรียงเป็นตัวอักษร ไล่เรียงตามลำดับให้ได้รู้และเข้าใจความคิดความเห็น ที่ไม่เลือนหายไปตามเวลาเหมือนความทรงจำ

version 1.3 (15 ตุลาคม 2566)

Thaiall.com

Truehits.net

"ไม่เริ่มต้นในวันนี้ จะไม่มีทางสำเร็จในวันพรุ่ง" โดย โยฮัน ว็อล์ฟกัง ฟ็อน เกอเทอ

Thaiall.com

Truehits.net