Dim t As Table = Tables("表A")For Each dr As Row In t.Rows dr("第二列") = DataTables("表B").Compute( "Sum(第二列)", "第一列 Like '" & dr("第一列") & "%'" )Next