DataGridViewにおいて、値計算のロジックで悩んでいます。

###前提・実現したいこと

上図のようなDataGridViewを作成し、valueカラムを編集した時に、関連する値が変化するようなプログラムを組みたいです。
また、その値が最小最大を超えたときに色を変える仕掛けもあり、そちらは出来ています。
計算ロジックは内部で組み込んであり、
A=930-B
B=930-A
C=2400-D
D=2400-C
です。

###発生している問題・エラーメッセージ

下記のコードだと、AとCを計算したときは上手くいくのですが、BとDを変更した時は上手く動きません。
また、Loadイベントでdatagridviewを描画したときに、CellValueChangedイベントが起きてしまうのでtry～catchにしていますが、他に良い方法はありますでしょうか。

###該当のソースコード

Private Sub CellValueChanged(ByVal sender As Object, ByVal e As DataGridViewCellEventArgs) Handles DataGridView1.CellValueChanged
            Calculate()
    End Sub

Private Sub Calculate()
        Try
            A = Integer.Parse(DataGridView1(1, 1).Value)
            B = 930 - A
            DataGridView1(1, 2).Value = B

            B = Integer.Parse(DataGridView1(1, 2).Value)
            A = 930 - B
            DataGridView1(1, 1).Value = A

            C = Integer.Parse(DataGridView1(1, 3).Value)
            D = 2400 - C
            DataGridView1(1, 4).Value = nineteen

            D = Integer.Parse(DataGridView1(1, 4).Value)
            C = 2400 - D
            DataGridView1(1, 3).Value = C

        Catch ex As Exception
            Return
        End Try

分かりにくくて申し訳ありませんが、ご教授お願いいたします。

行動規範の内容に同意します

回答2件

ベストアンサー

Valueの編集をDatagridviewのみで行うのであれば、CellEndEditかCellValidatingを使用してはどうでしょうか？

また、B、Dを変更した際にCalculate内で
1.A変更時の計算（BのValueが変更される）
2.B変更時の計算（AのValueが変更される）
と順番に動くので1にて編集したBの値が上書きされてしまいます。
ですので、行が固定なのであれば、

Private Sub Calculate(EditRowIndex As Integer)
        Try
            Select Case EditRowIndex
                Case 1
                    'A変更時の計算
                Case 2
                    'A変更時の計算

        Catch ex As Exception
            Return
        End Try

みたいに変更した行のみ計算を行うようにすればどうでしょうか

投稿2017/01/14 11:31

YAmaGNZ

総合スコア10251

churi_yuzuki

2017/01/17 00:42 編集

回答ありがとうございます。厳密に条件を設定したら出来ました、ありがとうございます。あと追加で申し訳ありませんが、 ``` Private Sub DataGridView1_CellFormatting(ByVal sender As Object, ByVal e As DataGridViewCellFormattingEventArgs) Handles DataGridView1.CellFormatting Dim dgv As DataGridView = CType(sender, DataGridView) 'セルの列を確認 If dgv.Columns(e.ColumnIndex).Name = "value" AndAlso TypeOf e.Value Is Integer Then Dim val As Integer = CInt(e.Value) Dim min As Integer = CInt(dgv.Item(e.ColumnIndex + 1, e.RowIndex).Value) Dim max As Integer = CInt(dgv.Item(e.ColumnIndex + 2, e.RowIndex).Value) 'セルの値により、背景色を変更する If val < min Or val > max Then e.CellStyle.BackColor = Color.Yellow ElseIf val = 0 Then e.CellStyle.BackColor = Color.Red Else e.CellStyle.BackColor = Color.Empty End If End If End Sub ``` というイベントを記述しているのですが、色が変わってくれません。何か問題があるのでしょうか。。

YAmaGNZ

2017/01/17 05:24 編集

他の部分がどうなっているか不明なので分かりませんが、 If dgv.Columns(e.ColumnIndex).Name = "value" AndAlso TypeOf e.Value Is Integer Then このIf文でのNameが"Value"ではない、もしくはe.ValueのTypeがIntegerではないのではないかと思います。（If文の条件に合うよう設定し実行すると、このままのソースでも色は変わりました）また、色を変更する条件ですが、値が0の場合、val=0の判定をする前にval<minのチェックに引っかかります。ですので、赤色にならずに黄色になります。

churi_yuzuki

2017/01/17 06:51

Datatableを見直したらValueカラムのTypeがIntegerではなかったことが原因でした、、本当にありがとうございました！

行動規範の内容に同意します