Question

我遇到的问题是，点击按钮1会保存在文本框中输入的数据（请参阅代码）但是当页面回发时，数据不会被保存（不会显示确认消息）然后如果我点击它再次保存记录，有时需要超过3次，直到每个确认消息存储数据。

这是一个Con.Dispose问题???我应该使用con.close吗？
注意：在代码中我有Con.CLOSE但页面部署在Con.Dispose（）下
注2：我打算修复代码中发现的更多“新手”问题，但紧急问题仍然存在于回发问题中。

    ' *--------Empty Text Validation-------*
    If TextBox10_AddData_LabInvest.Text <> "" AndAlso TextBox3_AddData_LabInvest.Text <> "" AndAlso TextBox4_AddData_LabInvest.Text <> "" AndAlso TextBox5_AddData_LabInvest.Text <> "" AndAlso TextBox6_AddData_LabInvest.Text <> "" AndAlso TextBox7_AddData_LabInvest.Text <> "" Then

        ' *--------SQL Insert command-------*
        SqlDataSource_AddData_LabInvest.InsertCommand = "INSERT INTO [LabInvest] (ID_LabInvest, LabInvest_Load, LabInvest_SeqRef_CH, LabInvest_SeqRef_Year, LabInvest_Owner, LabInvest_Subject, LabInvest_DueDate, LabInvest_Code, LabInvest_QSNCCode, LabInvest_OpenByOwner, LabInvest_OpenDateOwner, Status_Text, Status_Int ) VALUES(@ID_LabInvest, @LabInvest_Load, @LabInvest_SeqRef_CH, @LabInvest_SeqRef_Year, @LabInvest_Owner, @LabInvest_Subject, @LabInvest_DueDate, @LabInvest_Code, @LabInvest_QSNCCode, @LabInvest_OpenByOwner, @LabInvest_OpenDateOwner, @Status_Text, @Status_Int)"
        SqlDataSource_AddData_LabInvest.InsertParameters.Add("ID_LabInvest", TextBox10_AddData_LabInvest.Text)
        SqlDataSource_AddData_LabInvest.InsertParameters.Add("LabInvest_Load", "N/A")
        SqlDataSource_AddData_LabInvest.InsertParameters.Add("LabInvest_SeqRef_CH", TextBox1_AddData_LabInvest.Text)
        SqlDataSource_AddData_LabInvest.InsertParameters.Add("LabInvest_SeqRef_Year", TextBox2_AddData_LabInvest.Text)
        SqlDataSource_AddData_LabInvest.InsertParameters.Add("LabInvest_Owner", TextBox3_AddData_LabInvest.Text)
        SqlDataSource_AddData_LabInvest.InsertParameters.Add("LabInvest_Subject", TextBox4_AddData_LabInvest.Text)
        SqlDataSource_AddData_LabInvest.InsertParameters.Add("LabInvest_DueDate", TextBox5_AddData_LabInvest.Text)
        SqlDataSource_AddData_LabInvest.InsertParameters.Add("LabInvest_Code", TextBox6_AddData_LabInvest.Text)
        SqlDataSource_AddData_LabInvest.InsertParameters.Add("LabInvest_QSNCCode", TextBox7_AddData_LabInvest.Text)
        SqlDataSource_AddData_LabInvest.InsertParameters.Add("LabInvest_OpenByOwner", TextBox8_AddData_LabInvest.Text)
        SqlDataSource_AddData_LabInvest.InsertParameters.Add("LabInvest_OpenDateOwner", TextBox9_AddData_LabInvest.Text)
        SqlDataSource_AddData_LabInvest.InsertParameters.Add("Status_Text", "Stage 1 - Just Added")
        SqlDataSource_AddData_LabInvest.InsertParameters.Add("Status_Int", "1")


        Try
            SqlDataSource_AddData_LabInvest.Insert()

            ' *--------Get Unique ID-------*
            Dim Con As New SqlConnection
            Dim SQL As String
            Dim com As SqlCommand = Con.CreateCommand
            Con.ConnectionString = "removed"
            Con.Open()
            SQL = "SELECT ID_LabInvest FROM LabInvest WHERE ID_LabInvest=" + TextBox10_AddData_LabInvest.Text
            Dim cmd As New SqlCommand(SQL, Con)
            Dim obj = cmd.ExecuteScalar()
            Label1_AddData_LabInvest.Text = "Your record ID is: " + obj.ToString()


            ' *--------Get Stage-------*
            Dim SQL2 As String
            SQL2 = "SELECT Status_Text from LabInvest WHERE ID_LabInvest=" & obj
            Dim cmd2 As New SqlCommand(SQL2, Con)
            Dim obj2 = cmd2.ExecuteScalar()
            Label2_AddData_LabInvest.Text = "Record Stage: " + obj2.ToString()
            con.close()
            Button4_AddData_LabInvest.Enabled = False

            ' *--------SQL Audit Insert command-------*
            Dim Usercheck As String
            Usercheck = Request.ServerVariables("LOGON_USER")
            SqlDataSource_LabInvest_Audit.InsertCommand = "INSERT INTO [AuditTrial] (ID_Table, AuditTableName, AuditAction, AuditUser, AuditValue1Before, AuditValue2Before, AuditValue1After, AuditValue2After, AuditMasterReason, AuditMasterChange) VALUES(@ID_Table, @AuditTableName, @AuditAction,  @AuditUser, @AuditValue1Before, @AuditValue2Before, @AuditValue1After, @AuditValue2After, @AuditMasterReason, @AuditMasterChange)"
            SqlDataSource_LabInvest_Audit.InsertParameters.Add("ID_Table", obj)
            SqlDataSource_LabInvest_Audit.InsertParameters.Add("AuditTableName", "LaboratoryInvestigations_Add")
            SqlDataSource_LabInvest_Audit.InsertParameters.Add("AuditAction", "Added New Record")
            SqlDataSource_LabInvest_Audit.InsertParameters.Add("AuditUser", Usercheck)
            SqlDataSource_LabInvest_Audit.InsertParameters.Add("AuditValue1Before", "N/A")
            SqlDataSource_LabInvest_Audit.InsertParameters.Add("AuditValue2Before", "N/A")
            SqlDataSource_LabInvest_Audit.InsertParameters.Add("AuditValue1After", "N/A")
            SqlDataSource_LabInvest_Audit.InsertParameters.Add("AuditValue2After", "N/A")
            SqlDataSource_LabInvest_Audit.InsertParameters.Add("AuditMasterReason", "N/A")
            SqlDataSource_LabInvest_Audit.InsertParameters.Add("AuditMasterChange", "N/A")
            SqlDataSource_LabInvest_Audit.Insert()

        Catch ex As Exception
            Label1_AddData_LabInvest.Text = "Duplicate NumberID, Please Review Data"
        End Try

    Else
        Label1_AddData_LabInvest.Text = "Please Fill All Options"
    End If

Answer 1

问题是因为应用程序驻留在具有NLB的Web服务器场中，因此空白回发是由于NBL将用户从原始连接重定向到另一个服务器。（不同的解决方案可能会应用链接NO Cache，Connection Affinity等）希望它能在将来帮助某人。

ASP.NET按钮单击事件问题（回发）

1 个答案: