Moinmoin,
ich bin dabei mir eine Funktion zu erstellen, welche mir DGV Columns je nach Abhängigkeit des Datentypes formatiert.
Decimal als Währung, alle anderen Zahlen als Zahl mit tausender Trennzeichen.
Schaut soweit so aus ...
Das Problem ist, dass der Datentyp im Select Case grundsätzlich ins Case Else gedrückt wird.
Ich habe es auch mit .ValueType.GetType.Name und in den Cases mit GetType(Int32).Name versucht, bringt aber auch nichts.
Das Case Else Result habe ich in MsgBox ausgegeben ...
Ergibt Int32 # Int32, Ausgabe erscheint aber im Case Else
Was übersehe ich?
Freundliche Grüße
ich bin dabei mir eine Funktion zu erstellen, welche mir DGV Columns je nach Abhängigkeit des Datentypes formatiert.
Decimal als Währung, alle anderen Zahlen als Zahl mit tausender Trennzeichen.
Schaut soweit so aus ...
Quellcode
- Public Shared Sub FormatColumn(ByRef Column As DataGridViewColumn)
- Try
- If IsNothing(Column) Then Exit Sub
- With Column
- Select Case .ValueType.GetType
- Case GetType(Int32), GetType(Integer), GetType(Double), GetType(Single)
- .DefaultCellStyle.Format = "n"
- Case GetType(Decimal)
- .DefaultCellStyle.Format = "c"
- Case Else
- MsgBox(.ValueType.Name " # " & GetType(Int32).Name)
- Exit Sub
- End Select
- End With
- Catch ex As Exception
- MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical)
- End Try
- End Sub
Das Problem ist, dass der Datentyp im Select Case grundsätzlich ins Case Else gedrückt wird.
Ich habe es auch mit .ValueType.GetType.Name und in den Cases mit GetType(Int32).Name versucht, bringt aber auch nichts.
Das Case Else Result habe ich in MsgBox ausgegeben ...
Ergibt Int32 # Int32, Ausgabe erscheint aber im Case Else
Was übersehe ich?
Freundliche Grüße
