datacolchanged的问题

2个表 新单统计表和库存汇总表

If e.DataCol.Name = "产品" Then 
    Dim dr As DataRow 
    dr = DataTables("库存汇总").Find("产品 = \'" & e.DataRow("产品") & "\'" )
    If dr IsNot Nothing
        e.DataRow("库存数量")= dr("数量")
        Else
        e.DataRow("库存数量")= 0

    End If

找到库存汇总表里产品和新单统计表里产品名一样的数量  写到新单表里    功能OK

但是问题出现了  假设我在 新单统计表里输入产品"PD99"但是库存汇总里没有  显示为0    我又在库存汇总里加入一行 PD99    400(数量)

返回新单统计表  在原来的位置输入PD99    数量不变   若是另外一行输入PD99  显示400  正确

思考: datacolchanged       "changed"   这个词有2个意思    改变和结束       所以我理解为 1.数据要有改变  2.改变结束了

最先的行是PD99    0     我再输入PD99  数据没有改变 所以  0 还是0   另外一行是空  改成PD99  显示400正常

怎么能实时改变的?  还是要在项目属性 maintablechenged写代码? 若是这样  代码应该要换了吧      点重置列 貌似可以实现 或者弄个"刷新"的功能