Meine data prozedur:
reader = db.SqlReader(strSQL, ConnectionStr)
DataGrid1.DataSource = reader
DataGrid1.DataBind()
reader.Close()
meine sortierprozedur:
If DataGrid1.Attributes("SortBy") <> e.SortExpression().ToString Then
DataGrid1.Attributes("SortBy") = e.SortExpression.ToString()
DataGrid1.Attributes("SortOrder") = "ASC"
Else
If DataGrid1.Attributes("SortOrder") = "ASC" Then
DataGrid1.Attributes("SortOrder") = "DESC"
Else
DataGrid1.Attributes("SortOrder") = "ASC"
End If
End If
Dim strSQL As String = "select * from v_KostGruppe order by " &
DataGrid1.Attributes("SortBy") & " " & DataGrid1.Attributes("SortOrder")
data(strSQL)
und hier meine comandos:
Dim strSQL, sql, updSQL, InsSQL, Aktion As String
strSQL = "select * from KostGruppe"
Select Case e.CommandName.ToString
Case Is = "Edit"
'Ruft den Wert der Dropdownlist.value ab und verwendet ihn in der sub
DataGrid1_ItemDataBound
DataGrid1.ShowFooter = False
DataGrid1.Columns.Item(3).Visible = False
'Dropdownwert = e.Item.Cells(1).Text
DataGrid1.EditItemIndex = CInt(e.Item.ItemIndex)
data(strSQL)
Case Is = "update"
'eigenschaft aus den controls auslesen.
Dim txtBezeichnungU =
Convert.ToString(CType(e.Item.FindControl("txtBezeichnungB"), TextBox).Text)
'Dim ddlKostgruppeU =
Convert.ToString(CType(e.Item.FindControl("dropdownlist1"),
DropDownList).SelectedItem.Value)
Dim txtKostGruppeU =
Convert.ToString(CType(e.Item.FindControl("Label1"), Label).Text)
'eigenschaft der controls in update verpacken.
updSQL = "update KostGruppe " & _
"SET Bezeichnung = '" & txtBezeichnungU & _
"' WHERE KostGruppe = '" & _
txtKostGruppeU & " '"
Dim fehler = db.SqlAendern(updSQL, ConnectionStr)
'wenn kein fehler dann aus bearbeitungsmodus raus und in label2
erfolgsnachricht anzeigen.
If fehler = "" Then
DataGrid1.EditItemIndex = -1
DataGrid1.Columns.Item(3).Visible = True
data(strSQL)
Label2.Text = "Datensatz wurde erfolgreich ge�ndert."
Label2.Visible = True
Else
Label2.Text = fehler
Label2.Visible = True
End If
'aus bearbeitungsmodus raus .
Case Is = "Cancel"
DataGrid1.ShowFooter = False
DataGrid1.EditItemIndex = -1
DataGrid1.Columns.Item(3).Visible = True
data(strSQL)
Case Is = "AddNew"
DataGrid1.EditItemIndex = -1
data(strSQL)
DataGrid1.Columns.Item(3).Visible = False
DataGrid1.ShowFooter = True
Case Is = "Insert"
Dim KostGruppe =
Convert.ToString(CType(e.Item.FindControl("txtKostGruppe"), TextBox).Text)
Dim Bezeichnung =
Convert.ToString(CType(e.Item.FindControl("txtBezeichnung"), TextBox).Text)
InsSQL = "INSERT INTO KostGruppe " & _
"(KostGruppe, Bezeichnung) " & _
"VALUES('" & KostGruppe & _
"','" & Bezeichnung & "')"
Dim Fehler2 = db.SqlAendern(InsSQL, ConnectionStr)
If Fehler2 = "" Then
'Aktualisieren der ansicht
DataGrid1.EditItemIndex = -1
DataGrid1.ShowFooter = False
DataGrid1.Columns.Item(3).Visible = True
data(strSQL)
Label2.Text = "Ein Datensatz wurde erfolgreich eingef�gt."
Label2.Visible = True
Else
'Fehler aufgetreten
Label2.Text = Fehler2
Label2.Visible = True
End If
Case Is = "Delete"
'l�schen Benutzer
Dim KostGruppeD = Convert.ToString(CType(e.Item.FindControl("Label1"),
Label).Text)
sql = "delete from KostGruppe where KostGruppe = '" & KostGruppeD & "'"
Aktion = db.SqlAendern(sql, ConnectionStr)
If Aktion = "" Then
'Aktualisieren der ansicht
DataGrid1.EditItemIndex = -1
data(strSQL)
Label2.Text = "Der Datensatz wurde erfolgreich gel�scht."
Label2.Visible = True
Else
'Fehler aufgetreten
Label2.Text = Aktion
Label2.Visible = True
End If
Case Is = "help"
'Hilfe aufrufen
Response.Write("<script language=Javascript>")
Response.Write("window.open('HelpGruppe.aspx','test', ")
Response.Write("'resizable=no,height=270,width=740')</script>")
End Select
-----Urspr�ngliche Nachricht-----
Von: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Im Auftrag von Alexander Zeitler
Gesendet: Freitag, 27. Februar 2004 11:10
An: [EMAIL PROTECTED]
Betreff: RE: [Asp.net] sorting und editing spielt nicht zusammen!
Hallo,
> Hallo , ich habe ein datagrid , in diesem hab ich es erst
> erm�glicht das die user bearbeiten und l�schen k�nnen , und dann
> das sie sortieren auch k�nnen .
> Nur jetzt mit dem sortieren da stimmt etwas nicht mehr .
> Die sortierung fuktioniert zwar aber wenn ich eine zeile in
> bearbeitung gebe , dann hab ich die falsche zeile freigeschalten
> . anscheinend l�scht er da die sortierung wieder!
> Hat jemand eine idee??
>
wie realisierst Du das Sorting und Editing? (Code)
Gruss
Alex
_______________________________________________
Asp.net Mailingliste, Postings senden an:
[EMAIL PROTECTED]
An-/Abmeldung und Suchfunktion unter:
http://www.glengamoi.com/mailman/listinfo/asp.net
_______________________________________________
Asp.net Mailingliste, Postings senden an:
[EMAIL PROTECTED]
An-/Abmeldung und Suchfunktion unter:
http://www.glengamoi.com/mailman/listinfo/asp.net
