gridview vb.net中的多个Web服务数据

时间:2012-11-28 14:50:24

标签: vb.net vb.net-2010

我正在连接两个产生相同数据结构的不同Web服务。下面的示例代码将给出总体结果。

示例:

ItemSKU1  ItemName1  TotalQuantity1
ItemSKU2  ItemName2  TotalQuantity2
...

我希望能够将Web服务的结果分成这样的结果:

ItemSKU1  ItemName1  QuantityIP1  QuantityIP2
...

示例代码:

Dim returnds As New DataSet
Dim myreport As New RE.RE
Dim tmpURL = {"IP1", "IP2"}
Dim i As Integer
    For i = 0 To 1


        Try

            myreport.Url = "http://" & tmpURL(i) & "/RE.asmx"
            returnds = myreport.GetDeptDetails(date1, date2, dept)
            Me.gvReorder.DataSource = returnds
            Me.gvReorder.DataBind()
            returnds.Clear()
        Catch ex As Exception
            label.visible = true
            label.text = "Error: " & ex.Message
        End Try

    Next

如果IP1结果为SKU且IP2结果SKU没有尝试合并多个数据集,我该怎么办呢?

1 个答案:

答案 0 :(得分:0)

我可以通过编辑数据表来完成此操作:

Dim tmpEditRow As DataRow = tmpReturnRows(0)

                    tmpEditRow.BeginEdit()

                    Select Case a

                        Case 0

                            tmpEditRow("Qsold / QoH1") = QtySold & " / " & QtyOH

                        Case 1

                            tmpEditRow("Qsold / QoH3") = QtySold & " / " & QtyOH

                        Case 2

                            tmpEditRow("Qsold / QoH4") = QtySold & " / " & QtyOH

                        Case 3

                            tmpEditRow("Qsold / QoH7") = QtySold & " / " & QtyOH

                        Case 4

                            tmpEditRow("Qsold / QoH8") = QtySold & " / " & QtyOH

                        Case 5

                            tmpEditRow("Qsold / QoH10") = QtySold & " / " & QtyOH

                        Case 6

                            tmpEditRow("Qsold / QoH12") = QtySold & " / " & QtyOH

                        Case 7

                            tmpEditRow("Qsold / QoH14") = QtySold & " / " & QtyOH

                    End Select

                    tmpEditRow.EndEdit()