Führende Nullen Datagridview

  • VB.NET

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von Zim.

    Führende Nullen Datagridview

    Hey ho
    ich versuche hier gerade dem Datagridview bei zu bringen das er führende nullen ergänzt damit er dichtig sortiert.
    Gleichzeitig soll er Zwei nullen hinten anhängen wenn nicht vorhanden.

    Aber iwie erzeugt das bei mir eine Endlosschleife.

    Hier mein Code:

    VB.NET-Quellcode

    1. Private Sub DGV_Kali_CellContentChanged(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DGV_Kali.CellValueChanged
    2. If ChangeVal = False Then
    3. ChangeVal = True
    5. If DGV_Kali.Rows.Count() - 2 > 0 Then
    6. OldVal = NumericUpDown8.Value
    7. NumericUpDown8.Maximum = DGV_Kali.Rows.Count() - 2
    8. NumericUpDown7.Maximum = DGV_Kali.Rows.Count() - 2
    9. NumericUpDown8.Value = OldVal
    10. NumericUpDown7.Value = OldVal
    11. FührendeNullY = 0
    12. FührendeNullX = 0
    13. For i = 0 To DGV_Kali.Rows.Count() - 2
    15. DGV_Kali.Rows(i).Cells(0).Value = Convert.ToDouble(VB.Replace(DGV_Kali.Rows(i).Cells(0).Value.ToString, ".", ",")).ToString
    17. If DGV_Kali.Rows(i).Cells(0).Value.ToString.IndexOf(",") = -1 Then
    18. DGV_Kali.Rows(i).Cells(0).Value = DGV_Kali.Rows(i).Cells(0).Value.ToString & ",00"
    19. End If
    21. If FührendeNullX < DGV_Kali.Rows(i).Cells(0).Value.ToString.IndexOf(",") And DGV_Kali.Rows(i).Cells(0).Value.ToString.IndexOf(",") > -1 Then
    22. FührendeNullX = DGV_Kali.Rows(i).Cells(0).Value.ToString.IndexOf(",")
    23. End If
    25. If (DGV_Kali.Rows(i).Cells(1).Value Is Nothing) = False Then
    26. DGV_Kali.Rows(i).Cells(1).Value = Convert.ToDouble(VB.Replace(DGV_Kali.Rows(i).Cells(1).Value.ToString, ".", ",")).ToString
    28. If DGV_Kali.Rows(i).Cells(1).Value.ToString.IndexOf(",") = -1 Then
    29. DGV_Kali.Rows(i).Cells(1).Value = DGV_Kali.Rows(i).Cells(1).Value.ToString & ",00"
    30. End If
    32. If FührendeNullY < DGV_Kali.Rows(i).Cells(1).Value.ToString.IndexOf(",") And DGV_Kali.Rows(i).Cells(1).Value.ToString.IndexOf(",") > -1 Then
    33. FührendeNullY = DGV_Kali.Rows(i).Cells(1).Value.ToString.IndexOf(",")
    34. End If
    35. End If
    36. Next
    38. For j = 0 To DGV_Kali.Rows.Count() - 2
    40. While DGV_Kali.Rows(j).Cells(0).Value.ToString.IndexOf(",") < FührendeNullX And DGV_Kali.Rows(j).Cells(0).Value.ToString.IndexOf(",") > -1
    41. DGV_Kali.Rows(j).Cells(0).Value = ("0" & DGV_Kali.Rows(j).Cells(0).Value.ToString).ToString
    42. End While
    44. If (DGV_Kali.Rows(j).Cells(1).Value Is Nothing) = False Then
    45. While DGV_Kali.Rows(j).Cells(1).Value.ToString.IndexOf(",") < FührendeNullY And DGV_Kali.Rows(j).Cells(1).Value.ToString.IndexOf(",") > -1
    46. DGV_Kali.Rows(j).Cells(1).Value = ("0" & DGV_Kali.Rows(j).Cells(1).Value.ToString).ToString
    47. End While
    48. End If
    49. Next
    51. End If
    52. End If
    53. ChangeVal = False
    54. End Sub


    Jemand eine Idee wie man es besser machen kann ?

    Das kannst Du alles in ToString erledigen:

    VB.NET-Quellcode

    1. Dim d As Double = 11.220000000000001
    2. Dim txt As String = d.ToString("0000.0000")
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    :)

    VB.NET-Quellcode

    1. Private Sub DGV_Kali_CellContentChanged(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DGV_Kali.CellValueChanged
    2. If ChangeVal = False Then
    3. ChangeVal = True
    5. If DGV_Kali.Rows.Count() - 2 > 0 Then
    6. OldVal = NumericUpDown8.Value
    7. NumericUpDown8.Maximum = DGV_Kali.Rows.Count() - 2
    8. NumericUpDown7.Maximum = DGV_Kali.Rows.Count() - 2
    9. NumericUpDown8.Value = OldVal
    10. NumericUpDown7.Value = OldVal
    11. FührendeNullY = 0
    12. FührendeNullX = 0
    13. For i = 0 To DGV_Kali.Rows.Count() - 2
    15. DGV_Kali.Rows(i).Cells(0).Value = Convert.ToDouble(VB.Replace(DGV_Kali.Rows(i).Cells(0).Value.ToString, ".", ",")).ToString
    17. DGV_Kali.Rows(i).Cells(0).Value = Convert.ToDouble(DGV_Kali.Rows(i).Cells(0).Value).ToString("###0.00###")
    19. If FührendeNullX < DGV_Kali.Rows(i).Cells(0).Value.ToString.IndexOf(",") And DGV_Kali.Rows(i).Cells(0).Value.ToString.IndexOf(",") > -1 Then
    20. FührendeNullX = DGV_Kali.Rows(i).Cells(0).Value.ToString.IndexOf(",")
    21. End If
    23. If (DGV_Kali.Rows(i).Cells(1).Value Is Nothing) = False Then
    24. DGV_Kali.Rows(i).Cells(1).Value = Convert.ToDouble(VB.Replace(DGV_Kali.Rows(i).Cells(1).Value.ToString, ".", ",")).ToString
    25. DGV_Kali.Rows(i).Cells(1).Value = Convert.ToDouble(DGV_Kali.Rows(i).Cells(1).Value).ToString("###0.00###")
    27. If FührendeNullY < DGV_Kali.Rows(i).Cells(1).Value.ToString.IndexOf(",") And DGV_Kali.Rows(i).Cells(1).Value.ToString.IndexOf(",") > -1 Then
    28. FührendeNullY = DGV_Kali.Rows(i).Cells(1).Value.ToString.IndexOf(",")
    29. End If
    30. End If
    31. Next
    32. NullY = ""
    33. For i = 1 To FührendeNullY
    34. NullY = "0" & NullY
    35. Next
    36. NullX = ""
    37. For i = 1 To FührendeNullX
    38. NullX = "0" & NullX
    39. Next
    41. For j = 0 To DGV_Kali.Rows.Count() - 2
    43. DGV_Kali.Rows(j).Cells(0).Value = Convert.ToDouble(DGV_Kali.Rows(j).Cells(0).Value).ToString(NullX & ".00###")
    45. If (DGV_Kali.Rows(j).Cells(1).Value Is Nothing) = False Then
    46. DGV_Kali.Rows(j).Cells(1).Value = Convert.ToDouble(DGV_Kali.Rows(j).Cells(1).Value).ToString(NullY & ".00###")
    47. End If
    48. Next
    50. End If
    51. ChangeVal = False
    52. End If
    54. End Sub

Facebook