Hier ein ausschnitt meines codes:
Private Sub DataGrid1_ItemCommand1(ByVal source As Object, ByVal e As
System.Web.UI.WebControls.DataGridCommandEventArgs) Handles DataGrid1.ItemCommand
Dim strSQL, sql, updSQL, InsSQL, Aktion As String
If Session("SortFeld") Is Nothing Then
strSQL = " select * from Irgendwas"
Else
strSQL = "select * from Irgendwas order by " & Session("SortFeld") & " " &
Session("SortArt")
End If
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(7).Visible = False
Dropdownwert1 = e.Item.Cells(4).Text
DropDownWert2 = e.Item.Cells(6).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 ddlLeistungsGruppeU =
Convert.ToString(CType(e.Item.FindControl("dropdownlist3"),
DropDownList).SelectedItem.Value)
Dim txtMaGruppeU =
Convert.ToString(CType(e.Item.FindControl("Label3"), Label).Text)
'eigenschaft der controls in update verpacken.
updSQL = "update xxx " & _
"SET xx = '" & txtBezeichnungU & _
"' ,xx = '" & ddlKostgruppeU & _
"' ,xx = '" & ddlLeistungsGruppeU & _
"' WHERE xx = '" & _
txtMaGruppeU & " '"
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(7).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(7).Visible = True
data(strSQL)
Case Is = "AddNew"
DataGrid1.EditItemIndex = -1
data(strSQL)
DataGrid1.Columns.Item(7).Visible = False
DataGrid1.ShowFooter = True
Case Is = "Insert"
Dim MaGruppe =
Convert.ToString(CType(e.Item.FindControl("txtMaGruppe"), TextBox).Text)
Dim Bezeichnung =
Convert.ToString(CType(e.Item.FindControl("txtBezeichnung"), TextBox).Text)
Dim kostgruppe =
Convert.ToString(CType(e.Item.FindControl("dropdownlist2"),
DropDownList).SelectedItem.Value)
Dim Leistungsgruppe =
Convert.ToString(CType(e.Item.FindControl("dropdownlist4"),
DropDownList).SelectedItem.Value)
InsSQL = "INSERT INTO Irgendwas " & _
"(xxx, xxx, xxx, xxx) " & _
"VALUES('" & MaGruppe & _
"','" & Bezeichnung & _
"','" & kostgruppe & _
"','" & Leistungsgruppe & "' )"
Dim Fehler2 = db.SqlAendern(InsSQL, ConnectionStr)
If Fehler2 = "" Then
'Aktualisieren der ansicht
DataGrid1.EditItemIndex = -1
DataGrid1.ShowFooter = False
DataGrid1.Columns.Item(7).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 MaGruppeD = Convert.ToString(CType(e.Item.FindControl("Label3"),
Label).Text)
sql = "delete from xxx where xxx = '" & MaGruppeD & "'"
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
End Sub
Private Sub DataGrid1_ItemDataBound(ByVal sender As Object, ByVal e As
System.Web.UI.WebControls.DataGridItemEventArgs) Handles DataGrid1.ItemDataBound
On Error Resume Next
If e.Item.ItemType = ListItemType.EditItem Then
Dim DropDownList1 As DropDownList
reader1 = db.SqlReader("select * from xxx", ConnectionStr)
DropDownList1 = CType(e.Item.FindControl("DropDownList1"), DropDownList)
DropDownList1.DataSource = reader1
DropDownList1.DataTextField = "Kostgruppe"
DropDownList1.DataValueField = "KostGruppe"
DropDownList1.DataBind()
DropDownList1.SelectedValue = Dropdownwert1
reader1.Close()
Dim DropDownList3 As DropDownList
reader2 = db.SqlReader("select * from xxx", ConnectionStr)
DropDownList3 = CType(e.Item.FindControl("DropDownList3"), DropDownList)
DropDownList3.DataSource = reader2
DropDownList3.DataTextField = "LeistungsGruppe"
DropDownList3.DataValueField = "LeistungsGruppe"
DropDownList3.DataBind()
DropDownList3.SelectedValue = DropDownWert2
reader2.Close()
End If
If e.Item.ItemType = ListItemType.Footer Then
Dim dropdownlist2 As DropDownList
reader1 = db.SqlReader("select * from xxx", ConnectionStr)
dropdownlist2 = CType(e.Item.FindControl("Dropdownlist2"), DropDownList)
dropdownlist2.DataSource = reader1
dropdownlist2.DataTextField = "Kostgruppe"
dropdownlist2.DataValueField = "Kostgruppe"
dropdownlist2.DataBind()
reader1.Close()
Dim dropdownlist4 As DropDownList
reader2 = db.SqlReader("select * from xxx", ConnectionStr)
dropdownlist4 = CType(e.Item.FindControl("Dropdownlist4"), DropDownList)
dropdownlist4.DataSource = reader2
dropdownlist4.DataTextField = "LeistungsGruppe"
dropdownlist4.DataValueField = "LeistungsGruppe"
dropdownlist4.DataBind()
reader1.Close()
End If
On Error GoTo 0
End Sub
-----Urspr�ngliche Nachricht-----
Von: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Im Auftrag von Alexander Zeitler
Gesendet: Mittwoch, 21. April 2004 08:52
An: [EMAIL PROTECTED]
Betreff: RE: [Asp.net] dropdown - datagrid
Hallo,
>
> Aber f�r diese gibt leider kein on index change() das ist da
> mein problem , ich m�sste auf die dropdownliste doch mit
> e.item.findcontrol...... zugreifen!
> Ich hab den vollen h�nger:(
>
poste bitte mal Deinen bisherigen Code.
Gruss
Alex
*************************
_______________________________________________
This ASP.NET email is sponsored by:
UDEX ProMenu.Net - Die Software f|r Navigation - Jetzt kostenlos testen!
Tree- Style, Horizontal- Slide, Vertical- Slide. http://www.udexnet.com
_______________________________________________
Asp.net Mailingliste, Postings senden an:
[EMAIL PROTECTED]
An-/Abmeldung und Suchfunktion unter:
http://www.glengamoi.com/mailman/listinfo/asp.net
*************************
*************************
_______________________________________________
This ASP.NET email is sponsored by:
UDEX ProMenu.Net - Die Software f�r Navigation - Jetzt kostenlos testen!
Tree- Style, Horizontal- Slide, Vertical- Slide. http://www.udexnet.com
_______________________________________________
Asp.net Mailingliste, Postings senden an:
[EMAIL PROTECTED]
An-/Abmeldung und Suchfunktion unter:
http://www.glengamoi.com/mailman/listinfo/asp.net
*************************
