Lose detail in DGV that was entered via cellFormatting

Private Sub formatDGVCells(ByVal e As System.Windows.Forms.DataGridViewCellFormattingEventArgs) Implements creditorInvoiceINTERFACE.IfrmCreditorInvoice.formatDGVCells
 
        Try
 
            If e.ColumnIndex > -1 Then
 
                If Me.dgvCreditorInvoiceDetail.Columns(e.ColumnIndex).Name = "amount" Then
 
                    If e.Value = "" Or IsNothing(e.Value) Then
 
                        e.Value = "$0.00"
                        e.CellStyle.ForeColor = Color.Black
 
                    Else
 
                        If (e.Value = 0) Then
 
                            e.Value = "$0.00"
                            e.CellStyle.ForeColor = Color.Black
 
                        Else
 
                            e.Value = "$" & FormatNumber((e.Value), 2, TriState.UseDefault, TriState.UseDefault, TriState.UseDefault)
 
                            If e.Value > 0 Then
 
                                e.CellStyle.ForeColor = Color.Black
 
                            Else
 
                                e.CellStyle.ForeColor = Color.Red
 
                            End If
 
                            Dim total As Decimal = 0
 
                            For count = 0 To dgvCreditorInvoiceDetail.Rows.Count - 1
 
                                total = total + CType(Mid(dgvCreditorInvoiceDetail.Rows(count).Cells("amount").Value, 1), Decimal)
 
                            Next
 
                            txtTotal.Text = String.Format("{0:C}", total)
 
                            If total < 0 Then
 
                                txtTotal.ForeColor = Color.Red
 
                            End If
 
                        End If
 
                    End If
 
                End If
 
                If Me.dgvCreditorInvoiceDetail.Columns(e.ColumnIndex).Name = "ref" Then
 
                    If Presenter.validateAssetNo(e.Value) = True Then
 
                    Else
 
                        e.Value = txtInvoiceNumber.Text
 
                    End If
 
                End If
 
                If Me.dgvCreditorInvoiceDetail.Columns(e.ColumnIndex).Name = "detail" Then
 
                    If e.Value <> "" Or (e.Value <> Nothing) Then
 
                        e.Value = e.Value.ToString.ToUpper
 
                    End If
 
                End If
 
                If Me.dgvCreditorInvoiceDetail.Columns(e.ColumnIndex).Name = "account" Then
 
                    newColumn.FlatStyle = FlatStyle.Flat
 
                End If
 
            End If
 
        Catch ex As Exception
 
            manageWindowsViewError("creditorTASK", "frmCreditorInvoicePayment", "formatDGVCells", ex)
 
        End Try
 
    End Sub

                                  

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93: