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.243	ERBRU	06.06.17 12:29
Re: Suchen und Markieren nach DGV2 übergeben	4.119	CAM-Andi	06.06.17 15:00
Re: Suchen und Markieren nach DGV2 übergeben	4.086	ERBRU	06.06.17 15:53
Re: Suchen und Markieren nach DGV2 übergeben	4.117	CAM-Andi	06.06.17 16:18
Re: Suchen und Markieren nach DGV2 übergeben	4.196	ERBRU	06.06.17 17:20
Re: Suchen und Markieren nach DGV2 übergeben	4.203	CAM-Andi	06.06.17 19:39
Re: Suchen und Markieren nach DGV2 übergeben	4.322	ERBRU	07.06.17 06:18
Re: Suchen und Markieren nach DGV2 übergeben	4.067	CAM-Andi	07.06.17 09:48
Re: Suchen und Markieren nach DGV2 übergeben	4.110	ERBRU	07.06.17 11:16
Re: Suchen und Markieren nach DGV2 übergeben	4.096	CAM-Andi	07.06.17 11:33
Re: Suchen und Markieren nach DGV2 übergeben	4.077	ERBRU	07.06.17 12:19
Re: Suchen und Markieren nach DGV2 übergeben	4.307	effeff	07.06.17 13:16
Re: Suchen und Markieren nach DGV2 übergeben	4.238	ERBRU	07.06.17 13:39
Re: Suchen und Markieren nach DGV2 übergeben	4.119	effeff	07.06.17 18:34
Re: Suchen und Markieren nach DGV2 übergeben	4.111	ERBRU	07.06.17 18:51
Re: Suchen und Markieren nach DGV2 übergeben	4.176	CAM-Andi	07.06.17 13:40
Re: Suchen und Markieren nach DGV2 übergeben	4.066	ERBRU	07.06.17 14:27
Re: Suchen und Markieren nach DGV2 übergeben	4.049	CAM-Andi	07.06.17 14:43
Re: Suchen und Markieren nach DGV2 übergeben	4.095	ERBRU	07.06.17 15:51
Re: Suchen und Markieren nach DGV2 übergeben	4.079	CAM-Andi	07.06.17 16:34
Re: Suchen und Markieren nach DGV2 übergeben	4.117	ERBRU	07.06.17 18:32
Re: Suchen und Markieren nach DGV2 übergeben	4.382	effeff	07.06.17 23:18
Re: Suchen und Markieren nach DGV2 übergeben	4.057	ERBRU	08.06.17 04:20
Re: Suchen und Markieren nach DGV2 übergeben	4.065	effeff	08.06.17 14:30
Re: Suchen und Markieren nach DGV2 übergeben	4.173	CAM-Andi	08.06.17 14:55
Re: Suchen und Markieren nach DGV2 übergeben	4.106	ERBRU	08.06.17 15:45
Re: Suchen und Markieren nach DGV2 übergeben	4.041	effeff	08.06.17 16:26
Re: Suchen und Markieren nach DGV2 übergeben	4.069	ERBRU	08.06.17 17:55
Re: Suchen und Markieren nach DGV2 übergeben	4.169	effeff	08.06.17 20:07
Re: Suchen und Markieren nach DGV2 übergeben	4.159	ERBRU	09.06.17 06:07
Re: Suchen und Markieren nach DGV2 übergeben	4.153	effeff	09.06.17 09:54
Re: Suchen und Markieren nach DGV2 übergeben; Teil 1	4.290	effeff	09.06.17 10:19
Re: Suchen und Markieren nach DGV2 übergeben, Teil 2:	4.113	effeff	09.06.17 10:19
Re: Suchen und Markieren nach DGV2 übergeben, Teil 2:	4.069	ERBRU	09.06.17 12:37
Re: Suchen und Markieren nach DGV2 übergeben, Teil 2:	4.127	effeff	09.06.17 13:55
Re: Suchen und Markieren nach DGV2 übergeben, Teil 2:	4.016	ERBRU	09.06.17 14:33
Re: Suchen und Markieren nach DGV2 übergeben, Teil 2:	4.275	ERBRU	09.06.17 15:42
Re: Suchen und Markieren nach DGV2 übergeben, Teil 2:	4.280	effeff	09.06.17 17:19
Re: Suchen und Markieren nach DGV2 übergeben, Teil 2:	4.068	ERBRU	10.06.17 18:19
Re: Suchen und Markieren nach DGV2 übergeben, Teil 2:	4.013	ERBRU	11.06.17 12:18
Re: Suchen und Markieren nach DGV2 übergeben, Teil 2:	4.189	effeff	12.06.17 14:15
Re: Suchen und Markieren nach DGV2 übergeben, Teil 2:	4.136	ERBRU	12.06.17 14:58
Re: Suchen und Markieren nach DGV2 übergeben, Teil 2:	4.022	effeff	12.06.17 16:51
Suchen und Markieren nach DGV2 übergeben, Teil 1 vom 12.06.2...	4.110	effeff	12.06.17 17:04
Suchen und Markieren nach DGV2 übergeben, Teil 2 vom 12.06.2...	4.050	effeff	12.06.17 17:04
Re: Suchen und Markieren nach DGV2 übergeben, Teil 2 vom 12....	4.019	ERBRU	12.06.17 19:57
Re: Suchen und Markieren nach DGV2 übergeben, Teil 2 vom 12....	4.043	effeff	12.06.17 23:10
Re: Suchen und Markieren nach DGV2 übergeben, Teil 2 vom 12....	4.103	ERBRU	13.06.17 06:10
Re: Suchen und Markieren nach DGV2 übergeben, Teil 2 vom 12....	4.034	effeff	13.06.17 09:14
Die Arbeitsweise...	4.127	effeff	12.06.17 17:11
Re: Die Arbeitsweise...	4.019	ERBRU	12.06.17 18:30
Re: Die Arbeitsweise...	4.026	ERBRU	12.06.17 18:54
Re: Die Arbeitsweise...	4.010	ERBRU	12.06.17 18:59
Re: Die Arbeitsweise...	4.112	ERBRU	12.06.17 19:05
Re: Die Arbeitsweise...	4.178	ERBRU	12.06.17 19:10
Re: Suchen und Markieren nach DGV2 übergeben	4.153	ERBRU	09.06.17 11:02
Re: Suchen und Markieren nach DGV2 übergeben	4.025	ERBRU	09.06.17 18:15
Re: Suchen und Markieren nach DGV2 übergeben	4.056	ERBRU	12.06.17 19:07
Re: Suchen und Markieren nach DGV2 übergeben	3.983	effeff	13.06.17 09:58
Re: Suchen und Markieren nach DGV2 übergeben	4.069	ERBRU	13.06.17 10:59
Re: Suchen und Markieren nach DGV2 übergeben	4.183	effeff	13.06.17 12:51
Re: Suchen und Markieren nach DGV2 übergeben	4.028	ERBRU	13.06.17 15:24
Re: Suchen und Markieren nach DGV2 übergeben	4.068	effeff	13.06.17 15:53
Re: Suchen und Markieren nach DGV2 übergeben	4.054	ERBRU	13.06.17 18:18
Re: Suchen und Markieren nach DGV2 übergeben	3.995	ERBRU	13.06.17 19:13
Re: Suchen und Markieren nach DGV2 übergeben	4.327	effeff	13.06.17 20:20
Re: Suchen und Markieren nach DGV2 übergeben	4.032	ERBRU	14.06.17 05:56
Re: Suchen und Markieren nach DGV2 übergeben	4.035	effeff	14.06.17 11:50
Re: Suchen und Markieren nach DGV2 übergeben	4.053	ERBRU	14.06.17 14:07
Re: Suchen und Markieren nach DGV2 übergeben	4.074	effeff	14.06.17 15:42
Re: Suchen und Markieren nach DGV2 übergeben	4.029	ERBRU	14.06.17 18:22
Re: Suchen und Markieren nach DGV2 übergeben	4.045	ERBRU	14.06.17 19:51
Re: Suchen und Markieren nach DGV2 übergeben	4.139	effeff	14.06.17 20:52
Re: Suchen und Markieren nach DGV2 übergeben	4.036	ERBRU	15.06.17 06:23
Re: Suchen und Markieren nach DGV2 übergeben	4.033	effeff	15.06.17 15:54
Re: Suchen und Markieren nach DGV2 übergeben	3.993	ERBRU	15.06.17 19:44
Re: Suchen und Markieren nach DGV2 übergeben	4.051	ERBRU	15.06.17 20:12
Re: Suchen und Markieren nach DGV2 übergeben	4.073	effeff	16.06.17 16:03
Re: Suchen und Markieren nach DGV2 übergeben	3.957	ERBRU	16.06.17 18:14
Re: Suchen und Markieren nach DGV2 übergeben	3.980	ERBRU	16.06.17 19:22
Re: Suchen und Markieren nach DGV2 übergeben	4.161	effeff	17.06.17 15:54
Re: Suchen und Markieren nach DGV2 übergeben	3.966	ERBRU	17.06.17 18:20
Re: Suchen und Markieren nach DGV2 übergeben	3.963	ERBRU	18.06.17 12:54
Re: Suchen und Markieren nach DGV2 übergeben	4.089	effeff	18.06.17 18:10
Re: Suchen und Markieren nach DGV2 übergeben	3.996	ERBRU	18.06.17 19:51
Re: Suchen und Markieren nach DGV2 übergeben	4.100	ERBRU	19.06.17 08:11
Re: Suchen und Markieren nach DGV2 übergeben	3.986	ERBRU	19.06.17 11:40
Re: Suchen und Markieren nach DGV2 übergeben	3.978	effeff	19.06.17 13:47
Re: Suchen und Markieren nach DGV2 übergeben	4.214	ERBRU	19.06.17 18:03
Re: Suchen und Markieren nach DGV2 übergeben	4.170	ERBRU	20.06.17 06:43
Re: Suchen und Markieren nach DGV2 übergeben	4.099	effeff	20.06.17 09:36
Re: Suchen und Markieren nach DGV2 übergeben	4.077	ERBRU	20.06.17 11:50
Re: Suchen und Markieren nach DGV2 übergeben	4.119	effeff	20.06.17 18:06
Re: Suchen und Markieren nach DGV2 übergeben	4.152	ERBRU	20.06.17 18:57
Re: Suchen und Markieren nach DGV2 übergeben	4.025	effeff	20.06.17 22:29
Re: Suchen und Markieren nach DGV2 übergeben	3.983	ERBRU	21.06.17 06:39
Re: Suchen und Markieren nach DGV2 übergeben	4.127	effeff	21.06.17 09:24
Re: Suchen und Markieren nach DGV2 übergeben	4.045	ERBRU	21.06.17 11:53
Re: Suchen und Markieren nach DGV2 übergeben	4.109	ERBRU	22.06.17 06:26
Re: Suchen und Markieren nach DGV2 übergeben	4.010	ERBRU	24.06.17 18:55
Re: Suchen und Markieren nach DGV2 übergeben	4.018	ERBRU	20.06.17 19:35
Re: Suchen und Markieren nach DGV2 übergeben	4.019	ERBRU	14.06.17 06:21
Teil 1, 13.06.2017	4.094	effeff	13.06.17 09:59
Teil 2, 13.06.2017	4.022	effeff	13.06.17 10:00
Teil 3, 13.06.2017	4.049	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