主题：备注是否可以关联到另外一个表

DataTables("出货明细").DeleteFor("公司 = '" & e.DataRow("公司") & "'")  ‘这就可以时时更新了

Dim s As String = Tables("表A").current("出货明细")
Dim cs As String
For i As Integer = 0 To s.split(chr(10)).length - 1
    Dim r As Row = Tables("出货明细").AddNew()
    r("公司") = Tables("表A").current("公司")
    r("出货时间") =  s.split(chr(10))(i).split(" ")(0)      ’这里去掉的产品列的内容

    r("出货数量") =  s.split(chr(10))(i).split(" ")(1)
Next