質問するログイン新規登録

回答編集履歴

1

再検証した

2017/11/16 05:50

投稿

Hornet250
Hornet250

スコア16

answer CHANGED
@@ -1,4 +1,12 @@
1
+ Private Sub DataGridView1_CellValueChanged(ByVal sender As Object, _
2
+ ByVal e As DataGridViewCellEventArgs) _
3
+ Handles DataGridView1.CellValueChanged
4
+   If DataGridView1.Rows(e.RowIndex).Cells.Item("SEL").Value = True Then
5
+     If CInt(DataGridView1.Rows(e.RowIndex).Cells.Item("SURYO").Value) <= 10 Then
6
+       Label1.Text = "数量が10以下です。"
1
- DataGridView1.Rows(e.RowIndex).Cells.Item("SEL").Value= 0
7
+       DataGridView1.Rows(e.RowIndex).Cells.Item("SEL").Value = False
2
- または
8
+       Return
9
+     End If
10
+   End If
3
- DataGridView1.Rows(e.RowIndex).Cells.Item("SEL").Value= Not True
11
+ End Sub
4
- チェックオフされ
12
+ 実際のソース検証しなおしした。