Private Sub F_ORDER_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load BindDataGrid() End Sub Private Sub BindDataGrid() sql = "select * from dataorder" Dim dtt As DataTable = SelectSQL(sql) Me.DataGridView1.DataSource = DT Me.DataGridView1.Columns.Clear() Dim column As DataGridViewTextBoxColumn column = New DataGridViewTextBoxColumn() column.DataPropertyName = "proid" column.HeaderText = "รหัสสินค้า" column.Width = 50 Me.DataGridView1.Columns.Add(column) column = New DataGridViewTextBoxColumn() column.DataPropertyName = "proname" column.HeaderText = "ชื่อสินค้า" column.Width = 100 Me.DataGridView1.Columns.Add(column) column = New DataGridViewTextBoxColumn() column.DataPropertyName = "unitdetail" column.HeaderText = "หน่วย" column.Width = 100 Me.DataGridView1.Columns.Add(column) column = New DataGridViewTextBoxColumn() column.DataPropertyName = "unitcost" column.HeaderText = "จำนวนซื้อ" column.Width = 50 Me.DataGridView1.Columns.Add(column) column = New DataGridViewTextBoxColumn() column.DataPropertyName = "unitprice" column.HeaderText = "ราคา" column.Width = 50 Me.DataGridView1.Columns.Add(column) column = New DataGridViewTextBoxColumn() column.DataPropertyName = "dtotal" column.HeaderText = "รวม" column.Width = 50 Me.DataGridView1.Columns.Add(column) DT = Nothing End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click sql = "insert into reportorder (orderid,proid,proname,amount,unitcost,orderdate,supname) 'values (" & ไม่ทราบว่าจะกำหนดค่าอย่างไรอะครับ ช่วยทีนะครับ& ")" RunSQL(sql) End Sub
เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง