Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Zellenwerte im Datagridview abspeichern Pfeiltasten
Autor: Güldner1
Datum: 12.03.18 19:37
Hallo ich möchte in einem Datagridview Zellenwerte abspeichern. Dabei möchte ich nachdem ich den Wert eingebeben habe, die Zelle entweder mit Pfeil nach oben, unten, recht oder links verlassen. In dem Moment soll dann die Speicherung in die DB erolgen. Komischerweise klappt es wunderbar in dem Moment wenn ich die Pfeil nach oben bzw. unten Taste drücke, nicht aber wenn ich die Pfeil Rechts/Links taste drücke. Woran liegt es. Private Sub datagridview1_down(ByVal sender As Object, ByVal e As Windows.Forms.KeyEventArgs) Handles DataGridView1.KeyUp Dim x As Integer, y As Integer, Feldname As String = "" x = Me.DataGridView1.CurrentCell.ColumnIndex y = Me.DataGridView1.CurrentCell.RowIndex If e.KeyCode = Keys.Right Then x = x - 1 Else x = x End If Feldname = Me.DataGridView1.Columns.Item(x).HeaderText.ToString Me.DataGridView1("Feldindex", y).Value = Str(x) Dim cmd As New SqlCommand("Update Gelände Set " + Feldname + " = @p1, Feldindex =@p2 where gelldfnr = @pIndex", con) cmd.Parameters.Add("@p1", SqlDbType.NChar, 10, Feldname) cmd.Parameters.Add("@p2", SqlDbType.NChar, 10, "Feldindex") Dim prm As SqlParameter = cmd.Parameters.Add("@pindex", SqlDbType.BigInt) prm.SourceColumn = "gelldfnr" prm.SourceVersion = DataRowVersion.Original dagel.UpdateCommand = cmd dagel.Update(dtgel) End Sub[ Private Sub datagridview1_down(ByVal sender As Object, ByVal e As Windows.Forms.KeyEventArgs) Handles DataGridView1.KeyUp Dim x As Integer, y As Integer, Feldname As String = "" x = Me.DataGridView1.CurrentCell.ColumnIndex y = Me.DataGridView1.CurrentCell.RowIndex If e.KeyCode = Keys.Right Then x = x - 1 Else x = x End If Feldname = Me.DataGridView1.Columns.Item(x).HeaderText.ToString Me.DataGridView1("Feldindex", y).Value = Str(x) Dim cmd As New SqlCommand("Update Gelände Set " + Feldname + " = @p1, Feldindex =@p2 where gelldfnr = @pIndex", con) cmd.Parameters.Add("@p1", SqlDbType.NChar, 10, Feldname) cmd.Parameters.Add("@p2", SqlDbType.NChar, 10, "Feldindex") Dim prm As SqlParameter = cmd.Parameters.Add("@pindex", SqlDbType.BigInt) prm.SourceColumn = "gelldfnr" prm.SourceVersion = DataRowVersion.Original dagel.UpdateCommand = cmd dagel.Update(dtgel) End Sub

Zellenwerte im Datagridview abspeichern Pfeiltasten	1.211	Güldner1	12.03.18 19:37
Re: Zellenwerte im Datagridview abspeichern Pfeiltasten	702	Franki	13.03.18 02:28
Re: Zellenwerte im Datagridview abspeichern Pfeiltasten	761	Güldner1	13.03.18 08:18
Re: Zellenwerte im Datagridview abspeichern Pfeiltasten	632	Franki	14.03.18 03:18
Re: Zellenwerte im Datagridview abspeichern Pfeiltasten	655	Güldner1	14.03.18 20:32
Re: Zellenwerte im Datagridview abspeichern Pfeiltasten	683	Franki	15.03.18 03:41
Re: Zellenwerte im Datagridview abspeichern Pfeiltasten	633	Güldner1	15.03.18 08:21
Re: Zellenwerte im Datagridview abspeichern Pfeiltasten	571	Franki	21.03.18 02:16
Re: Zellenwerte im Datagridview abspeichern Pfeiltasten	647	Güldner1	13.03.18 08:22
Re: Zellenwerte im Datagridview abspeichern Pfeiltasten	646	Manfred X	13.03.18 09:17
Re: Zellenwerte im Datagridview abspeichern Pfeiltasten	636	Franki	14.03.18 03:22

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