返回首页

我有别人,从套接字调用返回结果时,最终用户类型中的一个小产品信息,并点击提交构建的应用程序。应用程序返回的结果,但它有时会显示结果的两倍。例如,如果我点击提交上的应用做了一个产品的搜索,它可能会回来正确的一个,两个或三个记录(有可能是1-3位置的结果),它可能会重复所有这些结果的两倍。 (即:如果有两个返回的记录,它可能只是从两个记录的信息显示,它可能会显示结果从两个记录中的前两行,然后重复行行3 4 1 2 。)继续点击该网页上提交(随机出现)更改结果显示的数据 - 一组结果和两个之间的循环

我已经包括了位的代码,我认为参与。我继承了这个代码,我试图使它工作,但我这种类型的应用,只有中间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

如果我在本地主机上运行,​​他们是没有重复的数据,但在网站上有。这是否有助于给人们一个想法什么可怎么回事呢?

回答

评论会员: 时间:2