Окно сообщение об ошибке datagridview

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
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122

Public Class Form1
    Private Sub Load1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        With DataGridView1
            .Columns.Add("N", "Num")
            .Columns(0).ValueType = GetType(Double)
            .Columns.Add("D1", "Dat1")
            .Columns(1).ValueType = GetType(String)
            .Rows.Add({1253.256, "02.1.11"})
            .Rows.Add({2253.256, "233.5.2016"})
            .Rows.Add({3253.256, "2.11.2012"})
            .Rows.Add({4253.256, "23.12.2018"})
            .Rows.Add({5253.256, "27.10.2018"})
            .Rows.Add({6253.256, "22.12.2018"})
            .AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells
        End With
        IncDate.sign = frm.OnlyMY
    End Sub
    Private Sub DataGridView1_CellPainting(sender As System.Object, e As System.Windows.Forms.DataGridViewCellPaintingEventArgs) Handles DataGridView1.CellPainting
        If e.RowIndex > -1 AndAlso e.ColumnIndex = 1 AndAlso e.Value IsNot Nothing AndAlso e.Value.ToString.Length > 0 Then
            Dim ff As String = String.Empty
            Try
                Dim dd As New IncDate(e.Value)
                ff = dd.ToString
            Catch ex As Exception
                'MsgBox(ex.Message)
            End Try
            DataGridView1.Rows(e.RowIndex).Cells(e.ColumnIndex).Value = ff
        End If
    End Sub
    Private Sub DataGridView1_SortCompare(sender As System.Object, e As System.Windows.Forms.DataGridViewSortCompareEventArgs) Handles DataGridView1.SortCompare
        If e.Column.Index = 1 Then
            e.SortResult = IncDate.Compare(e.CellValue1.ToString(), e.CellValue2.ToString())
            e.Handled = True
        End If
    End Sub
End Class
 
Public Enum frm
    Fullshort
    FullLong
    OnlyMY
    OnlyY
End Enum
 
Public Class IncDate
    Private sDate As String
    Private dDate As Date
    Sub New()
        MyBase.new()
        sDate = String.Empty
        dDate = Nothing
    End Sub
    Sub New(DateString As String)
        Me.New()
        sDate = DateString
        getDate()
    End Sub
    Public Shared Property sign As frm
    Public Overrides Function ToString() As String
        Dim s As String = ""
        If dDate = Nothing Then Return s
        Select Case IncDate.sign
            Case frm.FullLong
                s = dDate.ToLongDateString
            Case frm.Fullshort
                s = dDate.ToShortDateString
            Case frm.OnlyMY
                s = String.Join(".", Format(dDate.Month, "00"), dDate.Year)
            Case frm.OnlyY
                s = dDate.Year
        End Select
        Return s
    End Function
    Public Function toDate() As Date
        Return dDate
    End Function
    Public Property sValue As String
        Get
            Return Me.ToString
        End Get
        Set(newvalue As String)
            sDate = newvalue
            getDate()
        End Set
    End Property
    Private Sub getDate()
        If sDate.Length > 0 Then
            If sDate.Length = 4 AndAlso IncDate.sign = frm.OnlyY Then sDate = "01." & sDate
            Try
                Dim culture As Globalization.CultureInfo = New Globalization.CultureInfo("ru-RU")
                dDate = Date.Parse(sDate, culture, Globalization.DateTimeStyles.None)
            Catch ex As Exception
                dDate = Nothing
            End Try
        Else
            dDate = Nothing
        End If
    End Sub
    Public Shared Function Compare(x As String, y As String) As Integer
        If x.Length = 0 AndAlso y.Length > 0 Then Return -1
        If x.Length > 0 AndAlso y.Length = 0 Then Return 1
        If x.Length = 0 AndAlso y.Length = 0 Then Return 0
        Dim culture As Globalization.CultureInfo = New Globalization.CultureInfo("ru-RU")
        Dim xdDate, ydDate As Date
        Select Case sign
            Case frm.FullLong, frm.Fullshort
                ydDate = Date.Parse(y, culture, Globalization.DateTimeStyles.None)
                xdDate = Date.Parse(x, culture, Globalization.DateTimeStyles.None)
            Case frm.OnlyMY
                Dim xm() As String = Split(x, ".")
                xdDate = New Date(CInt(xm(1)), CInt(xm(0)), 1)
                Dim ym() As String = Split(y, ".")
                ydDate = New Date(CInt(ym(1)), CInt(ym(0)), 1)
            Case frm.OnlyY
                xdDate = New Date(CInt(x))
                ydDate = New Date(CInt(y))
        End Select
        If xdDate > ydDate Then Return 1
        If xdDate < ydDate Then Return -1
        Return 0
    End Function
End Class