此主题相关图片如下：明细表.png

如果我明细表有以上内容，我想将订单表的产品更新成以下的样式应该怎么写。

此主题相关图片如下：订单表.png

子表DataColChanged事件

If e.DataCol.Name = "产品" orelse e.datacol.name = "数量" Then
    Dim pr As DataRow = e.DataRow.GetParentRow("订单")
    If pr IsNot Nothing Then
        Dim str As String = ""
        For Each dr As DataRow In pr.GetChildRows(e.DataTable.name)
            str &= dr("产品") & "*" & dr("数量") & ","
        Next
        pr("产品") = str.trim(",")
    End If
End If