Messagebox

  • VB.NET

Es gibt 16 Antworten in diesem Thema. Der letzte Beitrag () ist von diylab.

    Messagebox

    Hallo Forum,

    habe auf meiner Form eine ListView mit verschiedenen Eintraegen.
    mit der angehängten Funktion wird eine Suche in der LV durchgeführt.
    das Ergebnis in eine MessageBox ausgegeben. Funktioniert soweit auch ganz Gut.

    nun möchte ich noch die Info der gefundenen Eintraege (Anzahl + die Summe der Ausfallzeit) mit anzeigen.
    da komm ich nicht ganz mit klar.

    VB.NET-Quellcode

    1. ' Button Suche
    2. Private Sub btnSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSearch.Click
    3. Dim searchstring As String = txtStringSuche.Text
    4. Dim searchlist As List(Of ListViewItem) = SearchLV(LVSchichtbuch, searchstring, 7)
    5. Dim mssage As String = ""
    6. For Each item In searchlist
    7. For Each subitem As ListViewItem.ListViewSubItem In item.SubItems
    8. mssage += subitem.Text + "-"
    9. Next
    10. mssage = mssage.Substring(0, mssage.Length - 1) + vbNewLine
    11. Next
    12. MessageBox.Show(mssage)
    13. ' soll die gefundenen Einträge (Suchbegriff als Anzahl anzeigen + Summe der Stoerminuten)
    14. ' Beispiel 3 Eintraege |zur Eingabe| gefunden (15 Minuten Ausfallzeit gemeldet)
    15. Dim itm As ListViewItem
    16. With LVSchichtbuch
    17. itm = .FindItemWithText(txtStringSuche.Text, False, 1, True)
    18. If Not itm Is Nothing Then
    19. .Items.Item(itm.Index).Selected = True
    20. End If
    21. End With
    22. itm = Nothing
    25. End Sub
    26. ' Funktion
    27. Public Function SearchLV(ByVal lv As ListView, ByVal SearchString As String, ByVal Colmn As Integer) As List(Of ListViewItem)
    28. SearchLV = (From item In lv.Items.OfType(Of ListViewItem)()
    29. Where item.SubItems(Colmn).Text.Contains(SearchString)
    30. Select item).ToList
    31. If SearchLV.Count = 0 Then
    32. SearchLV.Add(New ListViewItem("Nichts gefunden"))
    33. End If
    34. End Function
    Bilder

    • Search Ergebnis.JPG

      67,75 kB, 632×392, 251 mal angesehen

    Hallo,

    Dein Ansatz ist recht gruslig - das ListView (warum nehmen so viele Leute dieses komische ListView?) sollte Deine Daten nur anzeigen und nicht auf Deine Weise durchsuchbar sein.
    Außerdem verstehe ich nicht, das die Suchergebinisse in einer Messagebox ausgegeben werden - das ist doch seltsam, wenn man schon ein ListView hat..

    Ein besserer Ansatz, um Deine Anforderungen viel bequemer und mit weniger Code durchzuführen:
    • pack Deine Daten in ein DataSet oder einfach nur in eine DataTable
    • generiere daraus ein DataView - dort kannst Du sehr bequem über den RowFilter Suchen und Filtern
    • binde dieses DataView an ein DataGridView

    Alles ganz einfach und sehr mächtig.
    Solltest Du offen für dieses Modell sein, wird Dir sicher gern geholfen!

    LG, schönes WE,
    Bruno

    Hallo und Danke das ihr da helfen wollt.

    für die DGV muss ich alles ändern?

    habe 2 ListView die je mit Daten der Instandhaltung, und der Fertigung geladen wird um keinen Mix zu haben.
    Soll aber vergleich bar bleiben. darum die Suche in 1. Instandhaltung Ergebnis 2. Fertigung Ergebnis

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Sub Daten_Schichtbuch()
    3. Dim myDate As String = DTP_Von.Value.ToShortDateString
    5. txtDTP_Von.Text = Now.AddDays(-7).ToShortDateString()
    6. txtDTP_Bis.Text = Now.AddDays(-1).ToShortDateString()
    7. Dim differenz As Long = DateDiff("d", txtDTP_Von.Text, txtDTP_Bis.Text)
    9. Try
    11. Dim verbindung As OleDb.OleDbConnection = _
    12. New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\TPM\TPMDB.mdb")
    13. ' SQL String generieren
    14. Dim strsql = "SELECT tblStoerungen.StörungID_P, " & _
    15. "tblStoerungen.StoerDatum, " & _
    16. "tblMaschine.Bezeichnung, " & _
    17. "tblArbeitsfolge.Arbeitsfolge, " & _
    18. "'Problem:|' & [Stoergrund] & '|' & 'Eingriff IH: |' & [BemerkungMaßnahme] AS Meldung, " & _
    19. "tblStoerungen.StoerZeitM, " & _
    20. "tblMitarbeiterNamen.Name, tblBereiche.Bereich, " & _
    21. "[Schichtart] & ' ( DS ' & [DS] & ')' AS Schicht, " & _
    22. "tblStoerungen.MaschinenID_F," & _
    23. "tblStoerungen.MStandort " & _
    24. "FROM ((((tblStoerungen LEFT JOIN tblMaschine " & _
    25. "ON tblStoerungen.MaschinenID_F = tblMaschine.MaschineID_P) LEFT JOIN tblArbeitsfolge " & _
    26. "ON tblStoerungen.ArbeitsfolgeID_F = tblArbeitsfolge.ArbeitsfolgeID) LEFT JOIN tblMitarbeiterNamen " & _
    27. "ON tblStoerungen.MitarbeiterID_F = tblMitarbeiterNamen.MitarbeiterID_P) LEFT JOIN tblBereiche " & _
    28. "ON tblStoerungen.BereichID_F = tblBereiche.BereichID_P) LEFT JOIN tblSchichtarten " & _
    29. "ON tblStoerungen.SchichtartID_F = tblSchichtarten.SchichtArtID_P " & _
    30. "WHERE ((tblStoerungen.Stoergrund)<>'Kein Stör-Ereignis') AND ((tblStoerungen.MStandort)=6) " & _
    31. " AND tblStoerungen.StoerDatum Between " & Format$(CDate(txtDTP_Von.Text), "\#MM\/dd\/yyyy\#") & _
    32. " And " & Format$(CDate(txtDTP_Bis.Text), "\#MM\/dd\/yyyy\#") & _
    33. "ORDER BY tblStoerungen.StoerDatum DESC;"
    34. ' SQL ausführen
    35. Dim ausfuehren As New OleDb.OleDbCommand(strsql, verbindung)
    36. Dim ds As New DataSet
    37. Dim da As New OleDb.OleDbDataAdapter(ausfuehren)
    38. Dim lvi As ListViewItem
    41. da.Fill(ds)
    43. LVSchichtbuch.Columns.Clear()
    44. LVSchichtbuch.Items.Clear()
    45. LVSchichtbuch.View = View.SmallIcon
    46. LVSchichtbuch.View = View.Details
    47. '#-------------------------------------------------------------------------- Spaltennummer #
    48. LVSchichtbuch.Columns.Add("Nr", 55) 'ID 0
    49. LVSchichtbuch.Columns.Add("Tag", 75) 'Störeintrag 1
    50. LVSchichtbuch.Columns.Add("Maschine", 150) 'Maschine 2
    51. LVSchichtbuch.Columns.Add("Arbeitsfolge", 100) 'Station/Arbeitsfolge 3
    52. LVSchichtbuch.Columns.Add("Minuten", 55) 'Ausfallzeit 5
    53. LVSchichtbuch.Columns.Add("Bereich", 80) 'Mechanik,Elektrik etc 7
    54. LVSchichtbuch.Columns.Add("Schichtart", 85) 'Früh-Spät-Nacht 8
    55. LVSchichtbuch.Columns.Add("Stoergrund", 510) 'Problem/Ausfall/Störung 4
    56. '#----------------------------------------------------------------------------------------- #
    59. With LVSchichtbuch
    60. .Items.Clear()
    61. With ds.Tables(0)
    64. For i As Integer = 0 To .Rows.Count - 1
    66. With .Rows(i)
    68. lvi = LVSchichtbuch.Items.Add(.Item(0), 1)
    69. lvi.SubItems.Add(.Item(1))
    70. lvi.SubItems.Add(.Item(2))
    71. lvi.SubItems.Add(.Item(3))
    72. lvi.SubItems.Add(.Item(5).ToString)
    73. lvi.SubItems.Add(.Item(7).ToString)
    74. lvi.SubItems.Add(.Item(8).ToString)
    75. lvi.SubItems.Add(.Item(4).ToString)
    77. End With
    81. Next
    83. If LVSchichtbuch.Items.Count = 0 Then
    84. Me.TextBox2.Text = "Keine Daten gefunden"
    85. Label3.Text = "..."
    86. Me.lblPfadFertigung.Visible = False
    87. Else
    88. Me.TextBox2.Text = LVSchichtbuch.Items.Count & " Einträge"
    89. Label3.Text = "Ergebnis(IH Schichtbuch)" & " |der letzten >> " & differenz & " | Tage"
    90. End If
    92. ' ---- färbt die Zeilen ein
    93. SetLvwItemBackcolor(LVSchichtbuch, False)
    94. Me.Cursor = Cursors.Default
    95. End With
    96. End With
    97. GesamtSumMinutenSB()
    99. Catch ex As Exception
    100. MsgBox("Es ist ein Fehler aufgetreten!" & vbCrLf & _
    101. ex.Message, MsgBoxStyle.Exclamation)
    102. End Try

    Moin Menorca,

    Deine Daten kommen also aus einer Access Datenbank und Du hast nach der Abfrage ein DataSet - das ist prima.
    Dann kannst meinen Vorschlag ganz einfach umsetzen.

    Hier die Testversionen:

    VB.NET
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.Data
    2. Imports System.Windows.Forms
    4. Partial Public Class frmMain
    5. Inherits Form
    6. Private dtStoerungen As DataTable
    7. Private dvStoerungen As DataView
    9. ''' <summary>
    10. ''' Constructor
    11. ''' </summary>
    12. Public Sub New()
    13. InitializeComponent()
    15. ' DataGridView
    16. dgvStoerungen.AutoGenerateColumns = False
    17. dgvStoerungen.ShowCellErrors = False
    18. dgvStoerungen.ShowRowErrors = False
    19. dgvStoerungen.AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.None
    20. dgvStoerungen.SelectionMode = DataGridViewSelectionMode.FullRowSelect
    21. dgvStoerungen.RowHeadersWidthSizeMode = DataGridViewRowHeadersWidthSizeMode.DisableResizing
    22. dgvStoerungen.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.DisableResizing
    24. ' DataTable
    25. dtStoerungen = New DataTable("Schichtbuch")
    27. ' Set DataTable columns
    28. dtStoerungen.Columns.Add("Nr", GetType(Int32)) ' ID
    29. dtStoerungen.Columns.Add("Tag", GetType(DateTime)) ' Störeintrag
    30. dtStoerungen.Columns.Add("Maschine", GetType([String])) ' Maschine
    31. dtStoerungen.Columns.Add("Arbeitsfolge", GetType([String])) ' Station/Arbeitsfolge
    32. dtStoerungen.Columns.Add("Minuten", GetType(Int32)) ' Ausfallzeit
    33. dtStoerungen.Columns.Add("Bereich", GetType([String])) ' Mechanik,Elektrik etc
    34. dtStoerungen.Columns.Add("Schichtart", GetType([String])) ' Früh-Spät-Nacht
    35. dtStoerungen.Columns.Add("Stoergrund", GetType([String])) ' Problem/Ausfall/Störung
    37. ' Bindings
    38. dgvStoerungen.Columns(0).DataPropertyName = "Nr" ' ID
    39. dgvStoerungen.Columns(1).DataPropertyName = "Tag" ' Störeintrag
    40. dgvStoerungen.Columns(2).DataPropertyName = "Maschine" ' Maschine
    41. dgvStoerungen.Columns(3).DataPropertyName = "Arbeitsfolge" ' Station/Arbeitsfolge
    42. dgvStoerungen.Columns(4).DataPropertyName = "Minuten" ' Ausfallzeit
    43. dgvStoerungen.Columns(5).DataPropertyName = "Bereich" ' Mechanik,Elektrik etc
    44. dgvStoerungen.Columns(6).DataPropertyName = "Schichtart" ' Früh-Spät-Nacht
    45. dgvStoerungen.Columns(7).DataPropertyName = "Stoergrund" ' Problem/Ausfall/Störung
    47. ' Set Test-Rows
    48. dtStoerungen.Rows.Add(1, DateTime.Now.AddDays(-9), "Flux Kompensator", "1", 10, "Elektrik", "F", "Fluxiert nicht mehr - Tunneldiode TD1 defekt - gewechselt")
    49. dtStoerungen.Rows.Add(2, DateTime.Now.AddDays(-8), "Brötcheneinkerber", "2", 15, "Mechanik", "F", "Kerbe matchig - Einkerber geschärft")
    50. dtStoerungen.Rows.Add(3, DateTime.Now.AddDays(-7), "Dübeltrockner", "3", 20, "Mechanik", "F", "Dübeltrocken Fluid nachgefüllt")
    51. dtStoerungen.Rows.Add(4, DateTime.Now.AddDays(-6), "Nacktschnecken Pullover Strickmaschine", "4", 25, "Mechanik", "S", "letzte Ölung")
    52. dtStoerungen.Rows.Add(5, DateTime.Now.AddDays(-5), "Kullminator", "5", 30, "Mechanik", "S", "Kullminiert nicht exakt - Kullminum defekt - zentriert")
    53. dtStoerungen.Rows.Add(6, DateTime.Now.AddDays(-4), "Schneehasenfärber", "6", 35, "Spinner", "S", "Färbt Hasen gelb - richtige Farbe eingefüllt!")
    54. dtStoerungen.Rows.Add(7, DateTime.Now.AddDays(-3), "Rühreirührer", "7", 40, "Sklaven", "N", "Eier nachgefüllt und defekten Ei-Sensor getauscht")
    55. dtStoerungen.Rows.Add(8, DateTime.Now.AddDays(-2), "Kaugummientfeuchter", "8", 45, "Mechanik", "N", "getestet - Gummis ein wenig zu trocken - eingestellt")
    56. dtStoerungen.Rows.Add(9, DateTime.Now.AddDays(-1), "Nasenbrecher", "9", 50, "Mechanik", "N", "Nasenzieleinrichtung justiert und getestet")
    57. dtStoerungen.Rows.Add(10, DateTime.Now, "Singlemaltverdünner", "10", 55, "Spinner", "F", "Nee - das macht man nicht")
    59. ' DataView from DataTable
    60. dvStoerungen = New DataView(dtStoerungen)
    62. ' Bind DataView to DataGridView
    63. dgvStoerungen.DataSource = dvStoerungen
    64. End Sub
    66. ''' <summary>
    67. ''' Set filter 1
    68. ''' </summary>
    69. ''' <param name="sender"></param>
    70. ''' <param name="e"></param>
    71. ''' <remarks></remarks>
    72. Private Sub ButtonFilter1_Click(sender As Object, e As EventArgs) Handles ButtonFilter1.Click
    73. Try
    74. dvStoerungen.RowFilter = textBox1.Text
    75. WriteFooter(dtStoerungen, dvStoerungen)
    76. Catch ex As Exception
    77. MessageBox.Show(ex.Message)
    78. End Try
    79. End Sub
    81. ''' <summary>
    82. ''' Set filter 2
    83. ''' </summary>
    84. ''' <param name="sender"></param>
    85. ''' <param name="e"></param>
    86. ''' <remarks></remarks>
    87. Private Sub ButtonFilter2_Click(sender As Object, e As EventArgs) Handles ButtonFilter2.Click
    88. Try
    89. dvStoerungen.RowFilter = textBox2.Text
    90. WriteFooter(dtStoerungen, dvStoerungen)
    91. Catch ex As Exception
    92. MessageBox.Show(ex.Message)
    93. End Try
    94. End Sub
    96. ''' <summary>
    97. ''' Set filter 3
    98. ''' </summary>
    99. ''' <param name="sender"></param>
    100. ''' <param name="e"></param>
    101. ''' <remarks></remarks>
    102. Private Sub ButtonFilter3_Click(sender As Object, e As EventArgs) Handles ButtonFilter3.Click
    103. Try
    104. dvStoerungen.RowFilter = textBox3.Text
    105. WriteFooter(dtStoerungen, dvStoerungen)
    106. Catch ex As Exception
    107. MessageBox.Show(ex.Message)
    108. End Try
    109. End Sub
    111. ''' <summary>
    112. ''' View all DataRows
    113. ''' </summary>
    114. ''' <param name="sender"></param>
    115. ''' <param name="e"></param>
    116. ''' <remarks></remarks>
    117. Private Sub ButtonAllData_Click(sender As Object, e As EventArgs) Handles ButtonAllData.Click
    118. dvStoerungen.RowFilter = String.Empty
    119. labelFooter.Text = String.Empty
    120. End Sub
    122. ''' <summary>
    123. ''' Write Footer
    124. ''' </summary>
    125. ''' <param name="dt"></param>
    126. ''' <param name="dv"></param>
    127. Private Sub WriteFooter(dt As DataTable, dv As DataView)
    128. If dv.Count > 0 Then
    129. labelFooter.Text = dvStoerungen.Count & " Entsprechungen zu Ihrer Suche. Gesamte Störungszeit: " & [String].Format("{0}", dtStoerungen.Compute("Sum(Minuten)", dv.RowFilter)) & " Min."
    130. Else
    131. labelFooter.Text = "Keine Entsprechnungen zu Ihrer Suche."
    132. End If
    133. End Sub
    135. End Class


    C#
    Spoiler anzeigen

    C-Quellcode

    1. using System;
    2. using System.Data;
    3. using System.Windows.Forms;
    5. namespace Schichtbuch
    6. {
    7. public partial class frmMain : Form
    8. {
    9. private DataTable dtStoerungen;
    10. private DataView dvStoerungen;
    12. /// <summary>
    13. /// Constructor
    14. /// </summary>
    15. public frmMain()
    16. {
    17. InitializeComponent();
    19. // DataGridView
    20. dgvStoerungen.AutoGenerateColumns = false;
    21. dgvStoerungen.ShowCellErrors = false;
    22. dgvStoerungen.ShowRowErrors = false;
    23. dgvStoerungen.AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.None;
    24. dgvStoerungen.SelectionMode = DataGridViewSelectionMode.FullRowSelect;
    25. dgvStoerungen.RowHeadersWidthSizeMode = DataGridViewRowHeadersWidthSizeMode.DisableResizing;
    26. dgvStoerungen.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.DisableResizing;
    28. // DataTable
    29. dtStoerungen = new DataTable("Schichtbuch");
    31. // Set DataTable columns
    32. dtStoerungen.Columns.Add("Nr", typeof(Int32)); // ID
    33. dtStoerungen.Columns.Add("Tag", typeof(DateTime)); // Störeintrag
    34. dtStoerungen.Columns.Add("Maschine", typeof(String)); // Maschine
    35. dtStoerungen.Columns.Add("Arbeitsfolge", typeof(String)); // Station/Arbeitsfolge
    36. dtStoerungen.Columns.Add("Minuten", typeof(Int32)); // Ausfallzeit
    37. dtStoerungen.Columns.Add("Bereich", typeof(String)); // Mechanik,Elektrik etc
    38. dtStoerungen.Columns.Add("Schichtart", typeof(String)); // Früh-Spät-Nacht
    39. dtStoerungen.Columns.Add("Stoergrund", typeof(String)); // Problem/Ausfall/Störung
    41. // Bindings
    42. dgvStoerungen.Columns[0].DataPropertyName = "Nr"; // ID
    43. dgvStoerungen.Columns[1].DataPropertyName = "Tag"; // Störeintrag
    44. dgvStoerungen.Columns[2].DataPropertyName = "Maschine"; // Maschine
    45. dgvStoerungen.Columns[3].DataPropertyName = "Arbeitsfolge"; // Station/Arbeitsfolge
    46. dgvStoerungen.Columns[4].DataPropertyName = "Minuten"; // Ausfallzeit
    47. dgvStoerungen.Columns[5].DataPropertyName = "Bereich"; // Mechanik,Elektrik etc
    48. dgvStoerungen.Columns[6].DataPropertyName = "Schichtart"; // Früh-Spät-Nacht
    49. dgvStoerungen.Columns[7].DataPropertyName = "Stoergrund"; // Problem/Ausfall/Störung
    51. // Set Test-Rows
    52. dtStoerungen.Rows.Add(1, DateTime.Now.AddDays(-9), "Flux Kompensator", "1", 10, "Elektrik", "F", "Fluxiert nicht mehr - Tunneldiode TD1 defekt - gewechselt");
    53. dtStoerungen.Rows.Add(2, DateTime.Now.AddDays(-8), "Brötcheneinkerber", "2", 15, "Mechanik", "F", "Kerbe matchig - Einkerber geschärft");
    54. dtStoerungen.Rows.Add(3, DateTime.Now.AddDays(-7), "Dübeltrockner", "3", 20, "Mechanik", "F", "Dübeltrocken Fluid nachgefüllt");
    55. dtStoerungen.Rows.Add(4, DateTime.Now.AddDays(-6), "Nacktschnecken Pullover Strickmaschine", "4", 25, "Mechanik", "S", "letzte Ölung");
    56. dtStoerungen.Rows.Add(5, DateTime.Now.AddDays(-5), "Kullminator", "5", 30, "Mechanik", "S", "Kullminiert nicht exakt - Kullminum defekt - zentriert");
    57. dtStoerungen.Rows.Add(6, DateTime.Now.AddDays(-4), "Schneehasenfärber", "6", 35, "Spinner", "S", "Färbt Hasen gelb - richtige Farbe eingefüllt!");
    58. dtStoerungen.Rows.Add(7, DateTime.Now.AddDays(-3), "Rühreirührer", "7", 40, "Sklaven", "N", "Eier nachgefüllt und defekten Ei-Sensor getauscht");
    59. dtStoerungen.Rows.Add(8, DateTime.Now.AddDays(-2), "Kaugummientfeuchter", "8", 45, "Mechanik", "N", "getestet - Gummis ein wenig zu trocken - eingestellt");
    60. dtStoerungen.Rows.Add(9, DateTime.Now.AddDays(-1), "Nasenbrecher", "9", 50, "Mechanik", "N", "Nasenzieleinrichtung justiert und getestet");
    61. dtStoerungen.Rows.Add(10, DateTime.Now, "Singlemaltverdünner", "10", 55, "Spinner", "F", "Nee - das macht man nicht");
    63. // DataView from DataTable
    64. dvStoerungen = new DataView(dtStoerungen);
    66. // Bind DataView to DataGridView
    67. dgvStoerungen.DataSource = dvStoerungen;
    68. }
    70. /// <summary>
    71. /// Set filter 1
    72. /// </summary>
    73. /// <param name="sender"></param>
    74. /// <param name="e"></param>
    75. private void button1_Click(object sender, EventArgs e)
    76. {
    77. try
    78. {
    79. dvStoerungen.RowFilter = textBox1.Text;
    80. WriteFooter(dtStoerungen, dvStoerungen);
    81. }
    82. catch (Exception ex)
    83. {
    84. MessageBox.Show(ex.Message);
    85. }
    86. }
    88. /// <summary>
    89. /// Set filter 2
    90. /// </summary>
    91. /// <param name="sender"></param>
    92. /// <param name="e"></param>
    93. private void button2_Click(object sender, EventArgs e)
    94. {
    95. try
    96. {
    97. dvStoerungen.RowFilter = textBox2.Text;
    98. WriteFooter(dtStoerungen, dvStoerungen);
    99. }
    100. catch (Exception ex)
    101. {
    102. MessageBox.Show(ex.Message);
    103. }
    104. }
    106. /// <summary>
    107. /// Set filter 3
    108. /// </summary>
    109. /// <param name="sender"></param>
    110. /// <param name="e"></param>
    111. private void button3_Click(object sender, EventArgs e)
    112. {
    113. try
    114. {
    115. dvStoerungen.RowFilter = textBox3.Text;
    116. WriteFooter(dtStoerungen, dvStoerungen);
    117. }
    118. catch (Exception ex)
    119. {
    120. MessageBox.Show(ex.Message);
    121. }
    122. }
    124. /// <summary>
    125. /// View all DataRows
    126. /// </summary>
    127. /// <param name="sender"></param>
    128. /// <param name="e"></param>
    129. private void button4_Click(object sender, EventArgs e)
    130. {
    131. dvStoerungen.RowFilter = string.Empty;
    132. labelFooter.Text = string.Empty;
    133. }
    135. /// <summary>
    136. /// Write Footer
    137. /// </summary>
    138. /// <param name="dt"></param>
    139. /// <param name="dv"></param>
    140. private void WriteFooter(DataTable dt, DataView dv)
    141. {
    142. if (dv.Count > 0)
    143. {
    144. labelFooter.Text = dvStoerungen.Count + " Entsprechungen zu Ihrer Suche. Gesamte Störungszeit: " + String.Format("{0}", dtStoerungen.Compute("Sum(Minuten)", dv.RowFilter)) + " Min.";
    145. }
    146. else
    147. {
    148. labelFooter.Text = "Keine Entsprechnungen zu Ihrer Suche.";
    149. }
    150. }
    151. }
    152. }





    Nimm Dir ein bisschen Zeit, das Prinzip zu verstehen. Auch wenn auf den ersten Blick mehr Code als bei Dir zu sehen ist - dem ist nicht wirklich so.

    Der Rowfilter ist sehr mächtig und meine Beispiele decken nur einen Bruchteil ab - mehr gibt es hier.
    Du kannst also den Filter als String so zusammenbauen, wie Du es brauchst.
    Das Projekt (als VB.NET und C#) hänge ich zum Test hier ran und hoffe, dass die Moderatoren es nicht löschen.

    Wenn Du Fragen hast - immer her damit.

    LG,
    Bruno
    Dateien

    • Schichtbuch.zip

      (179,6 kB, 121 mal heruntergeladen, zuletzt: )

    Mein Fehler

    Super, Spitze damit habe ich ja garnicht gerechnet.

    bekomme jedoch meine Daten nicht vollständig geladen?
    und ich bräuchte unter der ersten dgv eine weitere für die Fertigungsdaten die mit dem gleichen filter gefitert werden soll
    und den Fund Anzahl + Minuten in Summe ausgeibt

    ich hatte meine LV bereits Druckfähig gemacht, nun muss ich die DGV halt drucken

    Spoiler anzeigen

    VB.NET-Quellcode

    1. ''' <summary>
    2. ''' Constructor
    3. ''' </summary>
    4. Public Sub New()
    5. InitializeComponent()
    7. ' DataGridView
    8. dgvStoerungen.AutoGenerateColumns = False
    9. dgvStoerungen.ShowCellErrors = False
    10. dgvStoerungen.ShowRowErrors = False
    11. dgvStoerungen.AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.None
    12. dgvStoerungen.SelectionMode = DataGridViewSelectionMode.FullRowSelect
    13. dgvStoerungen.RowHeadersWidthSizeMode = DataGridViewRowHeadersWidthSizeMode.DisableResizing
    14. dgvStoerungen.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.DisableResizing
    16. ' DataTable
    17. dtStoerungen = New DataTable("Schichtbuch")
    19. ' Set DataTable columns
    20. dtStoerungen.Columns.Add("Nr", GetType(Int32)) ' ID
    21. dtStoerungen.Columns.Add("Tag", GetType(DateTime)) ' Störeintrag
    22. dtStoerungen.Columns.Add("Maschine", GetType([String])) ' Maschine
    23. dtStoerungen.Columns.Add("Arbeitsfolge", GetType([String])) ' Station/Arbeitsfolge
    24. dtStoerungen.Columns.Add("Minuten", GetType(Int32)) ' Ausfallzeit
    25. dtStoerungen.Columns.Add("Bereich", GetType([String])) ' Mechanik,Elektrik etc
    26. dtStoerungen.Columns.Add("Schichtart", GetType([String])) ' Früh-Spät-Nacht
    27. dtStoerungen.Columns.Add("Stoergrund", GetType([String])) ' Problem/Ausfall/Störung
    29. ' Bindings
    30. dgvStoerungen.Columns(0).DataPropertyName = "Nr" ' ID
    31. dgvStoerungen.Columns(1).DataPropertyName = "Tag" ' Störeintrag
    32. dgvStoerungen.Columns(2).DataPropertyName = "Maschine" ' Maschine
    33. dgvStoerungen.Columns(3).DataPropertyName = "Arbeitsfolge" ' Station/Arbeitsfolge
    34. dgvStoerungen.Columns(4).DataPropertyName = "Minuten" ' Ausfallzeit
    35. dgvStoerungen.Columns(5).DataPropertyName = "Bereich" ' Mechanik,Elektrik etc
    36. dgvStoerungen.Columns(6).DataPropertyName = "Schichtart" ' Früh-Spät-Nacht
    37. dgvStoerungen.Columns(7).DataPropertyName = "Stoergrund" ' Problem/Ausfall/Störung
    39. ' Set Test-Rows
    40. Dim verbindung As OleDb.OleDbConnection = _
    41. New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\TPM\TPMDB.mdb")
    43. Dim strsql = "SELECT " & _
    44. "tblFertigung.StörungID_P, " & _
    45. "tblFertigung.StoerDatum, " & _
    46. "tblMaschine.Bezeichnung, " & _
    47. "tblArbeitsfolge.Arbeitsfolge, " & _
    48. "'Problem:|' & [Stoergrund] & '|' & 'Eingriff IH: |' & [BemerkungMaßnahme] AS Meldung, " & _
    49. "tblFertigung.StoerZeitM, " & _
    50. "tblMitarbeiterNamen.Name, " & _
    51. "tblBereiche.Bereich, " & _
    52. "[Schichtart] & ' ( DS ' & [DS] & ')' AS Schicht, " & _
    53. "tblFertigung.MaschinenID_F " & _
    54. "FROM ((((tblFertigung LEFT JOIN tblMaschine " & _
    55. "ON tblFertigung.MaschinenID_F = tblMaschine.MaschineID_P) LEFT JOIN tblArbeitsfolge " & _
    56. "ON tblFertigung.ArbeitsfolgeID_F = tblArbeitsfolge.ArbeitsfolgeID) LEFT JOIN tblMitarbeiterNamen " & _
    57. "ON tblFertigung.MitarbeiterID_F = tblMitarbeiterNamen.MitarbeiterID_P) LEFT JOIN tblBereiche " & _
    58. "ON tblFertigung.BereichID_F = tblBereiche.BereichID_P) LEFT JOIN tblSchichtarten " & _
    59. "ON tblFertigung.SchichtartID_F = tblSchichtarten.SchichtArtID_P "
    61. Dim ausfuehren As New OleDb.OleDbCommand(strsql, verbindung)
    62. Dim ds As New DataSet
    63. Dim da As New OleDb.OleDbDataAdapter(ausfuehren)
    64. da.Fill(dtStoerungen)
    66. ' DataView from DataTable
    67. dvStoerungen = New DataView(dtStoerungen)
    69. ' Bind DataView to DataGridView
    70. dgvStoerungen.DataSource = dvStoerungen
    Bilder

    • Unbenannt.JPG

      71,21 kB, 904×549, 140 mal angesehen

    • Unbenannt.JPG

      76,55 kB, 1.107×286, 115 mal angesehen

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „menorca“ () aus folgendem Grund: Fehler gefunden es klappt doch

    menorca schrieb:

    bekomme jedoch meine Daten nicht vollständig geladen?


    Das ist klar, schau Dir mal Deine SELECT Abfrage an - da kommen ja auch andere Felder zurück.
    Die musst Du dem DataGridView ja auch bekannt machen.

    Am schönsten wäre es, wenn Du die .MDB mal rüberreichst, aber die wirst Du wohl nicht rausgeben?

    LG,
    Bruno

    Hallo Bruno,

    hatte ich etwas später bemerkt und als 2 Bild angehängt

    ich habe mir 2 DTP und 2 TB auf die Form gezogen, damit filterer ich zwischen Date1 und Date2
    würde das im RowFilter anders gehen?

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Sub New()
    2. InitializeComponent()
    4. ' DataGridView
    5. dgvStoerungen.AutoGenerateColumns = False
    6. dgvStoerungen.ShowCellErrors = False
    7. dgvStoerungen.ShowRowErrors = False
    8. dgvStoerungen.AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.None
    9. dgvStoerungen.SelectionMode = DataGridViewSelectionMode.FullRowSelect
    10. dgvStoerungen.RowHeadersWidthSizeMode = DataGridViewRowHeadersWidthSizeMode.DisableResizing
    11. dgvStoerungen.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.DisableResizing
    13. ' DataTable
    14. dtStoerungen = New DataTable("Schichtbuch")
    16. ' Set DataTable columns
    17. dtStoerungen.Columns.Add("Nr", GetType(Int32)) ' ID
    18. dtStoerungen.Columns.Add("Tag", GetType(DateTime)) ' Störeintrag
    19. dtStoerungen.Columns.Add("Maschine", GetType([String])) ' Maschine
    20. dtStoerungen.Columns.Add("Arbeitsfolge", GetType([String])) ' Station/Arbeitsfolge
    21. dtStoerungen.Columns.Add("Minuten", GetType(Int32)) ' Ausfallzeit
    22. dtStoerungen.Columns.Add("Bereich", GetType([String])) ' Mechanik,Elektrik etc
    23. dtStoerungen.Columns.Add("Schichtart", GetType([String])) ' Früh-Spät-Nacht
    24. dtStoerungen.Columns.Add("Stoergrund", GetType([String])) ' Problem/Ausfall/Störung
    26. ' Bindings
    27. dgvStoerungen.Columns(0).DataPropertyName = "Nr" ' ID
    28. dgvStoerungen.Columns(1).DataPropertyName = "Tag" ' Störeintrag
    29. dgvStoerungen.Columns(2).DataPropertyName = "Maschine" ' Maschine
    30. dgvStoerungen.Columns(3).DataPropertyName = "Arbeitsfolge" ' Station/Arbeitsfolge
    31. dgvStoerungen.Columns(4).DataPropertyName = "Minuten" ' Ausfallzeit
    32. dgvStoerungen.Columns(5).DataPropertyName = "Bereich" ' Mechanik,Elektrik etc
    33. dgvStoerungen.Columns(6).DataPropertyName = "Schichtart" ' Früh-Spät-Nacht
    34. dgvStoerungen.Columns(7).DataPropertyName = "Meldung" ' Problem/Ausfall/Störung
    36. Dim myDate As String = DTP_Von.Value.ToShortDateString
    38. txtDTP_Von.Text = Now.AddDays(-14).ToShortDateString()
    39. txtDTP_Bis.Text = Now.AddDays(-1).ToShortDateString()
    40. Dim differenz As Long = DateDiff("d", txtDTP_Von.Text, txtDTP_Bis.Text)
    41. ' Set Test-Rows
    42. Dim verbindung As OleDb.OleDbConnection = _
    43. New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\TPM\TPMDB.mdb")
    44. ' SQL String generieren
    45. Dim strsql = "SELECT tblStoerungen.StörungID_P AS Nr, " & _
    46. "tblStoerungen.StoerDatum AS Tag, " & _
    47. "tblMaschine.Bezeichnung AS Maschine, " & _
    48. "tblArbeitsfolge.Arbeitsfolge, " & _
    49. "'Problem:|' & [Stoergrund] & '|' & 'Eingriff IH: |' & [BemerkungMaßnahme] AS Meldung, " & _
    50. "tblStoerungen.StoerZeitM AS Minuten, " & _
    51. "tblMitarbeiterNamen.Name, tblBereiche.Bereich, " & _
    52. "tblSchichtarten.Schichtart AS Schichtart, " & _
    53. "tblStoerungen.MaschinenID_F," & _
    54. "tblStoerungen.MStandort " & _
    55. "FROM ((((tblStoerungen LEFT JOIN tblMaschine " & _
    56. "ON tblStoerungen.MaschinenID_F = tblMaschine.MaschineID_P) LEFT JOIN tblArbeitsfolge " & _
    57. "ON tblStoerungen.ArbeitsfolgeID_F = tblArbeitsfolge.ArbeitsfolgeID) LEFT JOIN tblMitarbeiterNamen " & _
    58. "ON tblStoerungen.MitarbeiterID_F = tblMitarbeiterNamen.MitarbeiterID_P) LEFT JOIN tblBereiche " & _
    59. "ON tblStoerungen.BereichID_F = tblBereiche.BereichID_P) LEFT JOIN tblSchichtarten " & _
    60. "ON tblStoerungen.SchichtartID_F = tblSchichtarten.SchichtArtID_P " & _
    61. "WHERE ((tblStoerungen.Stoergrund)<>'Kein Stör-Ereignis') AND ((tblStoerungen.MStandort)=6) " & _
    62. " AND tblStoerungen.StoerDatum Between " & Format$(CDate(txtDTP_Von.Text), "\#MM\/dd\/yyyy\#") & _
    63. " And " & Format$(CDate(txtDTP_Bis.Text), "\#MM\/dd\/yyyy\#") & _
    64. "ORDER BY tblStoerungen.StoerDatum DESC;"
    66. Dim ausfuehren As New OleDb.OleDbCommand(strsql, verbindung)
    67. Dim ds As New DataSet
    68. Dim da As New OleDb.OleDbDataAdapter(ausfuehren)
    69. da.Fill(dtStoerungen)
    71. ' DataView from DataTable
    72. dvStoerungen = New DataView(dtStoerungen)
    74. ' Bind DataView to DataGridView
    75. dgvStoerungen.DataSource = dvStoerungen
    77. '---> könnte ich hier eine 2te DGV füllen??
    79. End Sub

    menorca schrieb:

    ich habe mir 2 DTP und 2 TB auf die Form gezogen, damit filterer ich zwischen Date1 und Date2
    würde das im RowFilter anders gehen?


    Ich weiß nicht, ob ich Dich richtig verstehe?
    Du möchtest also eine Zeitspanne im Rowfilter setzen?

    Müsste also im Prinzip so in etwa gehen: "DeinDatumsFeld > #01.01.2014# AND DeinDatumsFeld < #01.02.2014#"
    Meinst Du das?

    Wie gesagt - hier sind alle Möglichkeiten - da kannst Du kombinieren.

    LG,
    Bruno

    Nachtrag: oder vielleicht auch so? Einfach testen: "DeinDatumsFeld > #01.01.2014 00:00:00# AND DeinDatumsFeld < #01.02.2014 00:00:00#"

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

    Hallo Bruno,

    ich habe es so umgestzt! passt

    VB.NET-Quellcode

    1. dvStoerungen.RowFilter = "Tag >" & Format$(CDate(txtDTP_Von.Text), "\#MM\/dd\/yyyy\#") & " And " & _
    2. "Tag <" & Format$(CDate(txtDTP_Bis.Text), "\#MM\/dd\/yyyy\#")


    so wie bkommt man da eine zweite DGV gefüllt?

    ich habe es so probiert, doch das haut nicht hin DGV wird nicht gefüllt

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private Sub Fertigungsgrid()
    2. InitializeComponent()
    4. ' DataGridView
    5. dgvFStoerungen.AutoGenerateColumns = False
    6. dgvFStoerungen.ShowCellErrors = False
    7. dgvFStoerungen.ShowRowErrors = False
    8. dgvFStoerungen.AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.None
    9. dgvFStoerungen.SelectionMode = DataGridViewSelectionMode.FullRowSelect
    10. dgvFStoerungen.RowHeadersWidthSizeMode = DataGridViewRowHeadersWidthSizeMode.DisableResizing
    11. dgvFStoerungen.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.DisableResizing
    13. ' DataTable
    14. dtStoerungen = New DataTable("Schichtbuch")
    16. ' Set DataTable columns
    17. dtStoerungen.Columns.Add("Nr", GetType(Int32)) ' ID
    18. dtStoerungen.Columns.Add("Tag", GetType(DateTime)) ' Störeintrag
    19. dtStoerungen.Columns.Add("Maschine", GetType([String])) ' Maschine
    20. dtStoerungen.Columns.Add("Arbeitsfolge", GetType([String])) ' Station/Arbeitsfolge
    21. dtStoerungen.Columns.Add("Minuten", GetType(Int32)) ' Ausfallzeit
    22. dtStoerungen.Columns.Add("Bereich", GetType([String])) ' Mechanik,Elektrik etc
    23. dtStoerungen.Columns.Add("Schichtart", GetType([String])) ' Früh-Spät-Nacht
    24. dtStoerungen.Columns.Add("Stoergrund", GetType([String])) ' Problem/Ausfall/Störung
    26. ' Bindings
    27. dgvFStoerungen.Columns(0).DataPropertyName = "Nr" ' ID
    28. dgvFStoerungen.Columns(1).DataPropertyName = "Tag" ' Störeintrag
    29. dgvFStoerungen.Columns(2).DataPropertyName = "Maschine" ' Maschine
    30. dgvFStoerungen.Columns(3).DataPropertyName = "Arbeitsfolge" ' Station/Arbeitsfolge
    31. dgvFStoerungen.Columns(4).DataPropertyName = "Minuten" ' Ausfallzeit
    32. dgvFStoerungen.Columns(5).DataPropertyName = "Bereich" ' Mechanik,Elektrik etc
    33. dgvFStoerungen.Columns(6).DataPropertyName = "Schichtart" ' Früh-Spät-Nacht
    34. dgvFStoerungen.Columns(7).DataPropertyName = "Meldung" ' Problem/Ausfall/Störung
    36. Dim myDate As String = DTP_Von.Value.ToShortDateString
    38. txtDTP_Von.Text = Now.AddDays(-14).ToShortDateString()
    39. txtDTP_Bis.Text = Now.AddDays(-1).ToShortDateString()
    40. Dim differenz As Long = DateDiff("d", txtDTP_Von.Text, txtDTP_Bis.Text)
    41. ' Set Test-Rows
    42. Dim verbindung As OleDb.OleDbConnection = _
    43. New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\TPM\TPMDB.mdb")
    44. ' SQL String generieren
    45. Dim strsql = "SELECT " & _
    46. "tblFertigung.StörungID_P AS Nr, " & _
    47. "tblFertigung.StoerDatum AS Tag, " & _
    48. "tblMaschine.Bezeichnung AS Maschine, " & _
    49. "tblArbeitsfolge.Arbeitsfolge, " & _
    50. "'Problem:|' & [Stoergrund] & '|' & 'Eingriff IH: |' & [BemerkungMaßnahme] AS Meldung, " & _
    51. "tblFertigung.StoerZeitM, " & _
    52. "tblMitarbeiterNamen.Name, " & _
    53. "tblBereiche.Bereich, " & _
    54. "tblSchichtarten.Schichtart AS Schichtart, " & _
    55. "tblFertigung.MaschinenID_F " & _
    56. "FROM ((((tblFertigung LEFT JOIN tblMaschine " & _
    57. "ON tblFertigung.MaschinenID_F = tblMaschine.MaschineID_P) LEFT JOIN tblArbeitsfolge " & _
    58. "ON tblFertigung.ArbeitsfolgeID_F = tblArbeitsfolge.ArbeitsfolgeID) LEFT JOIN tblMitarbeiterNamen " & _
    59. "ON tblFertigung.MitarbeiterID_F = tblMitarbeiterNamen.MitarbeiterID_P) LEFT JOIN tblBereiche " & _
    60. "ON tblFertigung.BereichID_F = tblBereiche.BereichID_P) LEFT JOIN tblSchichtarten " & _
    61. "ON tblFertigung.SchichtartID_F = tblSchichtarten.SchichtArtID_P " & _
    62. " WHERE tblFertigung.StoerDatum Between " & Format$(CDate(txtDTP_Von.Text), "\#MM\/dd\/yyyy\#") & " And " & Format$(CDate(txtDTP_Bis.Text), "\#MM\/dd\/yyyy\#") & _
    63. "ORDER BY tblFertigung.StoerDatum DESC;"
    65. Dim ausfuehren As New OleDb.OleDbCommand(strsql, verbindung)
    66. Dim ds As New DataSet
    67. Dim da As New OleDb.OleDbDataAdapter(ausfuehren)
    68. da.Fill(dtStoerungen)
    70. ' DataView from DataTable
    71. dvStoerungen = New DataView(dtStoerungen)
    73. ' Bind DataView to DataGridView
    74. dgvFStoerungen.DataSource = dvStoerungen


    du wolltest meine DB, wofür ?
    Bilder

    • dgv+.JPG

      143,09 kB, 892×798, 100 mal angesehen

    menorca schrieb:


    so wie bkommt man da eine zweite DGV gefüllt?
    ich habe es so probiert, doch das haut nicht hin DGV wird nicht gefüllt


    Rufst Du denn überhaupt Deine Sub Fertigungsgrid() irgendwo auf?
    Und InitializeComponent() ist auch nicht nötig.

    Es ist halt nicht ganz einfach über sieben Ecken zu helfen - deswegen wollte ich ursprünglich die DB oder das Projekt.

    LG,
    Bruno

    Hallo Bruno,

    alles Gut hoffe ich. Habe das noch mal korrigiert jetzt läuft es
    ich werde dir die Daten mal aufbereiten und zu senden. Kommt drauf an wie groß es dann wird.

    jetzt muss noch die Drucken DGV rein und die prozentuelle Abweichung wie vorher im ListView ermittelt.
    auch soll da dann mit MSGraph ein Diagramm dazu erstellt werden Auswertung

    hier mal der komplette Code wie er jetzt bei mir aussieht, die Filters habe ich entsprechend angepasst!
    Richtig so?

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.Data
    2. Imports System.Windows.Forms
    4. Partial Public Class frmMain
    5. Inherits Form
    6. Private dtStoerungen As DataTable
    7. Private dvStoerungen As DataView
    8. Private dtFStoerungen As DataTable
    9. Private dvFStoerungen As DataView
    11. ''' <summary>
    12. ''' Constructor
    13. ''' </summary>
    14. Public Sub New()
    15. InitializeComponent()
    17. ' DataGridView
    18. dgvStoerungen.AutoGenerateColumns = False
    19. dgvStoerungen.ShowCellErrors = False
    20. dgvStoerungen.ShowRowErrors = False
    21. dgvStoerungen.AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.None
    22. dgvStoerungen.SelectionMode = DataGridViewSelectionMode.FullRowSelect
    23. dgvStoerungen.RowHeadersWidthSizeMode = DataGridViewRowHeadersWidthSizeMode.DisableResizing
    24. dgvStoerungen.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.DisableResizing
    26. ' DataTable
    27. dtStoerungen = New DataTable("Schichtbuch")
    29. ' Set DataTable columns
    30. dtStoerungen.Columns.Add("Nr", GetType(Int32)) ' ID
    31. dtStoerungen.Columns.Add("Tag", GetType(DateTime)) ' Störeintrag
    32. dtStoerungen.Columns.Add("Maschine", GetType([String])) ' Maschine
    33. dtStoerungen.Columns.Add("Arbeitsfolge", GetType([String])) ' Station/Arbeitsfolge
    34. dtStoerungen.Columns.Add("Minuten", GetType(Int32)) ' Ausfallzeit
    35. dtStoerungen.Columns.Add("Bereich", GetType([String])) ' Mechanik,Elektrik etc
    36. dtStoerungen.Columns.Add("Schichtart", GetType([String])) ' Früh-Spät-Nacht
    37. dtStoerungen.Columns.Add("Stoergrund", GetType([String])) ' Problem/Ausfall/Störung
    39. ' Bindings
    40. dgvStoerungen.Columns(0).DataPropertyName = "Nr" ' ID
    41. dgvStoerungen.Columns(1).DataPropertyName = "Tag" ' Störeintrag
    42. dgvStoerungen.Columns(2).DataPropertyName = "Maschine" ' Maschine
    43. dgvStoerungen.Columns(3).DataPropertyName = "Arbeitsfolge" ' Station/Arbeitsfolge
    44. dgvStoerungen.Columns(4).DataPropertyName = "Minuten" ' Ausfallzeit
    45. dgvStoerungen.Columns(5).DataPropertyName = "Bereich" ' Mechanik,Elektrik etc
    46. dgvStoerungen.Columns(6).DataPropertyName = "Schichtart" ' Früh-Spät-Nacht
    47. dgvStoerungen.Columns(7).DataPropertyName = "Meldung" ' Problem/Ausfall/Störung
    48. ' Set Test-Rows
    49. Dim verbindung As OleDb.OleDbConnection = _
    50. New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\TPM\TPMDB.mdb")
    51. ' SQL String generieren
    52. Dim strsql = "SELECT tblStoerungen.StörungID_P AS Nr, " & _
    53. "tblStoerungen.StoerDatum AS Tag, " & _
    54. "tblMaschine.Bezeichnung AS Maschine, " & _
    55. "tblArbeitsfolge.Arbeitsfolge, " & _
    56. "'Problem:|' & [Stoergrund] & '|' & 'Eingriff IH: |' & [BemerkungMaßnahme] AS Meldung, " & _
    57. "tblStoerungen.StoerZeitM AS Minuten, " & _
    58. "tblMitarbeiterNamen.Name, tblBereiche.Bereich, " & _
    59. "tblSchichtarten.Schichtart AS Schichtart, " & _
    60. "tblStoerungen.MaschinenID_F," & _
    61. "tblStoerungen.MStandort " & _
    62. "FROM ((((tblStoerungen LEFT JOIN tblMaschine " & _
    63. "ON tblStoerungen.MaschinenID_F = tblMaschine.MaschineID_P) LEFT JOIN tblArbeitsfolge " & _
    64. "ON tblStoerungen.ArbeitsfolgeID_F = tblArbeitsfolge.ArbeitsfolgeID) LEFT JOIN tblMitarbeiterNamen " & _
    65. "ON tblStoerungen.MitarbeiterID_F = tblMitarbeiterNamen.MitarbeiterID_P) LEFT JOIN tblBereiche " & _
    66. "ON tblStoerungen.BereichID_F = tblBereiche.BereichID_P) LEFT JOIN tblSchichtarten " & _
    67. "ON tblStoerungen.SchichtartID_F = tblSchichtarten.SchichtArtID_P " & _
    68. "WHERE ((tblStoerungen.Stoergrund)<>'Kein Stör-Ereignis') AND ((tblStoerungen.MStandort)=6) " & _
    69. "ORDER BY tblStoerungen.StoerDatum DESC;"
    71. Dim ausfuehren As New OleDb.OleDbCommand(strsql, verbindung)
    72. Dim ds As New DataSet
    73. Dim da As New OleDb.OleDbDataAdapter(ausfuehren)
    74. da.Fill(dtStoerungen)
    76. ' DataView from DataTable
    77. dvStoerungen = New DataView(dtStoerungen)
    79. ' Bind DataView to DataGridView
    80. dgvStoerungen.DataSource = dvStoerungen
    82. 'Daten Fertigung einbinden
    83. Fertigungsgrid()
    84. End Sub
    86. Public Sub Fertigungsgrid()
    87. Try
    88. ' DataGridView
    89. dgvFStoerungen.AutoGenerateColumns = False
    90. dgvFStoerungen.ShowCellErrors = False
    91. dgvFStoerungen.ShowRowErrors = False
    92. dgvFStoerungen.AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.None
    93. dgvFStoerungen.SelectionMode = DataGridViewSelectionMode.FullRowSelect
    94. dgvFStoerungen.RowHeadersWidthSizeMode = DataGridViewRowHeadersWidthSizeMode.DisableResizing
    95. dgvFStoerungen.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.DisableResizing
    97. ' DataTable
    98. dtFStoerungen = New DataTable("Fertigung")
    100. ' Set DataTable columns
    101. dtFStoerungen.Columns.Add("Nr", GetType(Int32)) ' ID
    102. dtFStoerungen.Columns.Add("Tag", GetType(DateTime)) ' Störeintrag
    103. dtFStoerungen.Columns.Add("Maschine", GetType([String])) ' Maschine
    104. dtFStoerungen.Columns.Add("Arbeitsfolge", GetType([String])) ' Station/Arbeitsfolge
    105. dtFStoerungen.Columns.Add("Minuten", GetType(Int32)) ' Ausfallzeit
    106. dtFStoerungen.Columns.Add("Bereich", GetType([String])) ' Mechanik,Elektrik etc
    107. dtFStoerungen.Columns.Add("Schichtart", GetType([String])) ' Früh-Spät-Nacht
    108. dtFStoerungen.Columns.Add("Stoergrund", GetType([String])) ' Problem/Ausfall/Störung
    110. ' Bindings
    111. dgvFStoerungen.Columns(0).DataPropertyName = "Nr" ' ID
    112. dgvFStoerungen.Columns(1).DataPropertyName = "Tag" ' Störeintrag
    113. dgvFStoerungen.Columns(2).DataPropertyName = "Maschine" ' Maschine
    114. dgvFStoerungen.Columns(3).DataPropertyName = "Arbeitsfolge" ' Station/Arbeitsfolge
    115. dgvFStoerungen.Columns(4).DataPropertyName = "Minuten" ' Ausfallzeit
    116. dgvFStoerungen.Columns(5).DataPropertyName = "Bereich" ' Mechanik,Elektrik etc
    117. dgvFStoerungen.Columns(6).DataPropertyName = "Schichtart" ' Früh-Spät-Nacht
    118. dgvFStoerungen.Columns(7).DataPropertyName = "Meldung" ' Problem/Ausfall/Störung
    119. ' Set Test-Rows
    120. Dim verbindung As OleDb.OleDbConnection = _
    121. New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\TPM\TPMDB.mdb")
    122. ' SQL String generieren
    123. Dim strsql = "SELECT " & _
    124. "tblFertigung.StörungID_P AS Nr, " & _
    125. "tblFertigung.StoerDatum AS Tag, " & _
    126. "tblMaschine.Bezeichnung AS Maschine, " & _
    127. "tblArbeitsfolge.Arbeitsfolge, " & _
    128. "'Problem:|' & [Stoergrund] & '|' & 'Eingriff IH: |' & [BemerkungMaßnahme] AS Meldung, " & _
    129. "tblFertigung.StoerZeitM AS Minuten, " & _
    130. "tblMitarbeiterNamen.Name, " & _
    131. "tblBereiche.Bereich, " & _
    132. "tblSchichtarten.Schichtart AS Schichtart, " & _
    133. "tblFertigung.MaschinenID_F " & _
    134. "FROM ((((tblFertigung LEFT JOIN tblMaschine " & _
    135. "ON tblFertigung.MaschinenID_F = tblMaschine.MaschineID_P) LEFT JOIN tblArbeitsfolge " & _
    136. "ON tblFertigung.ArbeitsfolgeID_F = tblArbeitsfolge.ArbeitsfolgeID) LEFT JOIN tblMitarbeiterNamen " & _
    137. "ON tblFertigung.MitarbeiterID_F = tblMitarbeiterNamen.MitarbeiterID_P) LEFT JOIN tblBereiche " & _
    138. "ON tblFertigung.BereichID_F = tblBereiche.BereichID_P) LEFT JOIN tblSchichtarten " & _
    139. "ON tblFertigung.SchichtartID_F = tblSchichtarten.SchichtArtID_P " & _
    140. "ORDER BY tblFertigung.StoerDatum DESC;"
    142. Dim ausfuehren As New OleDb.OleDbCommand(strsql, verbindung)
    143. Dim ds As New DataSet
    144. Dim da As New OleDb.OleDbDataAdapter(ausfuehren)
    145. da.Fill(dtFStoerungen)
    147. Catch ex As Exception
    148. MsgBox(ex.Message)
    149. End Try
    151. ' DataView from DataTable
    152. dvFStoerungen = New DataView(dtFStoerungen)
    154. ' Bind DataView to DataGridView
    155. dgvFStoerungen.DataSource = dvFStoerungen
    156. End Sub
    158. ''' <summary>
    159. ''' Set filter 1
    160. ''' </summary>
    161. ''' <param name="sender"></param>
    162. ''' <param name="e"></param>
    163. ''' <remarks></remarks>
    164. Private Sub ButtonFilter1_Click(sender As Object, e As EventArgs) Handles ButtonFilter1.Click
    165. Try
    166. 'Meldung like '%defekt%'
    167. dvStoerungen.RowFilter = "Meldung like '%" & textBox1.Text & "%'"
    168. WriteFooter(dtStoerungen, dvStoerungen)
    169. ' Fertigung Grid
    170. dvFStoerungen.RowFilter = "Meldung like '%" & textBox1.Text & "%'"
    171. WriteFooter(dtFStoerungen, dvFStoerungen)
    172. Catch ex As Exception
    173. MessageBox.Show(ex.Message)
    174. End Try
    175. End Sub
    177. ''' <summary>
    178. ''' Set filter 2
    179. ''' </summary>
    180. ''' <param name="sender"></param>
    181. ''' <param name="e"></param>
    182. ''' <remarks></remarks>
    183. Private Sub ButtonFilter2_Click(sender As Object, e As EventArgs) Handles ButtonFilter2.Click
    184. Try
    185. dvStoerungen.RowFilter = textBox2.Text
    186. WriteFooter(dtStoerungen, dvStoerungen)
    187. ' Fertigung Grid
    188. dvFStoerungen.RowFilter = textBox2.Text
    189. WriteFooter(dtFStoerungen, dvFStoerungen)
    190. Catch ex As Exception
    191. MessageBox.Show(ex.Message)
    192. End Try
    193. End Sub
    195. ''' <summary>
    196. ''' Set filter 3
    197. ''' </summary>
    198. ''' <param name="sender"></param>
    199. ''' <param name="e"></param>
    200. ''' <remarks></remarks>
    201. Private Sub ButtonFilter3_Click(sender As Object, e As EventArgs) Handles ButtonFilter3.Click
    202. Try
    203. dvStoerungen.RowFilter = textBox3.Text
    204. WriteFooter(dtStoerungen, dvStoerungen)
    205. ' Fertigung Grid
    206. dvFStoerungen.RowFilter = textBox3.Text
    207. WriteFooter(dtFStoerungen, dvFStoerungen)
    208. Catch ex As Exception
    209. MessageBox.Show(ex.Message)
    210. End Try
    211. End Sub
    212. ''' <summary>
    213. ''' Set filter 4
    214. ''' </summary>
    215. ''' <param name="sender"></param>
    216. ''' <param name="e"></param>
    217. ''' <remarks></remarks>
    218. Private Sub ButtonFilter4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonFilter4.Click
    219. '"DeinDatumsFeld > #01.01.2014# AND DeinDatumsFeld < #01.02.2014#"
    220. 'Format$(CDate(txtDTP_Von.Text), "\#MM\/dd\/yyyy\#") & " And " & Format$(CDate(txtDTP_Bis.Text), "\#MM\/dd\/yyyy\#")
    221. Try
    222. dvStoerungen.RowFilter = "Tag >" & Format$(CDate(txtDTP_Von.Text), "\#MM\/dd\/yyyy\#") & " And " & _
    223. "Tag <" & Format$(CDate(txtDTP_Bis.Text), "\#MM\/dd\/yyyy\#")
    224. WriteFooter(dtStoerungen, dvStoerungen)
    225. ' Fertigung Grid
    226. dvFStoerungen.RowFilter = "Tag >" & Format$(CDate(txtDTP_Von.Text), "\#MM\/dd\/yyyy\#") & " And " & _
    227. "Tag <" & Format$(CDate(txtDTP_Bis.Text), "\#MM\/dd\/yyyy\#")
    228. WriteFooter(dtFStoerungen, dvFStoerungen)
    229. Catch ex As Exception
    230. MessageBox.Show(ex.Message)
    231. End Try
    232. End Sub
    233. ''' <summary>
    234. ''' View all DataRows
    235. ''' </summary>
    236. ''' <param name="sender"></param>
    237. ''' <param name="e"></param>
    238. ''' <remarks></remarks>
    239. Private Sub ButtonAllData_Click(sender As Object, e As EventArgs) Handles ButtonAllData.Click
    240. dvStoerungen.RowFilter = String.Empty
    241. labelFooter.Text = String.Empty
    242. ''
    243. dvFStoerungen.RowFilter = String.Empty
    244. lblFertigung.Text = String.Empty
    245. End Sub
    246. ''' <summary>
    247. ''' Write Footer
    248. ''' </summary>
    249. ''' <param name="dt"></param>
    250. ''' <param name="dv"></param>
    251. Private Sub WriteFooter(dt As DataTable, dv As DataView)
    252. If dv.Count > 0 Then
    253. labelFooter.Text = "IH: " & dvStoerungen.Count & " Entsprechungen zu Ihrer Suche. Gesamte Störungszeit: " & [String].Format("{0}", dtStoerungen.Compute("Sum(Minuten)", dv.RowFilter)) & " Min."
    254. lblFertigung.Text = "AF: " & dvFStoerungen.Count & " Entsprechungen zu Ihrer Suche. Gesamte Störungszeit: " & [String].Format("{0}", dtFStoerungen.Compute("Sum(Minuten)", dv.RowFilter)) & " Min."
    255. Else
    256. labelFooter.Text = "SB, Keine Entsprechnungen zu Ihrer Suche."
    257. lblFertigung.Text = "AF, Keine Entsprechnungen zu Ihrer Suche."
    258. End If
    259. End Sub
    260. ' Ereignis DateTimePicker Von
    261. Private Sub DTP_Von_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DTP_Von.ValueChanged
    262. Me.txtDTP_Von.Text = DTP_Von.Value.ToShortDateString
    263. End Sub
    264. ' Ereignis DateTimePicker Bis
    265. Private Sub DTP_Bis_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DTP_Bis.ValueChanged
    266. Me.txtDTP_Bis.Text = DTP_Bis.Value.ToShortDateString
    267. End Sub
    268. '//
    269. Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    270. Dim myDate As String = DTP_Von.Value.ToShortDateString
    272. txtDTP_Von.Text = Now.AddDays(-14).ToShortDateString()
    273. txtDTP_Bis.Text = Now.AddDays(-1).ToShortDateString()
    274. Dim differenz As Long = DateDiff("d", txtDTP_Von.Text, txtDTP_Bis.Text)
    276. dvStoerungen.RowFilter = "Tag >" & Format$(CDate(txtDTP_Von.Text), "\#MM\/dd\/yyyy\#") & " And " & _
    277. "Tag <" & Format$(CDate(txtDTP_Bis.Text), "\#MM\/dd\/yyyy\#")
    278. ' --->
    279. dvFStoerungen.RowFilter = "Tag >" & Format$(CDate(txtDTP_Von.Text), "\#MM\/dd\/yyyy\#") & " And " & _
    280. "Tag <" & Format$(CDate(txtDTP_Bis.Text), "\#MM\/dd\/yyyy\#")
    281. End Sub
    282. ':::
    283. End Class
    Bilder

    • dgv++.JPG

      207,35 kB, 972×755, 115 mal angesehen

    Hallo Bruno,

    mittlerweile habe ich das Auswerten (Abweichung in %) wieder drin. Super deine Hilfe bis hier her ohne dein Beispiel wäre ich jetzt nicht soweit.
    nun hatte ich mit der LV auch ein drucken der Liste ermöglicht. Beim DGV habe ich noch hier und da ein kleines Problem
    wo ich Hilfe gebrauchen könnte.
    im Prinzip funktioniert mein Code, doch wird der Text in der letzten Spalte nicht im Zeilenumbruch dargestellt.
    beim ersten Aufruf wird die Kopfzeile angezeigt, dann im 2 Aufruf wieder nicht (1 Seite) die folge Seiten jedoch ja.

    habe Bildmaterial als rar Datei angehängt

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Static PrintChart As Boolean = True
    2. Static Allpages As Integer = 1
    3. Static CurrenctPage As Integer = 1
    5. Dim strDokumentname As String = "Auswertung: | " & txtDTP_Von.Text & " - " & txtDTP_Bis.Text & " | " & lblDifferenz.Text
    7. Dim strTitel As String = "Stoerdaten Instandhaltung: | " & txtDTP_Von.Text & " - " & txtDTP_Bis.Text & " | "
    8. Dim myDatum As String = "Daten Abruf: " & Format(Now, "dd.MM.yyyy HH:mm:ss")
    9. Dim strErsteller As String = "Erstellt mit TPMSBSLS"
    10. 'Image einbinden aufs Dokument
    11. Dim newImage As Image = My.Resources.Instandhaltung
    13. Dim max_Y As Integer = dgvStoerungen.Rows.Count - 1
    16. Dim y As Single
    17. If PrintChart Then
    19. 'Liste Starthöhe mit Chart Seite 1 ------>
    21. y = newImage.Height + 20
    22. With e.Graphics
    23. .DrawImage(newImage, 12, 10)
    24. .DrawString(strTitel, New Font("Times New Roman", 10, FontStyle.Regular), Brushes.Blue, _
    25. New Point(newImage.Width + 10, newImage.Height - 10))
    26. .DrawString(myDatum, New Font("Times New Roman", 10, FontStyle.Regular), Brushes.Blue, _
    27. New Point(30, PD.DefaultPageSettings.Bounds.Height - 70))
    28. .DrawString(strErsteller, New Font("Times New Roman", 10, FontStyle.Regular), Brushes.Blue, _
    29. New Point(30, PD.DefaultPageSettings.Bounds.Height - 40))
    30. .DrawString(strDokumentname, New Font("Times New Roman", 10, FontStyle.Regular), Brushes.Blue, _
    31. New Point(300, PD.DefaultPageSettings.Bounds.Height - 70))
    32. End With
    34. Else
    35. 'Liste Starthöhe ohne Chart ab Seite 2 ----->
    37. y = 30
    38. With e.Graphics
    39. .DrawString(myDatum, New Font("Times New Roman", 10, FontStyle.Regular), Brushes.Blue, _
    40. New Point(30, PD.DefaultPageSettings.Bounds.Height - 70))
    41. .DrawString(strErsteller, New Font("Times New Roman", 10, FontStyle.Regular), Brushes.Blue, _
    42. New Point(30, PD.DefaultPageSettings.Bounds.Height - 40))
    43. .DrawString(strDokumentname, New Font("Times New Roman", 10, FontStyle.Regular), Brushes.Blue, _
    44. New Point(300, PD.DefaultPageSettings.Bounds.Height - 70))
    46. End With
    47. End If
    48. '-------------------------
    49. 'Datagridview print ------
    50. '-------------------------
    51. With dgvStoerungen
    53. Dim fmt As StringFormat = New StringFormat(StringFormatFlags.LineLimit)
    54. fmt.LineAlignment = StringAlignment.Center
    55. fmt.Trimming = StringTrimming.EllipsisCharacter
    58. Do While mRow < .RowCount
    60. Dim row As DataGridViewRow = .Rows(mRow)
    61. Dim x As Single = 30 'e.MarginBounds.Left
    62. Dim h As Single = 15
    63. 'Allpages += 1
    64. For Each cell As DataGridViewCell In row.Cells
    66. Dim rc As RectangleF = New RectangleF(x, y, cell.Size.Width, cell.Size.Height)
    68. If mRow Mod 2 = 0 Then
    69. e.Graphics.FillRectangle(New SolidBrush(RowColor), rc)
    70. Else
    71. e.Graphics.FillRectangle(New SolidBrush(RowColorAlternate), rc)
    72. End If
    73. e.Graphics.DrawRectangle(Pens.Black, rc.Left, rc.Top, rc.Width, rc.Height)
    74. '----->
    76. If (newpage) Then
    77. e.Graphics.FillRectangle(New SolidBrush(HeaderColor), rc)
    79. e.Graphics.DrawString(dgvStoerungen.Columns(cell.ColumnIndex).HeaderText, .Font, Brushes.Blue, rc, fmt)
    80. Else
    83. e.Graphics.DrawString(dgvStoerungen.Rows(cell.RowIndex).Cells(cell.ColumnIndex).FormattedValue.ToString(), .Font, Brushes.Black, rc, fmt)
    85. End If
    88. If cell.ColumnIndex = 1 Or cell.ColumnIndex = 4 Or cell.ColumnIndex = 6 Then
    89. fmt.Alignment = StringAlignment.Center
    90. Else
    91. fmt.Alignment = StringAlignment.Near
    92. End If
    94. x += rc.Width
    95. h = Math.Max(h, rc.Height)
    96. Next
    98. newpage = False
    100. y += h
    101. mRow += 1
    105. If y + h > e.MarginBounds.Bottom Then
    107. e.Graphics.DrawString("Seite " & CurrenctPage.ToString, _
    108. New Font("Times New Roman", 12), Brushes.Blue, New Point(300, PD.DefaultPageSettings.Bounds.Height - 40))
    110. CurrenctPage += 1
    112. e.HasMorePages = True
    113. PrintChart = False
    114. mRow -= 1
    115. newpage = True
    116. Exit Sub
    117. End If
    119. Loop
    121. mRow = 0
    122. End With
    123. '& "/" & Allpages.ToString
    124. e.Graphics.DrawString("Seite " & CurrenctPage.ToString, _
    125. New Font("Times New Roman", 12), Brushes.Blue, New Point(300, PD.DefaultPageSettings.Bounds.Height - 40))
    127. PrintChart = True
    128. CurrenctPage = 1
    129. Allpages = 1
    Dateien

    • Report.rar

      (328,68 kB, 78 mal heruntergeladen, zuletzt: )

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

    Hi menorca,

    ich glaube, da kann ich Dir nicht direkt helfen - sorry.

    Zumal ich nicht auf die Idee kommen würde, ein DataGridView direkt auszulesen und zum Bild zu verarbeiten 8-) .
    Du hast doch das Prinzip schon verstanden gehabt und nun benutzt Du wieder das DGV als Datenquelle - warum?

    Dir stehen doch DataSets / Tables und natürlich die SICHT auf die Daten als DataView schon zur Verfügung!
    Also werte die Daten dieser Quellen aus - in Deinem Fall die Ergebnisse Deiner Suche als DataView.

    Und dann hast Du alle Wege frei für Deine Druckausgaben.
    Z.B. als Report. Wie wäre es mit CrystalReport (ist doch glaube ich beim Studio dabei?).
    Den Report schön zusammen-klicken und das DataView als Datenquelle dranhängen - fertig.
    Oder eben einen anderen Reportgenerator oder eine passende Komponente oder irgendwas schickes von CodeProject.

    Wenn ich auf Arbeit irgendetwas Drucken oder Visualisieren möchte, nehme ich die perfekten Komponenten von ASPOSE.NET, aber das kommt bestimmt bei Dir nicht in Frage.
    Nutzt man es aber ständig so wie wir, amortisiert sich der Preis in Windeseile.
    Oder Du nimmst Dir die Trialversionen von Aspose, machst Dein Projekt fertig und Deine Firma wird sich die Finger lecken und das Vollprodukt kaufen :P ..

    LG,
    Bruno