有一个“销售订单明细”是远程数据表，其中有一个“销售单号”为“a”的数据共有两行，现希望再另一张表中（提货明细）输入销售单号“a”后出现“格式二”，我现在只能实现“格式一” 附代码如下：

If e.DataCol.Name = "销售单号"  Then
    Dim cmd As New SQLCommand
    Dim dt As DataTable
    Dim dr As DataRow = e.DataRow
    cmd.C
    cmd.CommandText = "SELECT * From {销售订单明细} Where [销售单号] = \'" & dr("销售单号") & "\'"
    dt = cmd.ExecuteReader
    If dt.DataRows.Count > 0 Then
        For Each r As DataRow In dt.Datarows
            Dim r1 As Row = Tables("提货明细").addnew
            r1("提货机型")=r("提货机型")
            r1("数量")=r("数量")
        Next
    Else
        dr("提货机型") = Nothing
        dr("数量") = Nothing
       
    End If
End If

格式一：

  “销售单号”跟“提货机型”和“数量”不在同一行。