DGV表格数字格式化

 'DGV表格数字格式化

    Sub DataMeiHua()

        Dim nFSrar As Integer = 5

        Dim nFEnd As Integer = 6

        Try

            With Me.DGV_GpHqFind

                For c As Integer = 0 To .Columns.Count - 1

                    For r As Integer = 0 To .Rows.Count - 1

                        If IsNumeric(.Item(c, r).Value) And c = 2 Then

                            If .Item(c, r).Value < .Item(c + 1, r).Value Then

                                .Item(c, r).Style.ForeColor = Color.FromArgb(0, 190, 80)    '设定符合条件单元格的字体颜色

                            ElseIf .Item(c, r).Value > .Item(c + 1, r).Value Then

                                .Item(c, r).Style.ForeColor = Color.Red

                            End If

                        End If

                        If IsNumeric(.Item(c, r).Value) And c = 4 Then

                            If .Item(c, r).Value < .Item(c - 1, r).Value Then

                                .Item(c, r).Style.ForeColor = Color.FromArgb(0, 190, 80)

                            ElseIf .Item(c, r).Value > .Item(c - 1, r).Value Then

                                .Item(c, r).Style.ForeColor = Color.Red

                            End If

                        End If

                        If IsNumeric(.Item(c, r).Value) And (c = nFSrar Or c = nFEnd) Then

                            If .Item(c, r).Value < 0 Then

                                .Item(c, r).Style.ForeColor = Color.FromArgb(0, 190, 80)

                            ElseIf .Item(c, r).Value > 0 Then

                                .Item(c, r).Style.ForeColor = Color.Red

                            End If

                        End If

                    Next

                Next

            End With

        Catch ex As Exception

            MsgBox(ex.ToString, 48, "错误信息")

        End Try

    End Sub