DataGridView - Inhalte ansprechen

  • VB.NET
  • .NET (FX) 4.0

Es gibt 9 Antworten in diesem Thema. Der letzte Beitrag () ist von VB1963.

    DataGridView - Inhalte ansprechen

    Hallo Zusammen,

    Ich habe derzeit ein kleinen Wurm in der Entwicklung meines Programmes, mit dem DataGridView.

    Ich habe 2 alte Funktionen:

    VB.NET-Quellcode

    1. Private Function BerechneDauer(ByRef BeginnStr As String, ByRef EndeStr As String) As Integer
    2. ' gibt die Dauer aus zwei Textfeldern als Integer in Minuten zurück
    4. Dim Dauer1 As Integer
    5. Dim Dauer2 As Integer
    6. Dim Anfang, Ende As Integer
    8. 'ANFANG
    9. 'Stunden Anfang, WICHTIG: Stunden zweistellig!!
    10. Dauer1 = Convert.ToInt32(Microsoft.VisualBasic.Left(BeginnStr, 2))
    11. 'Minuten Anfang, WICHTIG: Minuten zweistellig!!
    12. Dauer2 = Convert.ToInt32(Microsoft.VisualBasic.Right(BeginnStr, 2))
    13. 'Anfang in Minuten umgerechnet
    14. 'Annahme ist, dass die Minuten in Dezimal angegeben sind, und erst umgerechnet werden müssen:
    15. Dim methode As New INIDatei
    16. methode.Pfad = Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\Umrechner\settings.ini"
    17. If methode.WertLesen("General", "Methode") = "Dezimal" Then
    18. Anfang = CInt(Dauer1 * 60 + Dauer2 / 100 * 60)
    19. Else
    20. Anfang = Dauer1 * 60 + Dauer2
    21. End If
    23. 'ENDE
    24. 'Stunden Anfang, WICHTIG: Stunden zweistellig!!
    25. Dauer1 = Convert.ToInt32(Microsoft.VisualBasic.Left(EndeStr, 2))
    26. 'Minuten Anfang, WICHTIG: Minuten zweistellig!!
    27. Dauer2 = Convert.ToInt32(Microsoft.VisualBasic.Right(EndeStr, 2))
    28. 'Ende in Minuten umgerechnet
    29. 'Annahme ist, dass die Minuten in Dezimal angegeben sind, und erst umgerechnet werden müssen:
    30. If methode.WertLesen("General", "Methode") = "Dezimal" Then
    31. Ende = CInt(Dauer1 * 60 + Dauer2 / 100 * 60)
    33. Else
    34. Ende = Dauer1 * 60 + Dauer2
    35. End If
    37. 'Dauer vormittag in Minuten
    38. BerechneDauer = Ende - Anfang
    39. End Function
    41. Private Function MinutenInStunden(ByRef Dauer As Integer) As String
    42. ' gibt das Ergebnis als String für die Anzeige und/oder das Abspeichern zurück
    43. Dim Dauer_Stunden As Integer
    44. Dim Dauer_Stunden_Str As String
    45. Dim Dauer_Minuten As Integer
    46. Dim Dauer_Minuten_Str As String
    47. Dauer_Stunden = Dauer \ 60 'ganzzahlige Division
    48. If Dauer_Stunden < 10 Then
    49. Dauer_Stunden_Str = "0" & Convert.ToString(Dauer_Stunden)
    50. Else
    51. Dauer_Stunden_Str = Convert.ToString(Dauer_Stunden)
    52. End If
    53. Dauer_Minuten = Dauer - Dauer_Stunden * 60
    54. If Dauer_Minuten < 10 Then
    55. Dauer_Minuten_Str = "0" & Convert.ToString(Dauer_Minuten)
    56. Else
    57. Dauer_Minuten_Str = Convert.ToString(Dauer_Minuten)
    58. End If
    59. MinutenInStunden = Convert.ToString(Dauer_Stunden_Str) & ":" & Convert.ToString(Dauer_Minuten_Str)
    61. End Function
    63. Private Function MinutenInStundenlohn(ByRef Dauer As Integer) As String
    64. ' gibt das Ergebnis als String für die Anzeige und/oder das Abspeichern zurück
    65. Dim Dauer_Stunden As Integer
    66. Dim Dauer_Stunden_Str As String
    67. Dim Dauer_Minuten As Integer
    68. Dim Dauer_Minuten_Str As String
    69. Dauer_Stunden = Dauer \ 60 'ganzzahlige Division
    70. If Dauer_Stunden < 10 Then
    71. Dauer_Stunden_Str = "0" & Convert.ToString(Dauer_Stunden)
    72. Else
    73. Dauer_Stunden_Str = Convert.ToString(Dauer_Stunden)
    74. End If
    75. Dauer_Minuten = Dauer - Dauer_Stunden * 60
    76. If Dauer_Minuten < 10 Then
    77. Dauer_Minuten_Str = "0" & Convert.ToString(Dauer_Minuten)
    78. Else
    79. Dauer_Minuten_Str = Convert.ToString(Dauer_Minuten)
    80. End If
    81. MinutenInStundenlohn = Convert.ToString(Dauer_Stunden_Str) & "," & Convert.ToString(Dauer_Minuten_Str)
    83. End Function


    Diese Funktionen habe Werte aus Textboxen getrennt. z.B. 12:45.Mithilfe der Funktion gabs dann eine Variabel die den Wert vor dem : beinhaltet und eine den Wert nach dem Doppelpunkt.

    Die Funktionen wurden bei einem Button Klick ausgeführt.

    VB.NET-Quellcode

    1. Private Sub rechnen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rechnen.Click
    2. For Each ctl In Me.Controls.OfType(Of TextBox)()
    3. Console.WriteLine(ctl.Name)
    4. If String.IsNullOrEmpty(ctl.Text) Then
    5. ctl.Text = "00:00"
    6. End If
    7. Next
    9. 'Methode Überpfrüfen
    10. Dim methode As New INIDatei
    11. methode.Pfad = Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\Umrecher\settings.ini"
    13. Dim DauerFeld_vormittag(0 To 31) As Integer
    14. Dim DauerFeld_nachmittag(0 To 31) As Integer
    15. Dim i As Integer
    16. Dim Gesamtdauer As Integer
    17. Dim Gesamtdauerlohn As Integer
    18. Dim GesamtdauerStr As String
    19. Dim GesamtdauerStrlohn As String
    20. 'Dauer für vormittag in Minuten im Feld ablegen
    22. DauerFeld_vormittag(0) = BerechneDauer(CustomTextBox1.Text, CustomTextBox2.Text)
    23. DauerFeld_vormittag(1) = BerechneDauer(CustomTextBox5.Text, CustomTextBox6.Text)
    24. DauerFeld_vormittag(2) = BerechneDauer(CustomTextBox9.Text, CustomTextBox10.Text)
    25. DauerFeld_vormittag(3) = BerechneDauer(CustomTextBox13.Text, CustomTextBox14.Text)
    26. DauerFeld_vormittag(4) = BerechneDauer(CustomTextBox17.Text, CustomTextBox18.Text)
    27. DauerFeld_vormittag(5) = BerechneDauer(CustomTextBox21.Text, CustomTextBox22.Text)
    28. DauerFeld_vormittag(6) = BerechneDauer(CustomTextBox25.Text, CustomTextBox26.Text)
    29. DauerFeld_vormittag(7) = BerechneDauer(CustomTextBox29.Text, CustomTextBox30.Text)
    30. DauerFeld_vormittag(8) = BerechneDauer(CustomTextBox33.Text, CustomTextBox34.Text)
    31. DauerFeld_vormittag(9) = BerechneDauer(CustomTextBox37.Text, CustomTextBox38.Text)
    32. DauerFeld_vormittag(10) = BerechneDauer(CustomTextBox41.Text, CustomTextBox42.Text)
    33. DauerFeld_vormittag(11) = BerechneDauer(CustomTextBox45.Text, CustomTextBox46.Text)
    34. DauerFeld_vormittag(12) = BerechneDauer(CustomTextBox49.Text, CustomTextBox50.Text)
    35. DauerFeld_vormittag(13) = BerechneDauer(CustomTextBox53.Text, CustomTextBox54.Text)
    36. DauerFeld_vormittag(14) = BerechneDauer(CustomTextBox57.Text, CustomTextBox58.Text)
    37. DauerFeld_vormittag(15) = BerechneDauer(CustomTextBox61.Text, CustomTextBox62.Text)
    38. DauerFeld_vormittag(16) = BerechneDauer(CustomTextBox65.Text, CustomTextBox66.Text)
    39. DauerFeld_vormittag(17) = BerechneDauer(CustomTextBox69.Text, CustomTextBox70.Text)
    40. DauerFeld_vormittag(18) = BerechneDauer(CustomTextBox73.Text, CustomTextBox74.Text)
    41. DauerFeld_vormittag(19) = BerechneDauer(CustomTextBox77.Text, CustomTextBox78.Text)
    42. DauerFeld_vormittag(20) = BerechneDauer(CustomTextBox81.Text, CustomTextBox82.Text)
    43. DauerFeld_vormittag(21) = BerechneDauer(CustomTextBox85.Text, CustomTextBox86.Text)
    44. DauerFeld_vormittag(22) = BerechneDauer(CustomTextBox89.Text, CustomTextBox90.Text)
    45. DauerFeld_vormittag(23) = BerechneDauer(CustomTextBox93.Text, CustomTextBox94.Text)
    46. DauerFeld_vormittag(24) = BerechneDauer(CustomTextBox97.Text, CustomTextBox98.Text)
    47. DauerFeld_vormittag(25) = BerechneDauer(CustomTextBox101.Text, CustomTextBox102.Text)
    48. DauerFeld_vormittag(26) = BerechneDauer(CustomTextBox105.Text, CustomTextBox106.Text)
    49. DauerFeld_vormittag(27) = BerechneDauer(CustomTextBox109.Text, CustomTextBox110.Text)
    50. DauerFeld_vormittag(28) = BerechneDauer(CustomTextBox113.Text, CustomTextBox114.Text)
    51. DauerFeld_vormittag(29) = BerechneDauer(CustomTextBox117.Text, CustomTextBox118.Text)
    52. DauerFeld_vormittag(30) = BerechneDauer(CustomTextBox121.Text, CustomTextBox122.Text)
    54. 'Dauer für nachmittag in Minuten im Feld ablegen
    55. DauerFeld_nachmittag(0) = BerechneDauer(CustomTextBox3.Text, CustomTextBox4.Text)
    56. DauerFeld_nachmittag(1) = BerechneDauer(CustomTextBox7.Text, CustomTextBox8.Text)
    57. DauerFeld_nachmittag(2) = BerechneDauer(CustomTextBox11.Text, CustomTextBox12.Text)
    58. DauerFeld_nachmittag(3) = BerechneDauer(CustomTextBox15.Text, CustomTextBox16.Text)
    59. DauerFeld_nachmittag(4) = BerechneDauer(CustomTextBox19.Text, CustomTextBox20.Text)
    60. DauerFeld_nachmittag(5) = BerechneDauer(CustomTextBox23.Text, CustomTextBox24.Text)
    61. DauerFeld_nachmittag(6) = BerechneDauer(CustomTextBox27.Text, CustomTextBox28.Text)
    62. DauerFeld_nachmittag(7) = BerechneDauer(CustomTextBox31.Text, CustomTextBox32.Text)
    63. DauerFeld_nachmittag(8) = BerechneDauer(CustomTextBox35.Text, CustomTextBox36.Text)
    64. DauerFeld_nachmittag(9) = BerechneDauer(CustomTextBox39.Text, CustomTextBox40.Text)
    65. DauerFeld_nachmittag(10) = BerechneDauer(CustomTextBox43.Text, CustomTextBox44.Text)
    66. DauerFeld_nachmittag(11) = BerechneDauer(CustomTextBox47.Text, CustomTextBox48.Text)
    67. DauerFeld_nachmittag(12) = BerechneDauer(CustomTextBox51.Text, CustomTextBox52.Text)
    68. DauerFeld_nachmittag(13) = BerechneDauer(CustomTextBox55.Text, CustomTextBox56.Text)
    69. DauerFeld_nachmittag(14) = BerechneDauer(CustomTextBox59.Text, CustomTextBox60.Text)
    70. DauerFeld_nachmittag(15) = BerechneDauer(CustomTextBox63.Text, CustomTextBox64.Text)
    71. DauerFeld_nachmittag(16) = BerechneDauer(CustomTextBox67.Text, CustomTextBox68.Text)
    72. DauerFeld_nachmittag(17) = BerechneDauer(CustomTextBox71.Text, CustomTextBox72.Text)
    73. DauerFeld_nachmittag(18) = BerechneDauer(CustomTextBox75.Text, CustomTextBox76.Text)
    74. DauerFeld_nachmittag(19) = BerechneDauer(CustomTextBox79.Text, CustomTextBox80.Text)
    75. DauerFeld_nachmittag(20) = BerechneDauer(CustomTextBox83.Text, CustomTextBox84.Text)
    76. DauerFeld_nachmittag(21) = BerechneDauer(CustomTextBox87.Text, CustomTextBox88.Text)
    77. DauerFeld_nachmittag(22) = BerechneDauer(CustomTextBox91.Text, CustomTextBox92.Text)
    78. DauerFeld_nachmittag(23) = BerechneDauer(CustomTextBox95.Text, CustomTextBox96.Text)
    79. DauerFeld_nachmittag(24) = BerechneDauer(CustomTextBox99.Text, CustomTextBox100.Text)
    80. DauerFeld_nachmittag(25) = BerechneDauer(CustomTextBox103.Text, CustomTextBox104.Text)
    81. DauerFeld_nachmittag(26) = BerechneDauer(CustomTextBox107.Text, CustomTextBox108.Text)
    82. DauerFeld_nachmittag(27) = BerechneDauer(CustomTextBox111.Text, CustomTextBox112.Text)
    83. DauerFeld_nachmittag(28) = BerechneDauer(CustomTextBox115.Text, CustomTextBox116.Text)
    84. DauerFeld_nachmittag(29) = BerechneDauer(CustomTextBox119.Text, CustomTextBox120.Text)
    85. DauerFeld_nachmittag(30) = BerechneDauer(CustomTextBox123.Text, CustomTextBox124.Text)
    89. 'Gesamtsumme berechnen:
    90. Gesamtdauer = 0
    91. For i = 0 To 30
    92. Gesamtdauer = Gesamtdauer + DauerFeld_vormittag(i)
    93. Gesamtdauer = Gesamtdauer + DauerFeld_nachmittag(i)
    94. Next
    95. GesamtdauerStr = MinutenInStunden(Gesamtdauer)
    97. Dim gethour As New INIDatei
    98. Dim grammatik As String
    99. Dim grammatik1 As String
    101. gethour.Pfad = Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\Umrechner\settings.ini"
    103. If CDbl(gethour.WertLesen("General", "Hours")) = 1 Then
    104. grammatik = " Stunde"
    105. grammatik1 = " wurde "
    107. Else
    108. grammatik = " Stunden"
    109. grammatik1 = " wurden "
    110. End If
    112. Dim altestunden = Convert.ToInt32(Microsoft.VisualBasic.Left(GesamtdauerStr, 2))
    114. Dim altemin = Convert.ToInt32(Microsoft.VisualBasic.Right(GesamtdauerStr, 2))
    116. Dim berechnungneuerstd = altestunden - CInt(gethour.WertLesen("General", "Hours"))
    118. ergebnis.Text = "Stunden: " & berechnungneuerstd & ":" & altemin
    119. txtabzug.Text = "Es" & grammatik1 & gethour.WertLesen("General", "Hours") & grammatik & " abgezogen"
    120. gesammt.Text = "Gesammtstunden: " & altestunden & ":" & altemin
    122. For i = 0 To 30
    123. Gesamtdauerlohn = Gesamtdauerlohn + DauerFeld_vormittag(i)
    124. Gesamtdauerlohn = Gesamtdauerlohn + DauerFeld_nachmittag(i)
    125. Next
    126. GesamtdauerStrlohn = MinutenInStundenlohn(Gesamtdauerlohn)
    128. Dim INI As New INIDatei
    129. INI.Pfad = Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\Umrechner\settings.ini"
    130. INI.WertSchreiben("Berechnung", "Ergebnis", GesamtdauerStrlohn)
    132. Dim neuerwert As Double = CDbl(GesamtdauerStrlohn) - CDbl(INI.WertLesen("General", "Hours"))
    134. INI.WertSchreiben("Berechnung", "Ueberstunden", CStr(neuerwert))
    136. Dim ininull As New INIDatei
    137. ininull.Pfad = Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\Umrechner\settings.ini"
    138. If ininull.WertLesen("General", "NullClear") = "Yes" Then
    139. For Each ctl In Me.Controls.OfType(Of TextBox)()
    140. Console.WriteLine(ctl.Name)
    141. If ctl.Text = "00:00" Then
    142. ctl.Text = ""
    143. End If
    145. Next
    146. End If
    148. lohnrechnen.Enabled = True
    149. End Sub



    Nun möchte ich aber nicht mehr die TextBoxen ansprechen, sondern Die einzelnden Kästchen aus dem DataGridView (31 Reihen, je 4 Spalten)


    Wie aber kann ich jetzt Die Berechnungen darauflegen? Und wie ist es möglich diese Funktion hier auf das DataGridView zu beziehen?

    VB.NET-Quellcode

    1. For Each ctl In Me.Controls.OfType(Of TextBox)()
    2. Console.WriteLine(ctl.Name)
    3. If ctl.Text = "00:00" Then
    4. ctl.Text = ""
    5. End If



    Wenn ich das hinbekommen habe bzw. weiß wie es geht sollte ich den rest eigendlich alleine schaffen. :)

    Liebe Grüße

    Mithilfe der Funktion gabs dann eine Variabel die den Wert vor dem : beinhaltet und eine den Wert nach dem Doppelpunkt.
    schaue dir vorerst einmal folgende Links an:
    DateTimePicker-Steuerelement
    DateTimePicker-Klasse
    DateTime-Struktur
    Hierbei bietet dir das FW moderne Methoden und Eigenschaften, die dir bei solchen Aufgaben bedeutend weiterhelfen...

    Ich verstehe nicht ganz wie mir das weiterhelfen soll VB1963, Ich benötige ja keinen Tag sondern will nur Werte umrechnen und am Ende zusammen Addieren.

    Außerdem glaube ich kaum das Datetime mir sagen kann welche Uhrzeit 12:95 ist oder? :)


    Liebe Grüße

    Außerdem glaube ich kaum das Datetime mir sagen kann welche Uhrzeit 12:95 ist oder?

    Hast du dir die Structur schon einmal angeschaut?

    steht gleich ganz oben in der DateTime-Structure als Einleitung - MSDN schrieb:

    Stellt einen Zeitpunkt dar, der normalerweise durch Datum und Uhrzeit dargestellt wird.

    Er erstellt doch selbst das Projekt - und soll gleich solche Eingaben verhindern.
    Wenn man das DateTimePicker-Steuerelement statt der Textbox hernimmt, dann sind solche Zeitangaben gar nicht möglich, weil der Picker solches nicht zulässt. Damit ersparst man sich dann auch solche Umrechnungen...

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „VB1963“ ()

    Der Sinn dahinter soll ja aber sein das das Programm die Werte von der Stempelkarte umrechnet und die sind nunmal im hinteren Bereich nur :05 :10 :15 :20 :25 :30 :35 :40 :45 :50 :55 :60 :65 :70 :75 :80 :85 :90 :95 :00

    Die alte Funktion teilt ja diesen String in Dauer1(vor wert 00 - 23), Integer und in Dauer2 (Nachwert). Anschließend werden die Stunden * 60 gerechnet ( Dauer1 * 60 + Dauer2 ) um an den Minuten Wert zu kommen, das selbe dann nocheinmal mit der 2ten Textbox Dauer1 * 60 + Dauer2 / 100 * 60 danach werden die einfach 2 Variabeln Ende - Anfang gerechnet um die übrigen Minuten zu erhalten. Und zu letzt werden diese dann zusammen addiert und in Stunden und Minuten getrennt.

    Beispiel der alten Version:


    Ich versuche ja jeglich erstmal die Funktion so umzuschreiben das er sich den Inhalt nicht mehr aus den TextBoxen bezieht , sonders aus dem DataGridView.

    Besonders wichtig ist dabei diese Funktion hier, doch wie kann ich alle Leeren Zellen des DataGridViews ansprechen?

    VB.NET-Quellcode

    1. For Each ctl In Me.Controls.OfType(Of TextBox)()
    2. Console.WriteLine(ctl.Name)
    3. If ctl.Text = "00:00" Then
    4. ctl.Text = ""
    5. End If



    LG

    also mit einem typisierten Dataset würde man eine Tabelle Arbeiter anlegen, und eine Tabelle Stempelzeiten. Die Monats-Auswahl könnte man mit einem BindingSource-Filter einstellen.
    Wären vlt. 5 Zeilen zum Zusammenrechnen nötig.
    Die Timespan-Struktur kann übrigens sehr fabelhaft mit Bruchteilen von Stunden rechnen (TotalHours As Double).

    @MarvinKleinMusic
    Das es sich hier um industrielle Zeitangaben handelt, hättest du im 1. Post erwähnen können.
    In dem Fall würde ich diese Zeiten als Double angeben - also mit einem Komma...
    Und im DGV-CellFormatting Event werden die Kommas zum Doppelpunkt zur Anzeige gebracht...

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „VB1963“ ()

Facebook
Telefonspende