Question

Screenshot of duplication of data

UPDATE＆GT;＆GT;＆GT;＆GT;如果我在localhost上运行它，它们不是重复数据，但在网站上有。这有助于让人们了解可能发生的事情吗？

我有一个由其他人构建的应用程序，当最终用户输入一些产品信息并点击提交时，它会从套接字调用返回结果。应用程序返回结果，但有时会显示结果两次。例如，如果我单击应用程序上的提交以搜索产品，它可能会返回正确的一个，两个或三个记录（因为可能有1-3个位置的结果），或者它可能会重复所有那些结果两次。（即：如果返回了两条记录，它可能只显示两条记录中的信息，或者它可能会显示前两行中两条记录的结果，然后在行中重复第1行和第2行3＆amp; 4.）继续单击该页面上的提交将（它随机出现）更改生成的显示数据 - 在一组结果和两组之间循环。

关于可能导致此问题的任何想法？我已经包含了我认为涉及的一些代码。我继承了这段代码，并试图让它工作，但我是这类应用程序的新手，并且只是在asp.net中最好的中间件。提前感谢任何能够解决问题的人!!

Protected Sub displayTableOne(ByVal records() As String)

    Dim dt As New DataTable()
    Dim values() As String = {""}
    Dim i As Integer = 0

    Try

        Dim Row() As String = {"Company", "Piece", "Description", _
        "Location", "Available", "Purchased", "Ship Date"}

        #Create the columns
        Dim column1 As New DataColumn("Company", GetType(String))
        Dim column2 As New DataColumn("Piece", GetType(String))
        Dim column3 As New DataColumn("Description", GetType(String))
        Dim column4 As New DataColumn("Location", GetType(String))
        Dim column5 As New DataColumn("Available", GetType(String))
        Dim column6 As New DataColumn("Purchased", GetType(String))
        Dim column7 As New DataColumn("Ship Date", GetType(String))


        dt.Columns.Add(column1)
        dt.Columns.Add(column2)
        dt.Columns.Add(column3)
        dt.Columns.Add(column4)
        dt.Columns.Add(column5)
        dt.Columns.Add(column6)
        dt.Columns.Add(column7)


        If (records.Length > 1) Then
            For i = 0 To records.Length - 2 Step 1

                values = Split(records(i), "|")
                Dim l As Integer = 0
                Dim dr As DataRow
                dr = dt.NewRow()

                If values(0) = "05" Then

                    If (values.Length > 4) Then
                        dr(Row(0)) = values(1)
                        dr(Row(1)) = values(2)
                        dr(Row(2)) = values(13)
                        dr(Row(3)) = values(17)
                        dr(Row(4)) = values(7)
                        dr(Row(5)) = values(15)
                        dr(Row(6)) = values(16)

                    End If

                    dt.Rows.Add(dr)

                End If
            Next

            If values(23) = "Error" Then
                invalidMessage()

            Else
                #Bind the DataTable to the DataGrid
                Table1.Visible = True
                Table1.DataSource = dt
                Table1.DataBind()
            End If
        End If
    Catch ex As Exception
        invalidMessage()
    Finally
        Array.Clear(records, 0, records.Length)
        Array.Clear(values, 0, values.Length)

    End Try

End Sub

ARRGH！查询中的结果重复，但有时只是

0 个答案: