Private Sub btndelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btndelete.Click
        Dim i As Integer
        For i = 1 To Repeater1.Items.Count - 1
            Dim cb As CheckBox = Repeater1.Items(i).FindControl("CheckBox1")
            If Not cb Is Nothing And cb.Checked = True Then
                Dim strsql As String = "update maillist set MFlag='d' where mfrom=(select defaultmail from users where username=" & "'" & Session("username") & "'" & ")" & ""
                Dim cmd As New SqlCommand(strsql, conn)
                conn.Open()
                cmd.ExecuteNonQuery()
                conn.Close()
            End If
        Next
    End Sub

不太看得懂VB的语法!

有没有人知道啊~~~
麻烦版主解决一下~~`

版主很久没有归隐了，好久没有出来了……