以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请教关于库存状况表设计的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=19367)
--  作者：rjh4078
--  发布时间：2012/5/7 23:01:00
--  请教关于库存状况表设计的问题

按照帮助通过关联表设计了一个库存表

现在有个问题请教一下

我有4个表 产品信息 出库单 入库单 库存表

 

现在做出来的效果是 必须在库存表里输入某个产品后才能得到它的出入库情况 否则库存表就是空白的

 

如何实现我在产品信息里添加了新的产品以后 他能自动填充到库存表里去 只是库存量为0
--  作者：狐狸爸爸
--  发布时间：2012/5/7 23:07:00
--  
在产品信息表的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
 
               
--  作者：rjh4078
--  发布时间：2012/5/7 23:31:00
--  

感谢狐爸及时回复 通过测试确实可以达到要求

但是现在有新的问题  如果我删除掉了这个产品（我已经写了代码判断该产品是否产生过交易记录） 库存状况表里的记录还是保留在

另外  如果我同时填充多个列过去要怎么改代码呢 

--  作者：狐狸爸爸
--  发布时间：2012/5/8 8:48:00
--  

1、参考：

http://www.foxtable.com/help/topics/0633.htm

在这个事件中找出另一个表对应的行，然后删除之即可。

 

2、多列填充：

 

Select Case  e.DataCol.Name
    Case "产品名称"
        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
    Case "其他列1","其他列2","其他列3"
        Dim dr As DataRow
        dr = DataTables("库存").Find("产品名称 = \'" & e.DataRow("产品名称") & "\'")
        If dr IsNot Nothing Then
            dr(e.DataCol.name) = e.newValue
        End If
End Select