VBのデータグリッドビューで分析
はじめまして。
学生でVBを使用しているのですが、どうしても分からない所があるので教えてください。
言葉足らずな部分があると思いますが、よろしくお願いします。
VisualBasic2010を使用しています。
私が作成したい機能は、
1、テキストボックスとコンボボックスで必要な情報を記入・選択
2、登録ボタンを押して登録
3、登録した内容がデータグリッドビューに表示される(削除・変更も可能)
4、分析ボタンを押すとコンボボックスの内容の数をかぞえる
私がつまずいている部分は4の「分析機能」です。
分析を押すと、数は表示されるようになりましたが
全て「0」が表示されてしまいます。
データグリッドビューの内容を検索して数をかぞえる方法が分からなくて
困っています・・。
つまずいている部分のコードを載せておきます。
どうぞお力を貸してください。
----------------------------------------------------------
Private Sub bunnseki_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bunnseki_Button.Click
'数の宣言
Dim ACount As Double = 0
Dim BCount As Double = 0
Dim CCount As Double = 0
Dim DCount As Double = 0
Dim FCount As Double = 0
'個数をカウント
For i As Integer = 0 To listTask.Count - 1
'オブジェクトを取り出す
Dim selectedTask As Task = listTask(DataGridViewTask.Rows(i).Index)
'タスクデータを取り出す
selectedTask.GetData(TextBox.Text, A_ComboBox.Text, B_ComboBox.Text)
If A_ComboBox.Text = "A" Then
ACount += 1
ElseIf A_ComboBox.Text = "B" Then
BCount += 1
ElseIf A_ComboBox.Text = "C" Then
CCount += 1
ElseIf A_ComboBox.Text = "D" Then
DCount += 1
ElseIf A_ComboBox.Text = "F" Then
FCount += 1
End If
Next
'項目の数を表示
A_Label.Text = ACount.ToString
B_Label.Text = BCount.ToString
C_Label.Text = CCount.ToString
D_Label.Text = DCount.ToString
F_Label.Text = FCount.ToString
End Sub
お礼
どうもありがとうございました。解決しました