主题：拷贝的问题和Excel的问题

正确的应该是：

  Dim dr As DataRow = e.Datarow.GetParentrow("bjd") '为了在表中有效 **当窗口1没有打开的话,那么就视为在表中录入
   if dr isnot nothing then
        dr("bj")=sum1+sum2
        Tables("bjd").Refresh()  '汇总产生:没有这条只能在bdmx表有效,加上本条后,在bjd表中也有效,仅如此的话,窗口的控件不会随变
   end if

呵呵，其实这个错误，你之前已经犯过，也是我帮你搞定的啊