小编vas*_*987的帖子

我有一个按钮

 <asp:Button ID="Button1" runat="server" Text="Button"  onclick="Button1_Click" UseSubmitBehavior="False" />

我的活动是

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim con As New SqlConnection(ConfigurationManager.ConnectionStrings("Document_RecordConnectionString1").ToString())
        con.Open()
        Dim del As New SqlCommand(" delete from TableA where RefNo = '" & Request.QueryString("RefNo") & "'", con)
        del.ExecuteNonQuery()
        For i As Integer = 0 To displayCBL.Items.Count - 1

            If displayCBL.Items(i).Selected Then
                Dim cmd As New SqlCommand("Insert into TableA (RefNo,Text,InsertDate) values('" & Request.QueryString("RefNo") & "','" & displayCBL.Items(i).Value & "',getdate())", con)
                cmd.ExecuteNonQuery()

            End If
        Next …