Allora:
ho un datareader che prende * da una tabella.
Mi scrive ogni risultato in una lista L.
Ho un array (che contiene il risultato di un'altra query della tabella incrociata ad un'altra, che tira fuori gli elementi relativi all'utente corrente), e in base a questo, metto o non metto un check nei checkbox della lista L.
ora....
ho un pulsante salva.
come faccio ad aggiornare la situazione?
non so più dove sbattere il cranio.



questo è il codice

codice:
Public Class Cert
    Inherits System.Web.UI.Page
    Protected WithEvents SqlConnection1 As System.Data.SqlClient.SqlConnection
    Protected WithEvents SqlCommand1 As System.Data.SqlClient.SqlCommand
    Protected WithEvents tblLista As System.Web.UI.WebControls.Table
    Protected SqlDataReader1 As System.Data.SqlClient.SqlDataReader
    Protected WithEvents lnkChiudi As System.Web.UI.WebControls.LinkButton
    Protected WithEvents lnkSalvaChiudi As System.Web.UI.WebControls.LinkButton
    Protected WithEvents lnkRegistra As System.Web.UI.WebControls.LinkButton
    Dim arrLista As New ArrayList()
    Dim i, h
    Protected WithEvents CSSStilePagina As System.Web.UI.WebControls.Literal
    Protected WithEvents SqlConnection2 As System.Data.SqlClient.SqlConnection
    Protected WithEvents LblEnte As System.Web.UI.WebControls.Label
    Shared IDEnte

#Region " Codice generato da Progettazione Web Form "

    'Chiamata richiesta da Progettazione Web Form.
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.SqlConnection1 = New System.Data.SqlClient.SqlConnection()
        Me.SqlCommand1 = New System.Data.SqlClient.SqlCommand()
        Me.SqlConnection2 = New System.Data.SqlClient.SqlConnection()
        '
        'SqlConnection1
        '
        Me.SqlConnection1.ConnectionString = "data source=sviluppo;initial catalog=SinfodDirettive;integrated security=SSPI;per" & _
        "sist security info=False;workstation id=CORINNA;packet size=4096"
        '
        'SqlCommand1
        '
        Me.SqlCommand1.Connection = Me.SqlConnection1
        '
        'SqlConnection2
        '
        Me.SqlConnection2.ConnectionString = "data source=sviluppo;initial catalog=SinfodDirettive;integrated security=SSPI;per" & _
        "sist security info=False;workstation id=CORINNA;packet size=4096"

    End Sub

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: questa chiamata al metodo è richiesta da Progettazione Web Form.
        'Non modificarla nell'editor del codice.
        InitializeComponent()
    End Sub

#End Region

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        cssStilePagina.Text = "<link type=""text/css"" rel=""stylesheet"" href=""" & LeggiStilePagina(Request.Cookies("IDDettaglioUtentiDSA").Value, Modulo.TipoPagina.Contesto) & """>"
        Call VerificaEnte()
        Dim Count = 0

        SqlCommand1.CommandText = "SELECT * FROM DettaglioStruttureCertificazioni WHERE IDStruttura=" & IDEnte & "ORDER BY IDCertificazione"
        SqlConnection1.Open()
        SqlDataReader1 = SqlCommand1.ExecuteReader()
        While SqlDataReader1.Read
            arrLista.Add(SqlDataReader1.Item("IDCertificazione"))
            Count = Count + 1
        End While
        SqlDataReader1.Close()
        SqlConnection1.Close()
        SqlCommand1.CommandText = "SELECT * FROM Certificazioni ORDER BY IDCertificazione"
        SqlConnection1.Open()
        SqlDataReader1 = SqlCommand1.ExecuteReader()
        While SqlDataReader1.Read

            Dim tblListaRow As New TableRow()
            Dim tblListaCell1 As New TableCell()
            Dim tblListaCell2 As New TableCell()


            Dim chkCertificazione As New CheckBox()
            chkCertificazione.ID = SqlDataReader1.Item("IDCertificazione")
            chkCertificazione.Attributes.Add("OnClick", "document.Form1.FormChanged.value='1'")
            chkCertificazione.Checked = False
            For Each h In arrLista
                If SqlDataReader1.Item("IDCertificazione") = h Then
                    chkCertificazione.Checked = True
                End If
            Next
            tblListaCell1.Controls.Add(chkCertificazione)
            tblListaCell2.Controls.Add(New LiteralControl(SqlDataReader1.Item("Denominazione")))
            tblListaRow.Cells.Add(tblListaCell1)
            tblListaRow.Cells.Add(tblListaCell2)
            tblLista.Rows.Add(tblListaRow)
        End While
        SqlConnection1.Close()
        If Not Page.IsPostBack Then
        End If
        Call DetectFormChanged(Page, "lnkRegistra")
    End Sub

    Sub VerificaEnte()
        Dim SQL As String
        SQL = "SELECT DISTINCT dbo.DettaglioStruttureApplicazioni.IDStruttura, dbo.Strutture.Nome, dbo.TipoStruttura.Nome AS Tipo" & _
        " FROM dbo.DettaglioUtentiDSA INNER JOIN dbo.DettaglioStruttureApplicazioni ON dbo.DettaglioUtentiDSA.IDDettaglioStrutturaApplicazione = dbo.DettaglioStruttureApplicazioni.IDDettaglioStrutturaApplicazione INNER JOIN" & _
        " dbo.Strutture ON dbo.DettaglioStruttureApplicazioni.IDStruttura = dbo.Strutture.IDStruttura INNER JOIN dbo.TipoStruttura ON dbo.Strutture.IDTipoStruttura = dbo.TipoStruttura.IDTipoStruttura" & _
        " WHERE dbo.DettaglioUtentiDSA.IDDettaglioUtentiDSA = " & Request.Cookies("IDDettaglioUtentiDSA").Value

        SqlConnection1.Open()
        Dim command As New SqlClient.SqlCommand()
        Dim DRCertificazioni As SqlClient.SqlDataReader
        command.Connection = SqlConnection1
        command.CommandText = SQL
        DRCertificazioni = command.ExecuteReader()
        If DRCertificazioni.Read Then
            IDEnte = DRCertificazioni.Item("IDStruttura") ' riempio la variabile shared con l'id dell'ente di cui fa parte il responsabile
            LblEnte.Text = DRCertificazioni.Item("Tipo") & " " & DRCertificazioni.Item("Nome")
        End If
        DRCertificazioni.Close()
        DRCertificazioni = Nothing
        SqlConnection1.Close()
    End Sub
e poi

codice:
    Private Sub lnkRegistra_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lnkRegistra.Click
   
e qui?? :( 
      
    End Sub

    Private Sub lnkSalvaChiudi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lnkSalvaChiudi.Click
        lnkRegistra_Click(sender, e)
        lnkChiudi_Click(sender, e)
    End Sub

    Private Sub lnkChiudi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lnkChiudi.Click
        Response.Redirect("Mdl2002.htm")
    End Sub
vi prego.... aiutatemi....