主题：请教关于库存状况表设计的问题

在产品信息表的DataColchanging事件设置代码,大概如此，请自行调试修改：
 
If e.DataCol.Name = "产品名称" Then
    if e.NewValue > "" then
           Dim dr as DataRow
           if e.OldValue > "" then
               dr = DataTables("库存").Find("产品名称 = '" & e.OldValue & “‘”)
           end if
           if dr is nothing then
              dr = DataTables("库存").AddNew()
           end if
          dr("产品名称") = e.NewValue
    End if
End if