主题：关联表填充问题

刚刚回短信想贴给你，但是不通过。
 
可以的：
 
 
For Each r1 As DataRow In DataTables("表A").Select("[金额] > 100")
    Dim r2 As Row = Tables("关联表").AddNew()
    For Each dc As DataCol in DataTables("表A").DataCols
        r2(dc.Name) = r1(dc.name)
      Next
Next

至于删除关联表的数据，我想不用我说了。