Private Sub dgvProductCalculation_CellFormatting(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellFormattingEventArgs) Handles dgvProductCalculation.CellFormatting
Select Case dgvProductCalculation.Columns(e.ColumnIndex).Name
Case "CalculatedPriceDataGridViewTextBoxColumn"
If e.Value.ToString = System.Guid.Empty.ToString Or e.Value Is Nothing Or e.Value = CType("1.1.1900", Date) Then
e.Value = ""
Else
Select Case dgvProductCalculation("dgvProductCalculationDiscountTypeGUID", e.RowIndex).Value.ToString
Case "F5DCBC22-31C4-4a33-94D8-6424B61F0291" ' Festpreis
e.Value = e.Value & " €"
Case "9CF2F009-4560-4caf-AB3A-DC4B1015009F" ' Prozent
e.Value = e.Value & " %"
Case Else
End Select
End If
End Select
End Sub
Der Operator = ist für Typ Decimal und Typ Date nicht definiert.
|
|
|
|
|
|
... e.Value = CType("1.1.1900", Date) ...|
|
|
Module Module1
Sub Main()
Dim result As Boolean
result = IsDecimal(New Decimal(42.0))
result = IsDecimal("Not a decimal")
End Sub
Function IsDecimal(ByRef pValue As Object) As Boolean
If TypeOf pValue Is Decimal Then
Console.WriteLine("I'm a decimal")
Return True
End If
Console.WriteLine("I'm not a decimal")
Return False
End Function
End Module
|
|
|
1. Wenn ich dass SelectCase nach dem Else (das untere also) auskommentiere, dann läuft die Sache durch.
2. Wenn ich einen Breakpoint auf das selbe Select-Case setze dann hält er dort an - wertet meienen Wert aus - springt in das richtige CASE und bringt dann bei der Zuweisung des Textes den Fehler
Die beiden Links von dir, werd ich mir sofort mal durch lesen - danke