Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Teil 3, 13.06.2017
Autor: effeff
Datum: 13.06.17 10:01
Private Sub btnSuchen_Click(sender As Object, e As EventArgs) Handles btnSuchen.Click If dt1.Rows.Count = 0 Then MessageBox.Show("Du kannst nix suchen! Die Tabelle enthält keine Daten!", "Sirianische Planetenkontrolle:") Exit Sub End If If cmbKistenart.Text = "" Then MessageBox.Show("Du musst erst die Abfrage zur Kistenart beantworten!") Exit Sub End If If txtFahrgestellnummer.Text = "" And cmbKistenart.Text = "Mehrfachkiste" Then MessageBox.Show("Du musst noch die Fahrgestellnummer angeben!") Exit Sub End If Dim foundrows() As DataRow If txtSeriennummer.Text.Length = 7 Then foundrows = dt1.Select("Seriennummer='" & txtSeriennummer.Text & "'") If foundrows.Count > 1 Then MessageBox.Show("Diese Seriennummer existiert mehrfach!") Exit Sub End If If cmbKistenart.Text = "Einzelkiste" Then foundrows(0).Item("Status") = "Einzelkiste" ElseIf cmbKistenart.Text.Contains("Mehrfachkiste") Then foundrows(0).Item("Status") = cmbKistenart.Text foundrows(0).Item("Fahrgestellnummer") = txtFahrgestellnummer.Text End If txtSeriennummer.Text = "" cmbKistenart.Text = "" txtFahrgestellnummer.Text = "" End If End Sub Private Sub cmbKistenart_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbKistenart.SelectedIndexChanged txtFahrgestellnummerInitialisieren() End Sub Private Sub txtFahrgestellnummerInitialisieren() If cmbKistenart.Text.Contains("Mehrfachkiste") Then txtFahrgestellnummer.Visible = True Else txtFahrgestellnummer.Visible = False End If End Sub Private Sub txtStatistik_Click(sender As Object, e As EventArgs) Handles txtStatistik.Click Dim foundrowsEinzelkiste() As DataRow foundrowsEinzelkiste = dt1.Select("Status='Einzelkiste'") Dim Einzelkistenanzahl As Integer = foundrowsEinzelkiste.Count Dim foundrowsMehrfachkisteLinks() As DataRow foundrowsMehrfachkisteLinks = dt1.Select("Status='Mehrfachkiste Links'") Dim MehrfachkistenanzahlLinks As Integer = foundrowsMehrfachkisteLinks.Count Dim foundrowsMehrfachkisteRechts() As DataRow foundrowsMehrfachkisteRechts = dt1.Select("Status='Mehrfachkiste Rechts'") Dim MehrfachkistenanzahlRechts As Integer = foundrowsMehrfachkisteRechts.Count Dim Mehrfachkistengesamtanzahl As Integer = MehrfachkistenanzahlLinks + MehrfachkistenanzahlRechts Dim Gesamtanzahl As Integer = dt1.Rows.Count Dim Meldungstext As String = "Statistik:" Meldungstext = Meldungstext & vbCrLf & "Gesamtanzahl Datensätze: " & Gesamtanzahl Meldungstext = Meldungstext & vbCrLf & "Einzelkisten: " & Einzelkistenanzahl Meldungstext = Meldungstext & vbCrLf & "Mehrfachkisten Gesamt: " & Mehrfachkistengesamtanzahl Meldungstext = Meldungstext & vbCrLf & "Mehrfachkisten Links: " & MehrfachkistenanzahlLinks Meldungstext = Meldungstext & vbCrLf & "Mehrfachkisten Rechts: " & MehrfachkistenanzahlRechts MessageBox.Show(Meldungstext, "Auswertung:") End Sub End Class EALA FREYA FRESENA

Suchen und Markieren nach DGV2 übergeben	5.254	ERBRU	06.06.17 12:29
Re: Suchen und Markieren nach DGV2 übergeben	4.128	CAM-Andi	06.06.17 15:00
Re: Suchen und Markieren nach DGV2 übergeben	4.094	ERBRU	06.06.17 15:53
Re: Suchen und Markieren nach DGV2 übergeben	4.126	CAM-Andi	06.06.17 16:18
Re: Suchen und Markieren nach DGV2 übergeben	4.207	ERBRU	06.06.17 17:20
Re: Suchen und Markieren nach DGV2 übergeben	4.213	CAM-Andi	06.06.17 19:39
Re: Suchen und Markieren nach DGV2 übergeben	4.331	ERBRU	07.06.17 06:18
Re: Suchen und Markieren nach DGV2 übergeben	4.076	CAM-Andi	07.06.17 09:48
Re: Suchen und Markieren nach DGV2 übergeben	4.119	ERBRU	07.06.17 11:16
Re: Suchen und Markieren nach DGV2 übergeben	4.104	CAM-Andi	07.06.17 11:33
Re: Suchen und Markieren nach DGV2 übergeben	4.086	ERBRU	07.06.17 12:19
Re: Suchen und Markieren nach DGV2 übergeben	4.316	effeff	07.06.17 13:16
Re: Suchen und Markieren nach DGV2 übergeben	4.248	ERBRU	07.06.17 13:39
Re: Suchen und Markieren nach DGV2 übergeben	4.129	effeff	07.06.17 18:34
Re: Suchen und Markieren nach DGV2 übergeben	4.120	ERBRU	07.06.17 18:51
Re: Suchen und Markieren nach DGV2 übergeben	4.184	CAM-Andi	07.06.17 13:40
Re: Suchen und Markieren nach DGV2 übergeben	4.074	ERBRU	07.06.17 14:27
Re: Suchen und Markieren nach DGV2 übergeben	4.057	CAM-Andi	07.06.17 14:43
Re: Suchen und Markieren nach DGV2 übergeben	4.103	ERBRU	07.06.17 15:51
Re: Suchen und Markieren nach DGV2 übergeben	4.088	CAM-Andi	07.06.17 16:34
Re: Suchen und Markieren nach DGV2 übergeben	4.126	ERBRU	07.06.17 18:32
Re: Suchen und Markieren nach DGV2 übergeben	4.392	effeff	07.06.17 23:18
Re: Suchen und Markieren nach DGV2 übergeben	4.065	ERBRU	08.06.17 04:20
Re: Suchen und Markieren nach DGV2 übergeben	4.073	effeff	08.06.17 14:30
Re: Suchen und Markieren nach DGV2 übergeben	4.182	CAM-Andi	08.06.17 14:55
Re: Suchen und Markieren nach DGV2 übergeben	4.116	ERBRU	08.06.17 15:45
Re: Suchen und Markieren nach DGV2 übergeben	4.049	effeff	08.06.17 16:26
Re: Suchen und Markieren nach DGV2 übergeben	4.079	ERBRU	08.06.17 17:55
Re: Suchen und Markieren nach DGV2 übergeben	4.178	effeff	08.06.17 20:07
Re: Suchen und Markieren nach DGV2 übergeben	4.168	ERBRU	09.06.17 06:07
Re: Suchen und Markieren nach DGV2 übergeben	4.162	effeff	09.06.17 09:54
Re: Suchen und Markieren nach DGV2 übergeben; Teil 1	4.299	effeff	09.06.17 10:19
Re: Suchen und Markieren nach DGV2 übergeben, Teil 2:	4.121	effeff	09.06.17 10:19
Re: Suchen und Markieren nach DGV2 übergeben, Teil 2:	4.077	ERBRU	09.06.17 12:37
Re: Suchen und Markieren nach DGV2 übergeben, Teil 2:	4.134	effeff	09.06.17 13:55
Re: Suchen und Markieren nach DGV2 übergeben, Teil 2:	4.024	ERBRU	09.06.17 14:33
Re: Suchen und Markieren nach DGV2 übergeben, Teil 2:	4.285	ERBRU	09.06.17 15:42
Re: Suchen und Markieren nach DGV2 übergeben, Teil 2:	4.289	effeff	09.06.17 17:19
Re: Suchen und Markieren nach DGV2 übergeben, Teil 2:	4.076	ERBRU	10.06.17 18:19
Re: Suchen und Markieren nach DGV2 übergeben, Teil 2:	4.020	ERBRU	11.06.17 12:18
Re: Suchen und Markieren nach DGV2 übergeben, Teil 2:	4.202	effeff	12.06.17 14:15
Re: Suchen und Markieren nach DGV2 übergeben, Teil 2:	4.145	ERBRU	12.06.17 14:58
Re: Suchen und Markieren nach DGV2 übergeben, Teil 2:	4.030	effeff	12.06.17 16:51
Suchen und Markieren nach DGV2 übergeben, Teil 1 vom 12.06.2...	4.118	effeff	12.06.17 17:04
Suchen und Markieren nach DGV2 übergeben, Teil 2 vom 12.06.2...	4.058	effeff	12.06.17 17:04
Re: Suchen und Markieren nach DGV2 übergeben, Teil 2 vom 12....	4.027	ERBRU	12.06.17 19:57
Re: Suchen und Markieren nach DGV2 übergeben, Teil 2 vom 12....	4.050	effeff	12.06.17 23:10
Re: Suchen und Markieren nach DGV2 übergeben, Teil 2 vom 12....	4.112	ERBRU	13.06.17 06:10
Re: Suchen und Markieren nach DGV2 übergeben, Teil 2 vom 12....	4.041	effeff	13.06.17 09:14
Die Arbeitsweise...	4.135	effeff	12.06.17 17:11
Re: Die Arbeitsweise...	4.028	ERBRU	12.06.17 18:30
Re: Die Arbeitsweise...	4.033	ERBRU	12.06.17 18:54
Re: Die Arbeitsweise...	4.018	ERBRU	12.06.17 18:59
Re: Die Arbeitsweise...	4.121	ERBRU	12.06.17 19:05
Re: Die Arbeitsweise...	4.188	ERBRU	12.06.17 19:10
Re: Suchen und Markieren nach DGV2 übergeben	4.163	ERBRU	09.06.17 11:02
Re: Suchen und Markieren nach DGV2 übergeben	4.033	ERBRU	09.06.17 18:15
Re: Suchen und Markieren nach DGV2 übergeben	4.064	ERBRU	12.06.17 19:07
Re: Suchen und Markieren nach DGV2 übergeben	3.991	effeff	13.06.17 09:58
Re: Suchen und Markieren nach DGV2 übergeben	4.078	ERBRU	13.06.17 10:59
Re: Suchen und Markieren nach DGV2 übergeben	4.193	effeff	13.06.17 12:51
Re: Suchen und Markieren nach DGV2 übergeben	4.035	ERBRU	13.06.17 15:24
Re: Suchen und Markieren nach DGV2 übergeben	4.076	effeff	13.06.17 15:53
Re: Suchen und Markieren nach DGV2 übergeben	4.063	ERBRU	13.06.17 18:18
Re: Suchen und Markieren nach DGV2 übergeben	4.006	ERBRU	13.06.17 19:13
Re: Suchen und Markieren nach DGV2 übergeben	4.345	effeff	13.06.17 20:20
Re: Suchen und Markieren nach DGV2 übergeben	4.042	ERBRU	14.06.17 05:56
Re: Suchen und Markieren nach DGV2 übergeben	4.045	effeff	14.06.17 11:50
Re: Suchen und Markieren nach DGV2 übergeben	4.061	ERBRU	14.06.17 14:07
Re: Suchen und Markieren nach DGV2 übergeben	4.082	effeff	14.06.17 15:42
Re: Suchen und Markieren nach DGV2 übergeben	4.037	ERBRU	14.06.17 18:22
Re: Suchen und Markieren nach DGV2 übergeben	4.056	ERBRU	14.06.17 19:51
Re: Suchen und Markieren nach DGV2 übergeben	4.151	effeff	14.06.17 20:52
Re: Suchen und Markieren nach DGV2 übergeben	4.044	ERBRU	15.06.17 06:23
Re: Suchen und Markieren nach DGV2 übergeben	4.042	effeff	15.06.17 15:54
Re: Suchen und Markieren nach DGV2 übergeben	4.003	ERBRU	15.06.17 19:44
Re: Suchen und Markieren nach DGV2 übergeben	4.060	ERBRU	15.06.17 20:12
Re: Suchen und Markieren nach DGV2 übergeben	4.083	effeff	16.06.17 16:03
Re: Suchen und Markieren nach DGV2 übergeben	3.966	ERBRU	16.06.17 18:14
Re: Suchen und Markieren nach DGV2 übergeben	3.988	ERBRU	16.06.17 19:22
Re: Suchen und Markieren nach DGV2 übergeben	4.170	effeff	17.06.17 15:54
Re: Suchen und Markieren nach DGV2 übergeben	3.975	ERBRU	17.06.17 18:20
Re: Suchen und Markieren nach DGV2 übergeben	3.971	ERBRU	18.06.17 12:54
Re: Suchen und Markieren nach DGV2 übergeben	4.099	effeff	18.06.17 18:10
Re: Suchen und Markieren nach DGV2 übergeben	4.005	ERBRU	18.06.17 19:51
Re: Suchen und Markieren nach DGV2 übergeben	4.109	ERBRU	19.06.17 08:11
Re: Suchen und Markieren nach DGV2 übergeben	3.993	ERBRU	19.06.17 11:40
Re: Suchen und Markieren nach DGV2 übergeben	3.987	effeff	19.06.17 13:47
Re: Suchen und Markieren nach DGV2 übergeben	4.225	ERBRU	19.06.17 18:03
Re: Suchen und Markieren nach DGV2 übergeben	4.178	ERBRU	20.06.17 06:43
Re: Suchen und Markieren nach DGV2 übergeben	4.108	effeff	20.06.17 09:36
Re: Suchen und Markieren nach DGV2 übergeben	4.085	ERBRU	20.06.17 11:50
Re: Suchen und Markieren nach DGV2 übergeben	4.129	effeff	20.06.17 18:06
Re: Suchen und Markieren nach DGV2 übergeben	4.162	ERBRU	20.06.17 18:57
Re: Suchen und Markieren nach DGV2 übergeben	4.035	effeff	20.06.17 22:29
Re: Suchen und Markieren nach DGV2 übergeben	3.992	ERBRU	21.06.17 06:39
Re: Suchen und Markieren nach DGV2 übergeben	4.135	effeff	21.06.17 09:24
Re: Suchen und Markieren nach DGV2 übergeben	4.054	ERBRU	21.06.17 11:53
Re: Suchen und Markieren nach DGV2 übergeben	4.119	ERBRU	22.06.17 06:26
Re: Suchen und Markieren nach DGV2 übergeben	4.019	ERBRU	24.06.17 18:55
Re: Suchen und Markieren nach DGV2 übergeben	4.026	ERBRU	20.06.17 19:35
Re: Suchen und Markieren nach DGV2 übergeben	4.027	ERBRU	14.06.17 06:21
Teil 1, 13.06.2017	4.102	effeff	13.06.17 09:59
Teil 2, 13.06.2017	4.029	effeff	13.06.17 10:00
Teil 3, 13.06.2017	4.057	effeff	13.06.17 10:01

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen