主题：在入库表中添加新产品时，库存表也能及时添加？

我按教程试着做了入库、出库、库存三张表，入库表与库存表建立了关联，库存表为父表，入库表为子表，产品为关联列，并选择同时更新，但当入库表中添加新产品时，库存表的产品列不能自动添加，需人工添加。能不能自动添加？

只能编码添加

入库表datacolchanged事件代码： if e.datacol.name = "品名" then dim s as string = e.newvalue dim dr as datarow = datables("库存").find("[品名] = ' "& s & " ' " if dr is nothing then datables("库存").addnew dr("品名”）= e.newvalue end if end if 实际上，在入库表品名列输入完新值时，系统提示调用目标发生异常，未将对象引用到实例。错误出在：dr("品名”）= e.newvalue。不知怎么改进？

入库表datacolchanged事件代码： if e.datacol.name = "品名" then

入库表datacolchanged事件代码：  if e.datacol.name = "品名" then      dim s as string = e.newvalue        dim dr as datarow = datables("库存").find("[品名] = ' "& s & " ' "        if dr is nothing then          datables("库存").addnew        dr("品名”）= e.newvalue     end if   end if  实际上，在入库表品名列输入完新值时，系统提示调用目标发生异常，未将对象引用到实例。 库存表能自动增加行，但品名列不能自动输入新值。 错误出在：dr("品名”）= e.newvalue。不知怎么改进？

If e.DataCol.name = "品名" Then
    Dim s As String = e.newvalue
    Dim dr As DataRow = DataTables("库存").find("[品名] = '" & s & "'")
    If dr Is Nothing Then dr = DataTables("库存").addnew
    dr("品名") = s
End If

 

谢谢答复，但问题依旧。在入库表品名列输入新值后，系统还是指出引用实例错误。库存表能自动增加行，但品名列不能自动输入入库表中的新值。

代码没问题，你看看你库存表是不是写了什么代码。

库存表里无代码，项目事件里也无代码，入库表里只有datacolchanged事件代码。

不可能，我测试，没问题。

 

上传实例说明。