我正在连接两个产生相同数据结构的不同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没有尝试合并多个数据集,我该怎么办呢?
答案 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()