以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  在入库表中添加新产品时，库存表也能及时添加？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=88641)
--  作者：13055984798
--  发布时间：2016/8/6 16:37:00
--  在入库表中添加新产品时，库存表也能及时添加？
我按教程试着做了入库、出库、库存三张表，入库表与库存表建立了关联，库存表为父表，入库表为子表，产品为关联列，并选择同时更新，但当入库表中添加新产品时，库存表的产品列不能自动添加，需人工添加。能不能自动添加？
--  作者：Hyphen
--  发布时间：2016/8/6 16:52:00
--  
只能编码添加
--  作者：13055984798
--  发布时间：2016/8/8 13:08:00
--  
入库表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。不知怎么改进？
--  作者：13055984798
--  发布时间：2016/8/8 13:12:00
--  
入库表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。不知怎么改进？
--  作者：13055984798
--  发布时间：2016/8/8 13:21:00
--  
入库表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。不知怎么改进？
--  作者：大红袍
--  发布时间：2016/8/8 14:15:00
--  

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

 
--  作者：13055984798
--  发布时间：2016/8/8 15:55:00
--  回复：（大红袍）If e.DataCol.name = "品名" Then&nb...
谢谢答复，但问题依旧。在入库表品名列输入新值后，系统还是指出引用实例错误。库存表能自动增加行，但品名列不能自动输入入库表中的新值。
--  作者：大红袍
--  发布时间：2016/8/8 15:57:00
--  
代码没问题，你看看你库存表是不是写了什么代码。
--  作者：13055984798
--  发布时间：2016/8/8 16:29:00
--  回复：（大红袍）代码没问题，你看看你库存表是不是写...
库存表里无代码，项目事件里也无代码，入库表里只有datacolchanged事件代码。
只是将入库表与库存表进行了关联，库存表为父表，入库表为子表。
如将dr("品名") = s 删除，没有错误提示。
--  作者：大红袍
--  发布时间：2016/8/8 16:46:00
--  

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

 

上传实例说明。