Private Sub DataGrid_Service_CellMouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles DataGrid_Service.CellMouseDoubleClick
Grid_Treated_Data.ImportRow(Grid_Service_Data.Rows(e.RowIndex)) ' import ข้อมูลไปยัง datagird ของ TReated
Grid_Treated_Data.DefaultView.Sort = "ServID" 'จัดเรียงข้อมูลตาม ID
DataGrid_Treated.DataSource = Grid_Treated_Data
Set_GridTreated()
Grid_Service_Data.Rows(e.RowIndex).Delete() ' ลบ row ที่เลือกไป
Grid_Service_Data.AcceptChanges()
DataGrid_Service.DataSource = Grid_Service_Data 'bind ข้อมูล
Set_GridSV()
'-------------------------------------
'คำนวณค่าบริการ()
Dim total As Integer
For i As Integer = 0 To DataGrid_Treated.Rows.Count - 1
total = total + (CDbl(DataGrid_Treated.Rows(i).Cells(2).Value.ToString * 1))
Next
SerAmount.Text = total.ToString
แล้วก็อีก Grid นึง เหมือนกันค่ะ
Code (VB.NET)
Private Sub DataGrid_Treated_CellMouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles DataGrid_Treated.CellMouseDoubleClick
Grid_Service_Data.ImportRow(Grid_Treated_Data.Rows(e.RowIndex))
Grid_Service_Data.DefaultView.Sort = "ServID"
DataGrid_Service.DataSource = Grid_Service_Data
' DataGrid_Service.RowsDefaultCellStyle.WrapMode = True
Set_GridSV()
Grid_Treated_Data.Rows(e.RowIndex).Delete()
Grid_Treated_Data.AcceptChanges()
DataGrid_Treated.DataSource = Grid_Treated_Data
' DataGrid_Treated.RowsDefaultCellStyle.WrapMode = True
Set_GridTreated()
End Sub ' เมื่อลบข้อมูลใน Grid การรักษา
Private Sub Cal_Ms() 'คำนวณค่ายา
Dim total As Integer
For i As Integer = 0 To DataGrid_Prescription.RowCount - 1
If (DataGrid_Prescription.Rows(i).Cells(0).Value) = "" Then
MessageBox.Show("กรุณาใส่จำนวนที่ต้องจ่ายให้แก่ลูกค้าด้วยค่ะ !!")
Exit Sub
End If
If (DataGrid_Prescription.Rows(i).Cells(0).Value) <> "" Then
If Not IsNumeric(DataGrid_Prescription.Rows(i).Cells(0).Value) Then
MessageBox.Show("กรุณากรอกจำนวนตัวเลขด้วยครับ", "Error", MessageBoxButtons.OK, MessageBoxIcon.Information)
Exit Sub
End If
End If
total = total + (CDbl(DataGrid_Prescription.Rows(i).Cells(0).Value.ToString * DataGrid_Prescription.Rows(i).Cells(3).Value.ToString))
Next
MsAmount.Text = total.ToString
End Sub 'คำนวณค่ายา
อันนี้เป็น Event เมื่อใส่ค่าจำนวนใน Grid2
Code (VB.NET)
Private Sub DataGrid_Prescription_CellEndEdit(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGrid_Prescription.CellEndEdit
Cal_Ms()
End Sub ' กรอกจำนวนที่จ่าย แล้วทำการคำนวณค่ายา