0

同じ構造のデータを生成する 2 つの異なる 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 である場合、複数のデータセットをマージしようとせずにこれを行うにはどうすればよいですか?

4

1 に答える 1

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()
于 2012-12-28T16:12:25.993 に答える