Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
sqlcon(1) '' ต่อ connection
sb.Remove(0, sb.Length) '' คำสั่ง Query ข้อมูล
sb.Append("Select PromotionID ,CreateDate From Promotion")
sb.Append(" Where (PromotionID like '" & ComboBox1.Text & "%')")
sb.Append(" And (CreateDate Between '" & DateTimePicker1.Value.ToString("MM/dd/yyy") & "' And '" & DateTimePicker2.Value.ToString("MM/dd/yyy") & "')")
sql = sb.ToString() '' เก็บใน String
pro = Showquerysql(sql, "dtDetailPromotion") '' ยัดข้อมูลเข้า ใน datatable
With DataGridView1 '' โชว์ข้อมูลใน datagridveiw
.DataSource = pro
End With
End Sub
Private Sub DataGridView1_CellMouseClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles DataGridView1.CellMouseClick
If e.RowIndex = -1 Then Exit Sub
If DataGridView1.CurrentRow.Index < pro.Rows.Count Then '' เทียบข้อมูลใน datagridview กับ datatable
With DataGridView1
TextBox1.Text = .Rows.Item(e.RowIndex).Cells(0).Value '' กรณี textbox, datetimepicker อยู่ในฟอร์มเดียวกัน
DateTimePicker3.Value = .Rows.Item(e.RowIndex).Cells(1).Value
End With
End If
End Sub