Private Sub dgTestler_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgTestler.CellContentClick If e.RowIndex >= 0 Then If dgTestler.Rows(e.RowIndex).Cells(6).Selected = True Then If dgTestler.Rows(e.RowIndex).Cells(6).Value = False And dgTestler.Rows(e.RowIndex).Cells(7).Value = False Then dgTestler.Rows(e.RowIndex).Cells(6).Selected = True dgTestler.Rows(e.RowIndex).Cells(9).Value = dgTestler.Rows(e.RowIndex).Cells(8).Value GenelToplam = GenelToplam + dgTestler.Rows(e.RowIndex).Cells(9).Value dgTestler.Rows(e.RowIndex).Cells(10).Value = dgTestler.Rows(e.RowIndex).Cells(8).Value * 100 dgTestler.Rows(e.RowIndex).Cells(11).Value = 1 TextBox1.Text = GenelToplam.ToString() Exit Sub ElseIf dgTestler.Rows(e.RowIndex).Cells(6).Value = True And dgTestler.Rows(e.RowIndex).Cells(7).Value = False Then dgTestler.Rows(e.RowIndex).Cells(6).Selected = False GenelToplam = GenelToplam - dgTestler.Rows(e.RowIndex).Cells(9).Value dgTestler.Rows(e.RowIndex).Cells(9).Value = "" dgTestler.Rows(e.RowIndex).Cells(10).Value = "" dgTestler.Rows(e.RowIndex).Cells(11).Value = "" TextBox1.Text = GenelToplam.ToString() Exit Sub ElseIf dgTestler.Rows(e.RowIndex).Cells(6).Value = True And dgTestler.Rows(e.RowIndex).Cells(7).Value = True Then dgTestler.Rows(e.RowIndex).Cells(6).Selected = True dgTestler.Rows(e.RowIndex).Cells(7).Selected = False dgTestler.Rows(e.RowIndex).Cells(9).Value = dgTestler.Rows(e.RowIndex).Cells(8).Value GenelToplam = GenelToplam + dgTestler.Rows(e.RowIndex).Cells(9).Value dgTestler.Rows(e.RowIndex).Cells(10).Value = dgTestler.Rows(e.RowIndex).Cells(8).Value * 100 dgTestler.Rows(e.RowIndex).Cells(11).Value = 1 TextBox1.Text = GenelToplam.ToString() Exit Sub End If ElseIf dgTestler.Rows(e.RowIndex).Cells(7).Selected = True Then If dgTestler.Rows(e.RowIndex).Cells(7).Value = False And dgTestler.Rows(e.RowIndex).Cells(6).Value = False Then dgTestler.Rows(e.RowIndex).Cells(7).Selected = True 'GenelToplam = GenelToplam - dgTestler.Rows(e.RowIndex).Cells(9).Value dgTestler.Rows(e.RowIndex).Cells(9).Value = 0 dgTestler.Rows(e.RowIndex).Cells(10).Value = 0 dgTestler.Rows(e.RowIndex).Cells(11).Value = 1 'TextBox1.Text = GenelToplam.ToString() Exit Sub ElseIf dgTestler.Rows(e.RowIndex).Cells(7).Value = True And dgTestler.Rows(e.RowIndex).Cells(6).Value = False Then dgTestler.Rows(e.RowIndex).Cells(7).Selected = False 'GenelToplam = GenelToplam - dgTestler.Rows(e.RowIndex).Cells(9).Value dgTestler.Rows(e.RowIndex).Cells(9).Value = "" dgTestler.Rows(e.RowIndex).Cells(10).Value = "" dgTestler.Rows(e.RowIndex).Cells(11).Value = "" 'TextBox1.Text = GenelToplam.ToString() Exit Sub ElseIf dgTestler.Rows(e.RowIndex).Cells(7).Value = True And dgTestler.Rows(e.RowIndex).Cells(6).Value = True Then dgTestler.Rows(e.RowIndex).Cells(6).Selected = False dgTestler.Rows(e.RowIndex).Cells(7).Selected = True GenelToplam = GenelToplam - dgTestler.Rows(e.RowIndex).Cells(9).Value dgTestler.Rows(e.RowIndex).Cells(9).Value = 0 dgTestler.Rows(e.RowIndex).Cells(10).Value = 0 dgTestler.Rows(e.RowIndex).Cells(11).Value = 1 TextBox1.Text = GenelToplam.ToString() Exit Sub End If End If End If End Sub
BindingSource
DataSet
DataTable
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)