Private Sub Page_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        If Not IsPostBack Then
            Dim country As String = Session("Country")
            If country = String.Empty OrElse country.ToUpper() = "ALL" Then
                SqlDataAdapter1.SelectCommand.CommandText = "Select * From" & _
                  "Orders"
            Else
                SqlDataAdapter1.SelectCommand.CommandText = "Select * From" & _
                  "Orders Where ShipCountry=@ShipCountry"
                SqlDataAdapter1.SelectCommand.Parameters.Add("@ShipCountry", _
                Session("Country"))
            End If
            SqlDataAdapter1.Fill(DataSet11, "Orders")
            DataGrid1.DataSource = DataSet11.Tables("Orders").DefaultView
            Session("OrdersDataView") = DataGrid1.DataSource
            DataBind()
        End If
    End Sub
 
    ' Neue Zeile einfügen
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim dv As DataView = Session("OrdersDataView")
        dv.AddNew()
        DataGrid1.DataSource = dv
        DataGrid1.EditItemIndex = dv.Count - 1
        DataBind()
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist