既然提示DatacolChanged事件代码有误，就去哪里查找.
我至少在三个表的的DataColChanged发现四处这样的代码：
Dim dr As DataRow = e.Datarow.GetParentrow("bjd") '为了在表中有效 **当窗口1没有打开的话,那么就视为在表中录入
dr("bj")=sum1+sum2
Tables("bjd").Refresh() '汇总产生:没有这条只能在bdmx表有效,加上本条后,在bjd表中也有效,仅如此的话,窗口的控件不会随变
正确的应该是：
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
呵呵，其实这个错误，你之前已经犯过，也是我帮你搞定的啊
[此贴子已经被作者于2008-10-6 15:27:28编辑过]
加好友 
发短信
Post By：2008/10/6 15:27:00 [显示全部帖子]
