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

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

เว็บเพจหน้านี้สำหรับผู้ดูแลเท่านั้น
รหัส secure =>	นำตัวอักษร สีขาวบนพื้นแดง มาป้อนในช่องนี้
edit_topic_password =>
<center><table width=90% border=0 bgcolor=#000080><tr><td><font color=white size=4>ตัวอย่าง VB สำหรับ MSHFlexgrid</td></tr></table><table width=90% bordercolor=#000080 border=1><tr><td bgcolor=white><br>Private Sub customername_Change()<br /> Set rs = cndb.Execute("select * from customer where cusname like '" & cusname.Text & "%'")<br /> Set Grid1.DataSource = rs<br /> Call hgrid<br /> End Sub<br /> Private Sub Form_Load()<br /> Set rscus = cndb.Execute("select * from customer where status=0 order by cuscode")<br /> Set Grid1.DataSource = rscus<br /> Call hgrid<br /> End Sub<br /> Sub hgrid()<br /> With Grid1<br /> .TextMatrix(0, 1) = "id"<br /> .TextMatrix(0, 2) = "name"<br /> .ColWidth(0) = 200<br /> .ColWidth(1) = 900<br /> .ColAlignmentFixed(1) = 3<br /> .ColAlignmentFixed(2) = 3<br /> End With<br /> End Sub<br /> Private Sub Grid1_DblClick()<br /> If ccc = 1 Then<br /> frmsale.cusname.Text = Grid1.TextMatrix(Grid1.Row, 3)<br /> ccc = 0<br /> Unload Me<br /> frmsale.tname.SetFocus<br /> End If<br /> End Sub<br /> <br /> <br><br></td></tr><tr><td align=right bgcolor=black><font color=white><small><b>จากคุณ :</b> บุรินทร์ <a href=mailto:></a><a title='202.29.78.101'>.</a><br> 03:28am (6/07/07)</font></td></tr></table></center>